Compiling QE6B.IBS on PAC to QE6B on PAC 03/05/19 05:25:02 AM 1 QE6B.IBS 00000000 ! //IB// Src(QE6B.IBS) Opt("") 2 QE6B.IBS 00000000 ! 3 QE6B.IBS 00000000 ! ! 4 QE6B.IBS 00000000 ! PROGRAM IDENTIFICATION ! 5 QE6B.IBS 00000000 ! ! 6 QE6B.IBS 00000000 ! SOURCE FILE NAME: QE6B ! 7 QE6B.IBS 00000000 ! OBJECT FILE NAME: QE6B ! 8 QE6B.IBS 00000000 ! ! 9 QE6B.IBS 00000000 ! TITLE: PURCHASE ORDER ENTRY/MAINT (PRINT BUYER COPY) ! 10 QE6B.IBS 00000000 ! ! 11 QE6B.IBS 00000000 ! ENTRY FROM: QE6 ! 12 QE6B.IBS 00000000 ! EXIT TO: QE6 ! 13 QE6B.IBS 00000000 ! ! 14 QE6B.IBS 00000000 !******************************************************************************! 15 QE6B.IBS 00000000 ! 16 QE6B.IBS 00000000 !====================== PROGRAM VARIABLE DECLARATIVES =======================! 17 QE6B.IBS 00000000 ! 18 QE6B.IBS 00000000 INCLUDE '^COMPASS.INC' 1 ^COMPASS.INC 00000000 !==================== ^COMPASS ================================================= 2 ^COMPASS.INC 00000000 ! 3 ^COMPASS.INC 00000000 LENGTH 1 & COMMON SEL$, MENU$, RETURN$ 4 ^COMPASS.INC 00000000 LENGTH 128 & COMMON PASS$ 5 ^COMPASS.INC 00000000 ! 6 ^COMPASS.INC 00000000 LENGTH 12 & COMMON EXFILE$ 7 ^COMPASS.INC 00000000 LENGTH 64 & COMMON EXREC$ 8 ^COMPASS.INC 00000000 9 ^COMPASS.INC 00000000 !------------------------ SYSDATE ---------------------------------------------- 10 ^COMPASS.INC 00000000 LENGTH 8 & LOCAL SYSTIME$ 11 ^COMPASS.INC 00000000 LENGTH 10 & LOCAL SYSDATE$ 12 ^COMPASS.INC 00000000 13 ^COMPASS.INC 00000000 !------------------------ PDF ARCHIVE ------------------------------------------ 14 ^COMPASS.INC 00000000 LENGTH 2 & LOCAL PDFSRCE$ 15 ^COMPASS.INC 00000000 LENGTH 3 & LOCAL PDFREG$ 16 ^COMPASS.INC 00000000 LENGTH 4 & LOCAL PDFFY$ 17 ^COMPASS.INC 00000000 LENGTH 50 & LOCAL PDFFILE$ 18 ^COMPASS.INC 00000000 LENGTH 250 & LOCAL PDFDOC$ 19 ^COMPASS.INC 00000000 20 ^COMPASS.INC 00000000 !------------------------ MSGBOX ------------------------------------! 21 ^COMPASS.INC 00000000 ! MBRESULT = MSGBOX(MBMSG$,MBCAP$,MBTYPE) ! EXTENDED MESSAGE BOX 22 ^COMPASS.INC 00000000 ! MSGBOX(MBMSG$) ! SIMPLE MESSAGE BOX 23 ^COMPASS.INC 00000000 !-------------------- BUTTON SETTINGS ------------------------------------------ 24 ^COMPASS.INC 00000000 SET MBOK = 0 ! OK BUTTON 25 ^COMPASS.INC 00000000 SET MBOKCAN = 1 ! OK AND CANCEL 26 ^COMPASS.INC 00000000 SET MBYNCAN = 3 ! YES, NO, AND CANCEL 27 ^COMPASS.INC 00000000 SET MBYN = 4 ! YES AND NO 28 ^COMPASS.INC 00000000 SET MBRC = 5 ! RETRY AND CANCEL 29 ^COMPASS.INC 00000000 SET MBCTC = 6 ! CANCEL, TRY AGAIN, CONTINUE 30 ^COMPASS.INC 00000000 !-------------------- ICON SETTINGS -------------------------------------------- 31 ^COMPASS.INC 00000000 SET MBSTOP = 16 ! STOP ICON 32 ^COMPASS.INC 00000000 SET MBQUES = 32 ! QUESTION 33 ^COMPASS.INC 00000000 SET MBEXCL = 48 ! EXCLAMATION 34 ^COMPASS.INC 00000000 SET MBASTR = 64 ! ASTERISK 35 ^COMPASS.INC 00000000 !-------------------- BUTTON DEFAULTS ------------------------------------------ 36 ^COMPASS.INC 00000000 SET MBDEF1 = 0 37 ^COMPASS.INC 00000000 SET MBDEF2 = 256 38 ^COMPASS.INC 00000000 SET MBDEF3 = 512 39 ^COMPASS.INC 00000000 SET MBDEF4 = 768 40 ^COMPASS.INC 00000000 !-------------------- BUTTON REPONSES ------------------------------------------ 41 ^COMPASS.INC 00000000 ! 1 = OK 42 ^COMPASS.INC 00000000 ! 2 = CANCEL 43 ^COMPASS.INC 00000000 ! 4 = RETRY 44 ^COMPASS.INC 00000000 ! 6 = YES 45 ^COMPASS.INC 00000000 ! 7 = NO 46 ^COMPASS.INC 00000000 ! 10 = TRY AGAIN 47 ^COMPASS.INC 00000000 ! 11 = CONTINUE 48 ^COMPASS.INC 00000000 !------------------------------------------------------------------------------- 49 ^COMPASS.INC 00000000 LENGTH 252 & LOCAL MBMSG$ ! MESSAGE TEXT 50 ^COMPASS.INC 00000000 LENGTH 100 & LOCAL MBCAP$ ! CAPTION 51 ^COMPASS.INC 00000000 LENGTH 2.0 & LOCAL MBRESULT ! BUTTON RESPONSE 52 ^COMPASS.INC 00000000 LENGTH 6.0 & LOCAL MBTYPE ! SETTINGS 53 ^COMPASS.INC 00000000 54 ^COMPASS.INC 00000000 !------------------------ USER ------------------------------------------------- 55 ^COMPASS.INC 00000000 Length 1 & Local Urez$, Usec$, Ucolor$ 56 ^COMPASS.INC 00000000 Length 3 & Local Uinit$ 57 ^COMPASS.INC 00000000 Length 3.0 & LOCAL URED, UGREEN, UBLUE 58 ^COMPASS.INC 00000000 Length 4.0 & LOCAL USESSION 59 ^COMPASS.INC 00000000 Length 8 & Local Uprog$ 60 ^COMPASS.INC 00000000 Length 16 & local Uname$, Upass$ 61 ^COMPASS.INC 00000000 Length 30 & Local Uename$ 62 ^COMPASS.INC 00000000 Length 150 & LOCAL USTAT$ 63 ^COMPASS.INC 00000000 !------------------------------------------------------------------------------- 64 ^COMPASS.INC 00000000 LENGTH 4 & LOCAL ScosDlghDlg$ 65 ^COMPASS.INC 00000000 LENGTH 5.0 & LOCAL ScreenSize 66 ^COMPASS.INC 00000000 ! 67 ^COMPASS.INC 00000000 !=============================================================================== 19 QE6B.IBS 00000000 ! 20 QE6B.IBS 00000000 LENGTH 1 & COMMON FUNCT$, LFUNCT$ 21 QE6B.IBS 00000000 LENGTH 2 & COMMON CBUYER$, CORG$ 22 QE6B.IBS 00000000 LENGTH 3 & COMMON CLINE$ 23 QE6B.IBS 00000000 LENGTH 6 & COMMON CPNBR$ 24 QE6B.IBS 00000000 LENGTH 8 & COMMON CDATE$ 25 QE6B.IBS 00000000 LENGTH 16 & COMMON CGLNO$ 26 QE6B.IBS 00000000 27 QE6B.IBS 00000000 !-------------------- (CopyFile) ----------------------------------------------- 28 QE6B.IBS 00000000 LENGTH 6.0 & LOCAL COPYFLAGS 29 QE6B.IBS 00000000 LENGTH 250 & LOCAL FROMFILE$, TOFILE$, PDFNAME$ 30 QE6B.IBS 00000000 31 QE6B.IBS 00000000 Length 2 & LOCAL AX$,DX$ 32 QE6B.IBS 00000000 Length 254 & LOCAL Result$ 33 QE6B.IBS 00000000 Length 5.0 & Local FuncError, FileError 34 QE6B.IBS 00000000 35 QE6B.IBS 00000000 ResultFmt: FORMAT AX$;DX$;Result$ 36 QE6B.IBS 00000010 !------------------------------------------------------------------------------- 37 QE6B.IBS 00000010 ! 38 QE6B.IBS 00000010 !!!!! INCLUDE '^I15.INC' ! 09/15/2015 39 QE6B.IBS 00000010 INCLUDE '^Q01.INC' 1 ^Q01.INC 00000010 ! ! 2 ^Q01.INC 00000010 !+++++++++++++++++++++++++++++++++ ^Q01 +++++++++++++++++++++++++++++++++! 3 ^Q01.INC 00000010 ! ! 4 ^Q01.INC 00000010 ! DECLARATIVE & FORMAT STATEMENTS FOR FILE: Q01 TYPE: K ! 5 ^Q01.INC 00000010 ! ! 6 ^Q01.INC 00000010 ! P/O ENTRY POINTER REC SIZE: 9 ! 7 ^Q01.INC 00000010 ! KEY SIZE: 6 ! 8 ^Q01.INC 00000010 ! ! 9 ^Q01.INC 00000010 ! #FILE NAME: P.O.ENTRY.POINT DATE: 07/01/15 ! 10 ^Q01.INC 00000010 ! ! 11 ^Q01.INC 00000010 !++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++! 12 ^Q01.INC 00000010 ! ! 13 ^Q01.INC 00000010 ! ! 14 ^Q01.INC 00000010 ! VARIABLE DECLARATIONS: ! 15 ^Q01.INC 00000010 ! ! 16 ^Q01.INC 00000010 LENGTH 1 & LOCAL QSTATUS$ ! 17 ^Q01.INC 00000010 LENGTH 2 & LOCAL QBUYER$ ! 18 ^Q01.INC 00000010 LENGTH 6 & LOCAL QPNBR$ ! 19 ^Q01.INC 00000010 ! ! 20 ^Q01.INC 00000010 ! RECORD FORMAT FIELD DESCRIPTIONS TYPE LENGTH POSITION ! 21 ^Q01.INC 00000010 ! ! 22 ^Q01.INC 00000010 1701 FORMAT _ ! 23 ^Q01.INC 00000010 QPNBR$;_ ! P/O NUMBER S 6 0 ! 24 ^Q01.INC 00000015 QSTATUS$;_ ! P/O STATUS S 1 6 ! 25 ^Q01.INC 0000001A QBUYER$ ! P/O BUYER S 2 7 ! 26 ^Q01.INC 00000020 ! ! 27 ^Q01.INC 00000020 !++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++! 40 QE6B.IBS 00000020 INCLUDE '^Q04.INC' 1 ^Q04.INC 00000020 ! ! 2 ^Q04.INC 00000020 !+++++++++++++++++++++++++++++++++ ^Q04 +++++++++++++++++++++++++++++++++! 3 ^Q04.INC 00000020 ! ! 4 ^Q04.INC 00000020 ! DECLARATIVE & FORMAT STATEMENTS FOR FILE: Q04 TYPE: K ! 5 ^Q04.INC 00000020 ! ! 6 ^Q04.INC 00000020 ! P/O BUYER PRINT QUEUE REC SIZE: 10 ! 7 ^Q04.INC 00000020 ! KEY SIZE: 8 ! 8 ^Q04.INC 00000020 ! ! 9 ^Q04.INC 00000020 ! #FILE NAME: P.O.BUYER.PRINT DATE: 07/01/15 ! 10 ^Q04.INC 00000020 ! ! 11 ^Q04.INC 00000020 !++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++! 12 ^Q04.INC 00000020 ! ! 13 ^Q04.INC 00000020 ! ! 14 ^Q04.INC 00000020 ! VARIABLE DECLARATIONS: KEY FIELD IS Q04KEY$ (EXPRESSION FIELD) ! 15 ^Q04.INC 00000020 ! ! 16 ^Q04.INC 00000020 LENGTH 8 & LOCAL Q04KEY$ ! BUYER.NUMBER + P.O.NUMBER ! 17 ^Q04.INC 00000020 ! ! 18 ^Q04.INC 00000020 LENGTH 1 & LOCAL QPOPRT$,QWSPRT$ ! 19 ^Q04.INC 00000020 LENGTH 2 & LOCAL QBUYER$ ! 19 ^Q04.INC *****020 Variable 'QBUYER$ ' has been previously declared 20 ^Q04.INC 00000020 LENGTH 6 & LOCAL QPNBR$ ! 20 ^Q04.INC *****020 Variable 'QPNBR$ ' has been previously declared 21 ^Q04.INC 00000020 ! ! 22 ^Q04.INC 00000020 ! RECORD FORMAT FIELD DESCRIPTIONS TYPE LENGTH POSITION ! 23 ^Q04.INC 00000020 ! ! 24 ^Q04.INC 00000020 1704 FORMAT _ ! 25 ^Q04.INC 00000020 QBUYER$;_ ! BUYER NUMBER S 2 0 ! 26 ^Q04.INC 00000025 QPNBR$;_ ! P/O NUMBER S 6 2 ! 27 ^Q04.INC 0000002A QPOPRT$;_ ! P/O PRINTED S 1 8 ! 28 ^Q04.INC 0000002F QWSPRT$ ! W/S PRINTED S 1 9 ! 29 ^Q04.INC 00000035 ! ! 30 ^Q04.INC 00000035 !++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++! 41 QE6B.IBS 00000035 INCLUDE '^Q10.INC' 1 ^Q10.INC 00000035 ! 2 ^Q10.INC 00000035 !=================================> ^Q10.INC <=================================== 3 ^Q10.INC 00000035 ! 4 ^Q10.INC 00000035 ! File Format & Length Declaratives 5 ^Q10.INC 00000035 ! 6 ^Q10.INC 00000035 ! File Name: Q10 P/O HEADER FILE 7 ^Q10.INC 00000035 ! 8 ^Q10.INC 00000035 ! Type: K Record: 500 Key: 6 Image: N 9 ^Q10.INC 00000035 ! 10 ^Q10.INC 00000035 ! #CFILES File Name: P.O.HEADER Date: 11/30/2018 11 ^Q10.INC 00000035 ! 12 ^Q10.INC 00000035 !---------------------------------------------------------------------------------- 13 ^Q10.INC 00000035 ! 14 ^Q10.INC 00000035 LENGTH 4.2 & LOCAL QSLSTX ! P.O.TAX.RATE 15 ^Q10.INC 00000035 LENGTH 7.2 & LOCAL QMISC ! TOTAL.MISC 16 ^Q10.INC 00000035 LENGTH 7.2 & LOCAL QTAX ! TOTAL.TAX 17 ^Q10.INC 00000035 LENGTH 9.2 & LOCAL QPAMT ! P.O.AMOUNT 18 ^Q10.INC 00000035 LENGTH 9.2 & LOCAL QPVALUE ! P.O.VALUE 19 ^Q10.INC 00000035 LENGTH 9.2 & LOCAL QPORIG ! PO.ORIG.AMOUNT 20 ^Q10.INC 00000035 LENGTH 9.2 & LOCAL QACT ! TOTAL.ACTUAL 21 ^Q10.INC 00000035 LENGTH 9.2 & LOCAL QCOMMIT ! TOTAL.COMMIT 22 ^Q10.INC 00000035 LENGTH 9.2 & LOCAL QFRT ! TOTAL.FREIGHT 23 ^Q10.INC 00000035 LENGTH 1 & LOCAL QCOD$ ! COD.FLAG 24 ^Q10.INC 00000035 LENGTH 1 & LOCAL QINV$ ! INV.PURCH 25 ^Q10.INC 00000035 LENGTH 1 & LOCAL QACK$ ! P.O.ACKNOWLEDGE 26 ^Q10.INC 00000035 LENGTH 1 & LOCAL QPTD$ ! P.O.PTD.FLAG 27 ^Q10.INC 00000035 LENGTH 1 & LOCAL QSTATUS$ ! P.O.STATUS 27 ^Q10.INC *****035 Variable 'QSTATUS$ ' has been previously declared 28 ^Q10.INC 00000035 LENGTH 2 & LOCAL QBUYER$ ! BUYER.NUMBER 28 ^Q10.INC *****035 Variable 'QBUYER$ ' has been previously declared 29 ^Q10.INC 00000035 LENGTH 2 & LOCAL QPAYORG$ ! PAYING.ORG 30 ^Q10.INC 00000035 LENGTH 3 & LOCAL QSEQ$ ! P.O.CHANGE.SEQ 31 ^Q10.INC 00000035 LENGTH 3 & LOCAL QNLINE$ ! P.O.NEXT.LINE 32 ^Q10.INC 00000035 LENGTH 3 & LOCAL QINC$ ! P.O.OPEN.LINES 33 ^Q10.INC 00000035 LENGTH 3 & LOCAL QCOPY$ ! P.O.PRINT.COPY 34 ^Q10.INC 00000035 LENGTH 3 & LOCAL QLOCN$ ! P.O.RECV.LOCN 35 ^Q10.INC 00000035 LENGTH 3 & LOCAL QREV$ ! P.O.REVISION 36 ^Q10.INC 00000035 LENGTH 3 & LOCAL QVSTATE$ ! VENDOR.STATE 37 ^Q10.INC 00000035 LENGTH 6 & LOCAL QPNBR$ ! P.O.NUMBER 37 ^Q10.INC *****035 Variable 'QPNBR$ ' has been previously declared 38 ^Q10.INC 00000035 LENGTH 6 & LOCAL QVNBR$ ! VENDOR.NO 39 ^Q10.INC 00000035 LENGTH 8 & LOCAL Q06KEY$ ! Q06.KEY 40 ^Q10.INC 00000035 LENGTH 9 & LOCAL Q09KEY$ ! Q09.KEY 41 ^Q10.INC 00000035 LENGTH 10 & LOCAL QDUEDATE$ ! P.O.DUE.DATE 42 ^Q10.INC 00000035 LENGTH 10 & LOCAL QPDATE$ ! P.O.ORDER.DATE 43 ^Q10.INC 00000035 LENGTH 10 & LOCAL QVZIP$ ! VENDOR.ZIP 44 ^Q10.INC 00000035 LENGTH 12 & LOCAL QSHPVIA$ ! P.O.SHIP.VIA 45 ^Q10.INC 00000035 LENGTH 12 & LOCAL Q03KEY$ ! Q03.KEY 46 ^Q10.INC 00000035 LENGTH 14 & LOCAL QPDATEXREF$ ! PODATEXREF 47 ^Q10.INC 00000035 LENGTH 15 & LOCAL QFOB$ ! P.O.FOB 48 ^Q10.INC 00000035 LENGTH 15 & LOCAL QTERM$ ! P.O.TERMS 49 ^Q10.INC 00000035 LENGTH 15 & LOCAL QVCITY$ ! VENDOR.CITY 50 ^Q10.INC 00000035 LENGTH 20 & LOCAL QVCONT$ ! P.O.CONTACT 51 ^Q10.INC 00000035 LENGTH 20 & LOCAL QVFAX$ ! P.O.FAX.NUMBER 52 ^Q10.INC 00000035 LENGTH 20 & LOCAL QVPHONE$ ! P.O.PHONE 53 ^Q10.INC 00000035 LENGTH 20 & LOCAL QZATN$ ! P.O.SHIP.ATTN 54 ^Q10.INC 00000035 LENGTH 20 & LOCAL QVATN$ ! VENDOR.ATTN 55 ^Q10.INC 00000035 LENGTH 25 & LOCAL QVADR1$ ! VENDOR.ADDR.1 56 ^Q10.INC 00000035 LENGTH 25 & LOCAL QVADR2$ ! VENDOR.ADDR.2 57 ^Q10.INC 00000035 LENGTH 25 & LOCAL QVNAME$ ! VENDOR.NAME 58 ^Q10.INC 00000035 LENGTH 1 & LOCAL QTC$(30) ! TERM.COND.FLAGS 59 ^Q10.INC 00000035 ! 60 ^Q10.INC 00000035 ! Description Type Len Pos 61 ^Q10.INC 00000035 ! ---------------------------------------------------- 62 ^Q10.INC 00000035 1710 FORMAT_ 63 ^Q10.INC 00000035 QPNBR$;_ ! P/O NUMBER S 6 0 64 ^Q10.INC 0000003A QVNBR$;_ ! VENDOR NUMBER S 6 6 65 ^Q10.INC 0000003F QVNAME$;_ ! VENDOR NAME S 25 12 66 ^Q10.INC 00000044 QVADR1$;_ ! VENDOR ADDRESS 1 S 25 37 67 ^Q10.INC 00000049 QVADR2$;_ ! VENDOR ADDRESS 2 S 25 62 68 ^Q10.INC 0000004E QVCITY$;_ ! VENDOR CITY S 15 87 69 ^Q10.INC 00000053 QVSTATE$;_ ! VENDOR STATE S 3 102 70 ^Q10.INC 00000058 QVZIP$;_ ! VENDOR ZIP CODE S 10 105 71 ^Q10.INC 0000005D QVATN$;_ ! VENDOR ATTENTION S 20 115 72 ^Q10.INC 00000062 QPDATE$;_ ! P/O ORDER DATE S 10 135 73 ^Q10.INC 00000067 QVCONT$;_ ! CONTACT S 20 145 74 ^Q10.INC 0000006C QSLSTX;_ ! P/O TAX RATE N 4.2 165 75 ^Q10.INC 00000071 QPVALUE;_ ! P/O VALUE AMOUNT N 9.2 171 76 ^Q10.INC 00000076 QREV$;_ ! P/O REVISION S 3 182 77 ^Q10.INC 0000007B QSTATUS$;_ ! P/O STATUS S 1 185 78 ^Q10.INC 00000080 QINC$;_ ! P/O OPEN LINES S 3 186 79 ^Q10.INC 00000085 QSEQ$;_ ! P/O CHANGE SEQUENCE S 3 189 80 ^Q10.INC 0000008A QLOCN$;_ ! P/O RECEIVING LOCATION S 3 192 81 ^Q10.INC 0000008F QVFAX$;_ ! P/O FAX NUMBER S 20 195 82 ^Q10.INC 00000094 QCOPY$;_ ! P/O PRINT COPY S 3 215 83 ^Q10.INC 00000099 QZATN$;_ ! P/O SHIP ATTENTION S 20 218 84 ^Q10.INC 0000009E QSHPVIA$;_ ! P/O SHIP VIA S 12 238 85 ^Q10.INC 000000A3 QFOB$;_ ! P/O FOB S 15 250 86 ^Q10.INC 000000A8 QTERM$;_ ! P/O TERMS S 15 265 87 ^Q10.INC 000000AD QBUYER$;_ ! BUYER.NUMBER S 2 280 88 ^Q10.INC 000000B2 QVPHONE$;_ ! P/O PHONE S 20 282 89 ^Q10.INC 000000B7 QDUEDATE$;_ ! P/O DUE DATE S 10 302 90 ^Q10.INC 000000BC QACT;_ ! TOTAL ACTUAL N 9.2 312 91 ^Q10.INC 000000C1 QFRT;_ ! TOTAL FREIGHT N 9.2 323 92 ^Q10.INC 000000C6 QTAX;_ ! TOTAL TAX N 7.2 334 93 ^Q10.INC 000000CB QMISC;_ ! TOTAL MISC N 7.2 343 94 ^Q10.INC 000000D0 QCOMMIT;_ ! TOTAL COMMITMENT N 9.2 352 95 ^Q10.INC 000000D5 QACK$;_ ! P/O ACKNOWLEDGE S 1 363 96 ^Q10.INC 000000DA QPTD$;_ ! P/O PTD S 1 364 97 ^Q10.INC 000000DF QNLINE$;_ ! P/O NEXT LINE S 3 365 98 ^Q10.INC 000000E4 QPAMT;_ ! P/O AMOUNT N 9.2 368 99 ^Q10.INC 000000E9 QPAYORG$;_ ! PAYING ORG S 2 379 100 ^Q10.INC 000000EE QCOD$;_ ! COD FLAG S 1 381 101 ^Q10.INC 000000F3 QTC$(1),30*1;_ ! TERMS & CONDITIONS FLAGS S 30 382 102 ^Q10.INC 00000105 Q03KEY$;_ ! Q03 KEY S 12 412 103 ^Q10.INC 0000010A Q06KEY$;_ ! Q06 KEY S 8 424 104 ^Q10.INC 0000010F Q09KEY$;_ ! Q09.KEY S 9 432 105 ^Q10.INC 00000114 QPORIG;_ ! ORIGINAL AMOUNT N 9.2 441 106 ^Q10.INC 00000119 QINV$;_ ! INV PURCH S 1 452 107 ^Q10.INC 0000011E QPDATEXREF$ ! PO DATE XREF S 14 453 108 ^Q10.INC 00000124 ! QPDATE$ (YYYYMMDD) + QPNBR$ 109 ^Q10.INC 00000124 ! 110 ^Q10.INC 00000124 !================================================================================== 42 QE6B.IBS 00000124 INCLUDE '^Q11.INC' 1 ^Q11.INC 00000124 ! ! 2 ^Q11.INC 00000124 !===========================> ^Q11 <============================== ! 3 ^Q11.INC 00000124 ! ! 4 ^Q11.INC 00000124 ! File Format & Length Declaratives ! 5 ^Q11.INC 00000124 ! ! 6 ^Q11.INC 00000124 ! File Name: Q11 P/O LINE ITEM FILE ! 7 ^Q11.INC 00000124 ! ! 8 ^Q11.INC 00000124 ! Type: K Record: 378 Key: 9 Image: N ! 9 ^Q11.INC 00000124 ! ! 10 ^Q11.INC 00000124 ! #FILES File Name: P.O.LINE.ITEM Date: 03/27/15 ! 11 ^Q11.INC 00000124 ! ! 12 ^Q11.INC 00000124 !--------------------------------------------------------------------! 13 ^Q11.INC 00000124 ! ! 14 ^Q11.INC 00000124 ! ! 15 ^Q11.INC 00000124 LENGTH 7.2 & LOCAL QPORD,QORD,QRCVD,QREJ ! 16 ^Q11.INC 00000124 LENGTH 9.2 & LOCAL QLACT,QLCOMMIT,QLFRT ! 17 ^Q11.INC 00000124 LENGTH 9.2 & LOCAL QLMISC,QLTAX ! 18 ^Q11.INC 00000124 LENGTH 10.4 & LOCAL QCOST ! 19 ^Q11.INC 00000124 LENGTH 1 & LOCAL QCERT$,QCOMP$ ! 20 ^Q11.INC 00000124 LENGTH 3 & LOCAL QNSUB$,QLINE$ ! 21 ^Q11.INC 00000124 LENGTH 4 & LOCAL QUNIT$ ! 22 ^Q11.INC 00000124 LENGTH 6 & LOCAL QPNBR$ ! 22 ^Q11.INC *****124 Variable 'QPNBR$ ' has been previously declared 23 ^Q11.INC 00000124 LENGTH 10 & LOCAL QRDATE$ ! 24 ^Q11.INC 00000124 LENGTH 12 & LOCAL QMTYPE$,QMFGNAME$ ! 25 ^Q11.INC 00000124 LENGTH 20 & LOCAL QPART$ ! 26 ^Q11.INC 00000124 LENGTH 25 & LOCAL QSIZE$,QMFGNBR$,QSPEC$ ! 27 ^Q11.INC 00000124 LENGTH 29 & LOCAL Q02KEY$ ! 28 ^Q11.INC 00000124 LENGTH 30 & LOCAL QDESC$ ! 29 ^Q11.INC 00000124 LENGTH 9 & LOCAL Q11KEY$ ! 30 ^Q11.INC 00000124 ! ! 31 ^Q11.INC 00000124 ! Description Type Len Pos ! 32 ^Q11.INC 00000124 ! ------------------------------------------! 33 ^Q11.INC 00000124 1711 FORMAT _ ! 34 ^Q11.INC 00000124 QPNBR$;_ ! P/O NUMBER S 6 0 ! 35 ^Q11.INC 00000129 QLINE$;_ ! P/O LINE NUMBER S 3 6 ! 36 ^Q11.INC 0000012E QPART$;_ ! INVENTORY PART NUMBER S 20 9 ! 37 ^Q11.INC 00000133 QDESC$;_ ! LINE ITEM DESCRIPTION S 30 29 ! 38 ^Q11.INC 00000138 QSIZE$;_ ! INVENTORY PART SIZE S 25 59 ! 39 ^Q11.INC 0000013D QUNIT$;_ ! UNIT OF ISSUE S 4 84 ! 40 ^Q11.INC 00000142 QCOST;_ ! COST PER UNIT N 10.4 88 ! 41 ^Q11.INC 00000147 QPORD;_ ! ORIGINAL QTY ORDERED N 7.2 100 ! 42 ^Q11.INC 0000014C QORD;_ ! QUANTITY ORDERED N 7.2 109 ! 43 ^Q11.INC 00000151 QRCVD;_ ! QUANTITY RECEIVED N 7.2 118 ! 44 ^Q11.INC 00000156 QREJ;_ ! QUANTITY REJECTED N 7.2 127 ! 45 ^Q11.INC 0000015B QRDATE$;_ ! DATE RECEIVED S 10 136 ! 46 ^Q11.INC 00000160 QCOMP$;_ ! COMPLETED FLAG S 1 146 ! 47 ^Q11.INC 00000165 QLACT;_ ! LINE ACTUAL N 9.2 147 ! 48 ^Q11.INC 0000016A QLFRT;_ ! LINE FREIGHT N 9.2 158 ! 49 ^Q11.INC 0000016F QLTAX;_ ! LINE TAX N 9.2 169 ! 50 ^Q11.INC 00000174 QLMISC;_ ! LINE MISC N 9.2 180 ! 51 ^Q11.INC 00000179 QLCOMMIT;_ ! LINE COMMITMENT N 9.2 191 ! 52 ^Q11.INC 0000017E QCERT$;_ ! CERTIFICATION FLAG S 1 202 ! 53 ^Q11.INC 00000183 QMFGNAME$;_ ! MANUFACTURER NAME S 12 203 ! 54 ^Q11.INC 00000188 QMFGNBR$;_ ! MANUFACTURER PART NUMBER S 25 215 ! 55 ^Q11.INC 0000018D QSPEC$;_ ! SPECIFICATION S 25 240 ! 56 ^Q11.INC 00000192 QNSUB$;_ ! NEXT SUB LINE S 3 265 ! 57 ^Q11.INC 00000197 QMTYPE$;_ ! MATERIAL TYPE S 12 268 ! 58 ^Q11.INC 0000019C Q02KEY$ ! Q02 KEY S 29 280 ! 59 ^Q11.INC 000001A2 ! ! QPART$ + QPNBR$ + QLINE$ ! 60 ^Q11.INC 000001A2 ! ! 61 ^Q11.INC 000001A2 !====================================================================! 43 QE6B.IBS 000001A2 INCLUDE '^Q20.INC' 1 ^Q20.INC 000001A2 ! ! 2 ^Q20.INC 000001A2 !+++++++++++++++++++++++++++++++++ ^Q20 +++++++++++++++++++++++++++++++++! 3 ^Q20.INC 000001A2 ! ! 4 ^Q20.INC 000001A2 ! DECLARATIVE & FORMAT STATEMENTS FOR FILE: Q20 TYPE: K ! 5 ^Q20.INC 000001A2 ! ! 6 ^Q20.INC 000001A2 ! P/O COMMENTS FILE REC SIZE: 63 ! 7 ^Q20.INC 000001A2 ! KEY SIZE: 9 ! 8 ^Q20.INC 000001A2 ! ! 9 ^Q20.INC 000001A2 ! #FILE NAME: P.O.COMMENTS DATE: 07/01/15 ! 10 ^Q20.INC 000001A2 ! ! 11 ^Q20.INC 000001A2 !++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++! 12 ^Q20.INC 000001A2 ! ! 13 ^Q20.INC 000001A2 ! ! 14 ^Q20.INC 000001A2 ! VARIABLE DECLARATIONS: KEY FIELD IS Q20KEY$ (EXPRESSION FIELD) ! 15 ^Q20.INC 000001A2 ! ! 16 ^Q20.INC 000001A2 LENGTH 9 & LOCAL Q20KEY$ ! P.O.NUMBER + P.O.COMM.SEQ ! 17 ^Q20.INC 000001A2 ! ! 18 ^Q20.INC 000001A2 LENGTH 3 & LOCAL QCSEQ$ ! 19 ^Q20.INC 000001A2 LENGTH 6 & LOCAL QPNBR$ ! 19 ^Q20.INC *****1A2 Variable 'QPNBR$ ' has been previously declared 20 ^Q20.INC 000001A2 LENGTH 50 & LOCAL QCOMM$ ! 21 ^Q20.INC 000001A2 ! ! 22 ^Q20.INC 000001A2 ! RECORD FORMAT FIELD DESCRIPTIONS TYPE LENGTH POSITION ! 23 ^Q20.INC 000001A2 ! ! 24 ^Q20.INC 000001A2 1720 FORMAT _ ! 25 ^Q20.INC 000001A2 QPNBR$;_ ! P/O NUMBER S 6 0 ! 26 ^Q20.INC 000001A7 QCSEQ$;_ ! P/O COMMENT SEQUENCE S 3 6 ! 27 ^Q20.INC 000001AC QCOMM$ ! P/O COMMENT S 50 9 ! 28 ^Q20.INC 000001B2 ! ! 29 ^Q20.INC 000001B2 !++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++! 44 QE6B.IBS 000001B2 INCLUDE '^Q21.INC' 1 ^Q21.INC 000001B2 ! ! 2 ^Q21.INC 000001B2 !+++++++++++++++++++++++++++++++++ ^Q21 +++++++++++++++++++++++++++++++++! 3 ^Q21.INC 000001B2 ! ! 4 ^Q21.INC 000001B2 ! DECLARATIVE & FORMAT STATEMENTS FOR FILE: Q21 TYPE: K ! 5 ^Q21.INC 000001B2 ! ! 6 ^Q21.INC 000001B2 ! P/O LINE COMMENTS REC SIZE: 63 ! 7 ^Q21.INC 000001B2 ! KEY SIZE: 12 ! 8 ^Q21.INC 000001B2 ! ! 9 ^Q21.INC 000001B2 ! #FILE NAME: P.O.LINE.COMMTS DATE: 07/01/15 ! 10 ^Q21.INC 000001B2 ! ! 11 ^Q21.INC 000001B2 !++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++! 12 ^Q21.INC 000001B2 ! ! 13 ^Q21.INC 000001B2 ! ! 14 ^Q21.INC 000001B2 ! VARIABLE DECLARATIONS: KEY FIELD IS Q21KEY$ (EXPRESSION FIELD) ! 15 ^Q21.INC 000001B2 ! ! 16 ^Q21.INC 000001B2 LENGTH 12 & LOCAL Q21KEY$ ! P.O.NUMBER + P.O.LINE.NO + P.O.COMM.SEQ ! 17 ^Q21.INC 000001B2 ! ! 18 ^Q21.INC 000001B2 LENGTH 3 & LOCAL QLINE$,QLSEQ$ ! 18 ^Q21.INC *****1B2 Variable 'QLINE$ ' has been previously declared 19 ^Q21.INC 000001B2 LENGTH 6 & LOCAL QPNBR$ ! 19 ^Q21.INC *****1B2 Variable 'QPNBR$ ' has been previously declared 20 ^Q21.INC 000001B2 LENGTH 50 & LOCAL QLCOMM$ ! 21 ^Q21.INC 000001B2 ! ! 22 ^Q21.INC 000001B2 ! RECORD FORMAT FIELD DESCRIPTIONS TYPE LENGTH POSITION ! 23 ^Q21.INC 000001B2 ! ! 24 ^Q21.INC 000001B2 1721 FORMAT _ ! 25 ^Q21.INC 000001B2 QPNBR$;_ ! P/O NUMBER S 6 0 ! 26 ^Q21.INC 000001B7 QLINE$;_ ! P/O LINE NUMBER S 3 6 ! 27 ^Q21.INC 000001BC QLSEQ$;_ ! P/O COMMENT SEQUENCE S 3 9 ! 28 ^Q21.INC 000001C1 QLCOMM$ ! P/O LINE COMMENT S 50 12 ! 29 ^Q21.INC 000001C7 ! ! 30 ^Q21.INC 000001C7 !++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++! 45 QE6B.IBS 000001C7 INCLUDE '^Q70.INC' 1 ^Q70.INC 000001C7 ! ! 2 ^Q70.INC 000001C7 !===========================> ^Q70 <============================== ! 3 ^Q70.INC 000001C7 ! ! 4 ^Q70.INC 000001C7 ! File Format & Length Declaratives ! 5 ^Q70.INC 000001C7 ! ! 6 ^Q70.INC 000001C7 ! File Name: Q70 P/O RECEIVING LOCATION FILE ! 7 ^Q70.INC 000001C7 ! ! 8 ^Q70.INC 000001C7 ! Type: K Record: 150 Key: 3 Image: N ! 9 ^Q70.INC 000001C7 ! ! 10 ^Q70.INC 000001C7 ! #FILES File Name: P.O.LOCATION Date: 03/29/12 ! 11 ^Q70.INC 000001C7 ! ! 12 ^Q70.INC 000001C7 !--------------------------------------------------------------------! 13 ^Q70.INC 000001C7 ! ! 14 ^Q70.INC 000001C7 ! ! 15 ^Q70.INC 000001C7 LENGTH 2 & LOCAL QZORG$ ! 16 ^Q70.INC 000001C7 LENGTH 3 & LOCAL QZLOCN$,QZAPARC$,QZAPPTR$ ! 17 ^Q70.INC 000001C7 LENGTH 3 & LOCAL QZPOARC$,QZPOPTR$,QZRPARC$ ! 18 ^Q70.INC 000001C7 LENGTH 3 & LOCAL QZRPPTR$,QZSTATE$,QZWSARC$ ! 19 ^Q70.INC 000001C7 LENGTH 3 & LOCAL QZWSPTR$ ! 20 ^Q70.INC 000001C7 LENGTH 10 & LOCAL QZZIP$ ! 21 ^Q70.INC 000001C7 LENGTH 15 & LOCAL QZCITY$ ! 22 ^Q70.INC 000001C7 LENGTH 25 & LOCAL QZNAME$,QZADR1$,QZADR2$ ! 23 ^Q70.INC 000001C7 ! ! 24 ^Q70.INC 000001C7 ! ! 25 ^Q70.INC 000001C7 ! Description Type Len Pos ! 26 ^Q70.INC 000001C7 ! ------------------------------------------! 27 ^Q70.INC 000001C7 1770 FORMAT _ ! 28 ^Q70.INC 000001C7 QZLOCN$;_ ! LOCATION CODE S 3 0 ! 29 ^Q70.INC 000001CC QZNAME$;_ ! LOCATION NAME S 25 3 ! 30 ^Q70.INC 000001D1 QZADR1$;_ ! LOCATION ADDRESS 1 S 25 28 ! 31 ^Q70.INC 000001D6 QZADR2$;_ ! LOCATION ADDRESS 2 S 25 53 ! 32 ^Q70.INC 000001DB QZCITY$;_ ! LOCATION CITY S 15 78 ! 33 ^Q70.INC 000001E0 QZSTATE$;_ ! LOCATION STATE S 3 93 ! 34 ^Q70.INC 000001E5 QZZIP$;_ ! LOCATION ZIP CODE S 10 96 ! 35 ^Q70.INC 000001EA QZPOPTR$;_ ! LOCN P/O PTR S 3 106 ! 36 ^Q70.INC 000001EF QZWSPTR$;_ ! LOCN RECV W/S PTR S 3 109 ! 37 ^Q70.INC 000001F4 QZAPPTR$;_ ! LOCN A/P PTR S 3 112 ! 38 ^Q70.INC 000001F9 QZORG$;_ ! LOCN PAY ORG S 2 115 ! 39 ^Q70.INC 000001FE QZRPPTR$;_ ! LOCN RECV P/O PTR S 3 117 ! 40 ^Q70.INC 00000203 QZPOARC$;_ ! LOCN P/O ARC S 3 120 ! 41 ^Q70.INC 00000208 QZWSARC$;_ ! LOCN RECV W/S ARC S 3 123 ! 42 ^Q70.INC 0000020D QZAPARC$;_ ! LOCN A/P ARC S 3 126 ! 43 ^Q70.INC 00000212 QZRPARC$ ! LOCN RECV P/O ARC S 3 129 ! 44 ^Q70.INC 00000218 ! ! 45 ^Q70.INC 00000218 !====================================================================! 46 QE6B.IBS 00000218 INCLUDE '^Q72.INC' 1 ^Q72.INC 00000218 ! ! 2 ^Q72.INC 00000218 !===========================> ^Q72 <============================== ! 3 ^Q72.INC 00000218 ! ! 4 ^Q72.INC 00000218 ! File Format & Length Declaratives ! 5 ^Q72.INC 00000218 ! ! 6 ^Q72.INC 00000218 ! File Name: Q72 P/O BUYER MASTER FILE ! 7 ^Q72.INC 00000218 ! ! 8 ^Q72.INC 00000218 ! Type: K Record: 70 Key: 2 Image: N ! 9 ^Q72.INC 00000218 ! ! 10 ^Q72.INC 00000218 ! #FILES File Name: P.O.BUYER.MAST Date: 04/01/12 ! 11 ^Q72.INC 00000218 ! ! 12 ^Q72.INC 00000218 !--------------------------------------------------------------------! 13 ^Q72.INC 00000218 ! ! 14 ^Q72.INC 00000218 ! ! 15 ^Q72.INC 00000218 LENGTH 1 & LOCAL QBCFMMGR$,QPISORT$ ! 16 ^Q72.INC 00000218 LENGTH 1 & LOCAL QPRTFLAG$ ! 17 ^Q72.INC 00000218 LENGTH 2 & LOCAL QCORG1$,QCORG2$,QCORG3$ ! 18 ^Q72.INC 00000218 LENGTH 2 & LOCAL QCORG4$,QCORG5$,QBORG1$ ! 19 ^Q72.INC 00000218 LENGTH 2 & LOCAL QBORG2$,QBORG3$,QBORG4$ ! 20 ^Q72.INC 00000218 LENGTH 2 & LOCAL QBORG5$,QBUYER$ ! 20 ^Q72.INC *****218 Variable 'QBUYER$ ' has been previously declared 21 ^Q72.INC 00000218 LENGTH 3 & LOCAL QBPOPTR$ ! 22 ^Q72.INC 00000218 LENGTH 10 & LOCAL QBPASS$ ! 23 ^Q72.INC 00000218 LENGTH 25 & LOCAL QBNAME$ ! 24 ^Q72.INC 00000218 ! ! 25 ^Q72.INC 00000218 ! ! 26 ^Q72.INC 00000218 ! Description Type Len Pos ! 27 ^Q72.INC 00000218 ! ------------------------------------------! 28 ^Q72.INC 00000218 1772 FORMAT _ ! 29 ^Q72.INC 00000218 QBUYER$;_ ! BUYER NUMBER S 2 0 ! 30 ^Q72.INC 0000021D QBNAME$;_ ! BUYER NAME S 25 2 ! 31 ^Q72.INC 00000222 QBPASS$;_ ! BUYER PASSWORD S 10 27 ! 32 ^Q72.INC 00000227 QBORG1$;_ ! BUYER GL ORG 1 S 2 37 ! 33 ^Q72.INC 0000022C QBORG2$;_ ! BUYER GL ORG 2 S 2 39 ! 34 ^Q72.INC 00000231 QBORG3$;_ ! BUYER GL ORG 3 S 2 41 ! 35 ^Q72.INC 00000236 QBORG4$;_ ! BUYER GL ORG 4 S 2 43 ! 36 ^Q72.INC 0000023B QBORG5$;_ ! BUYER GL ORG 5 S 2 45 ! 37 ^Q72.INC 00000240 QBPOPTR$;_ ! BUYER P/O PRINTER S 3 47 ! 38 ^Q72.INC 00000245 QBCFMMGR$;_ ! BUYER CFM MGR S 1 50 ! 39 ^Q72.INC 0000024A QCORG1$;_ ! CFM ORG 1 S 2 51 ! 40 ^Q72.INC 0000024F QCORG2$;_ ! CFM ORG 2 S 2 53 ! 41 ^Q72.INC 00000254 QCORG3$;_ ! CFM ORG 3 S 2 55 ! 42 ^Q72.INC 00000259 QCORG4$;_ ! CFM ORG 4 S 2 57 ! 43 ^Q72.INC 0000025E QCORG5$;_ ! CFM ORG 5 S 2 59 ! 44 ^Q72.INC 00000263 QPISORT$;_ ! BUYER PHYS INV SORT FLAG S 1 61 ! 45 ^Q72.INC 00000268 QPRTFLAG$ ! BUYER PRINT FLAG S 1 62 ! 46 ^Q72.INC 0000026E ! ! 47 ^Q72.INC 0000026E !====================================================================! 47 QE6B.IBS 0000026E INCLUDE '^Z1Z.INC' 1 ^Z1Z.INC 0000026E !+++++++++++++++++++++++++++++++++ =FILEZ1Z +++++++++++++++++++++++++++++++++! 2 ^Z1Z.INC 0000026E ! ! 3 ^Z1Z.INC 0000026E ! DECLARATIVE AND FORMAT STATEMENTS FOR FILE: ! 4 ^Z1Z.INC 0000026E ! ! 5 ^Z1Z.INC 0000026E ! Z1 SYSTEM CONTROL FILE (COMMON VARIABLES--NO FORMAT) ! 6 ^Z1Z.INC 0000026E ! ! 7 ^Z1Z.INC 0000026E ! FILETYPE: K RECORD LENGTH: 252 ! 8 ^Z1Z.INC 0000026E ! KEY LENGTH: 5 KEY: '*' ! 9 ^Z1Z.INC 0000026E ! ! 10 ^Z1Z.INC 0000026E !++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++! 11 ^Z1Z.INC 0000026E ! ! 12 ^Z1Z.INC 0000026E ! VARIABLE DECLARATIONS ! 13 ^Z1Z.INC 0000026E ! ! 14 ^Z1Z.INC 0000026E LENGTH 1 & COMMON ZPT$ 15 ^Z1Z.INC 0000026E LENGTH 3 & COMMON ZLP$ 16 ^Z1Z.INC 0000026E LENGTH 10 & COMMON ZDATE$ 17 ^Z1Z.INC 0000026E LENGTH 25 & COMMON ZNAME$ 18 ^Z1Z.INC 0000026E LENGTH 27 & COMMON ZEXDATE$ 19 ^Z1Z.INC 0000026E ! ! 20 ^Z1Z.INC 0000026E !++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++! 48 QE6B.IBS 0000026E INCLUDE '^#PATH.INC' 1 ^#PATH.INC 0000026E ! ! 2 ^#PATH.INC 0000026E !+++++++++++++++++++++++++++++++++ ^#PATH +++++++++++++++++++++++++++++++++! 3 ^#PATH.INC 0000026E ! ! 4 ^#PATH.INC 0000026E ! DECLARATIVE & FORMAT STATEMENTS FOR FILE: #PATH ! 5 ^#PATH.INC 0000026E ! ! 6 ^#PATH.INC 0000026E ! DIRECTORY PATH INFORMATION FOR DOS FILES REC SIZE: 300 TYPE: K ! 7 ^#PATH.INC 0000026E ! ! 8 ^#PATH.INC 0000026E ! FILE NAME: #PATH DATE: 07/04/11 ! 9 ^#PATH.INC 0000026E ! ! 10 ^#PATH.INC 0000026E !++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++! 11 ^#PATH.INC 0000026E ! ! 12 ^#PATH.INC 0000026E ! VARIABLE DECLARATIONS ! 13 ^#PATH.INC 0000026E ! ! 14 ^#PATH.INC 0000026E LENGTH 10 & LOCAL RECKEY$ 15 ^#PATH.INC 0000026E LENGTH 250 & LOCAL DATAPATH$ 16 ^#PATH.INC 0000026E ! 17 ^#PATH.INC 0000026E ! RECORD FORMAT FIELD DESCRIPTIONS TYPE LENGTH POSITION ! 18 ^#PATH.INC 0000026E ! ! 19 ^#PATH.INC 0000026E 2666 FORMAT _ 20 ^#PATH.INC 0000026E RECKEY$;_ ! RECORD KEY S 10 0 21 ^#PATH.INC 00000273 DATAPATH$ ! PATH FOR DOS FILE S 250 10 22 ^#PATH.INC 00000279 ! ! 23 ^#PATH.INC 00000279 !++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++! 49 QE6B.IBS 00000279 ! 50 QE6B.IBS 00000279 !============================= PRINTER FORMATS ==============================! 51 QE6B.IBS 00000279 INCLUDE 'LogFont.Inc' 1 LOGFONT.INC 00000279 .IFNDEF LOGFONT.DEFINED 2 LOGFONT.INC 00000279 USE "COSUTL.INC" 1 COSUTL.INC 00000279 ! Only include this stuff 1 time 2 COSUTL.INC 00000279 .IFNDEF COSUTLD.DEFINED 3 COSUTL.INC 00000279 SET COSUTLD.DEFINED = 1 ! Any value will do 4 COSUTL.INC 00000279 !========================================================== 5 COSUTL.INC 00000279 ! 6 COSUTL.INC 00000279 UNSET TRUE 7 COSUTL.INC 00000279 UNSET FALSE 8 COSUTL.INC 00000279 SET TRUE = 1 9 COSUTL.INC 00000279 SET FALSE = 0 10 COSUTL.INC 00000279 ! 11 COSUTL.INC 00000279 ! For TRUE/FALSE assignments/testing 12 COSUTL.INC 00000279 ! 13 COSUTL.INC 00000279 !========================================================== 14 COSUTL.INC 00000279 15 COSUTL.INC 00000279 SET MAX.PATH.LEN = 254 16 COSUTL.INC 00000279 SET MAX.FILE.LEN = 254 17 COSUTL.INC 00000279 18 COSUTL.INC 00000279 SET UINT.S.LEN = 4 19 COSUTL.INC 00000279 SET UINT.N.LEN = 10.0 20 COSUTL.INC 00000279 SET HANDLE.S.LEN = 4 21 COSUTL.INC 00000279 SET HANDLE.N.LEN = 10.0 22 COSUTL.INC 00000279 SET WPARAM.S.LEN = 4 23 COSUTL.INC 00000279 SET WPARAM.N.LEN = 10.0 24 COSUTL.INC 00000279 SET BYTE.S.LEN = 1 25 COSUTL.INC 00000279 SET BYTE.N.LEN = 3.0 26 COSUTL.INC 00000279 SET WORD.S.LEN = 2 27 COSUTL.INC 00000279 SET WORD.N.LEN = 5.0 28 COSUTL.INC 00000279 SET LONG.S.LEN = 4 29 COSUTL.INC 00000279 SET LONG.N.LEN = 10.0 30 COSUTL.INC 00000279 SET LPARAM.S.LEN = 4 31 COSUTL.INC 00000279 SET LPARAM.N.LEN = 10.0 32 COSUTL.INC 00000279 SET DWORD.S.LEN = 4 33 COSUTL.INC 00000279 SET DWORD.N.LEN = 10.0 34 COSUTL.INC 00000279 SET MAX.STRING.LEN = 254 35 COSUTL.INC 00000279 SET LO.WORD.POS = 1 36 COSUTL.INC 00000279 SET HI.WORD.POS = 3 37 COSUTL.INC 00000279 SET LO.BYTE.POS = 1 38 COSUTL.INC 00000279 SET HI.BYTE.POS = 2 39 COSUTL.INC 00000279 40 COSUTL.INC 00000279 SET NULL = 0 41 COSUTL.INC 00000279 SET NullByte$ = "@00@" 42 COSUTL.INC 00000279 SET NullWord$ = "@0000@" 43 COSUTL.INC 00000279 SET NullDWord$ = "@00000000@" 44 COSUTL.INC 00000279 SET NullInt$ = "@00000000@" 45 COSUTL.INC 00000279 SET NullHandle$ = "@00000000@" 46 COSUTL.INC 00000279 SET MinusOne$ = "@FFFFFFFF@" 47 COSUTL.INC 00000279 SET MinusTwo$ = "@FEFFFFFF@" 48 COSUTL.INC 00000279 SET MinusThree$ = "@FDFFFFFF@" 49 COSUTL.INC 00000279 SET NewLine$ = "@0A@" 50 COSUTL.INC 00000279 SET TabChar$ = "@09@" 51 COSUTL.INC 00000279 SET NumMinusOne = 4294967295 52 COSUTL.INC 00000279 53 COSUTL.INC 00000279 !========================================================== 54 COSUTL.INC 00000279 ! 55 COSUTL.INC 00000279 LENGTH 2 & LOCAL cosWord$ ! Packed word 56 COSUTL.INC 00000279 LENGTH 10.0 & LOCAL cosWord, cosHiWord ! Word to pack 57 COSUTL.INC 00000279 LENGTH DWORD.S.LEN & LOCAL cosDWord$ ! Packed word 58 COSUTL.INC 00000279 LENGTH 10.0 & LOCAL cosDWord ! Word to pack !DWORD.N.LEN 59 COSUTL.INC 00000279 LENGTH UINT.S.LEN & LOCAL cosInt$ ! Packed INT 60 COSUTL.INC 00000279 LENGTH 10.0 & LOCAL cosInt ! INT to pack !UINT.N.LEN 61 COSUTL.INC 00000279 LENGTH 1.0 & LOCAL cosErr ! Num 62 COSUTL.INC 00000279 Length 10 & Local cosMisc10$ 63 COSUTL.INC 00000279 ! 64 COSUTL.INC 00000279 ! for calling PACK.WORD 65 COSUTL.INC 00000279 ! 66 COSUTL.INC 00000279 !========================================================== 67 COSUTL.INC 00000279 68 COSUTL.INC 00000279 .ENDIF ! COSUTLD.DEFINED 69 COSUTL.INC 00000279 3 LOGFONT.INC 00000279 SET LOGFONT.DEFINED = 1 4 LOGFONT.INC 00000279 LENGTH LONG.S.LEN & LOCAL lfHeight$ 5 LOGFONT.INC 00000279 LENGTH LONG.S.LEN & LOCAL lfWidth$ 6 LOGFONT.INC 00000279 LENGTH LONG.S.LEN & LOCAL lfEscapement$ 7 LOGFONT.INC 00000279 LENGTH LONG.S.LEN & LOCAL lfOrientation$ 8 LOGFONT.INC 00000279 LENGTH LONG.S.LEN & LOCAL lfWeight$ 9 LOGFONT.INC 00000279 10 LOGFONT.INC 00000279 SET FW.DONTCARE = 0 11 LOGFONT.INC 00000279 SET FW.THIN = 100 12 LOGFONT.INC 00000279 SET FW.EXTRALIGHT = 200 13 LOGFONT.INC 00000279 SET FW.LIGHT = 300 14 LOGFONT.INC 00000279 SET FW.NORMAL = 400 15 LOGFONT.INC 00000279 SET FW.MEDIUM = 500 16 LOGFONT.INC 00000279 SET FW.SEMIBOLD = 600 17 LOGFONT.INC 00000279 SET FW.BOLD = 700 18 LOGFONT.INC 00000279 SET FW.EXTRABOLD = 800 19 LOGFONT.INC 00000279 SET FW.HEAVY = 900 20 LOGFONT.INC 00000279 SET FW.ULTRALIGHT = 200 ! FW.EXTRALIGHT 21 LOGFONT.INC 00000279 SET FW.REGULAR = 400 ! FW.NORMAL 22 LOGFONT.INC 00000279 SET FW.DEMIBOLD = 600 ! FW.SEMIBOLD 23 LOGFONT.INC 00000279 SET FW.ULTRABOLD = 800 ! FW.EXTRABOLD 24 LOGFONT.INC 00000279 SET FW.BLACK = 900 ! FW.HEAVY 25 LOGFONT.INC 00000279 26 LOGFONT.INC 00000279 27 LOGFONT.INC 00000279 LENGTH BYTE.S.LEN & LOCAL lfItalic$ 28 LOGFONT.INC 00000279 LENGTH BYTE.S.LEN & LOCAL lfUnderline$ 29 LOGFONT.INC 00000279 LENGTH BYTE.S.LEN & LOCAL lfStrikeOut$ 30 LOGFONT.INC 00000279 31 LOGFONT.INC 00000279 LENGTH BYTE.S.LEN & LOCAL lfCharSet$ 32 LOGFONT.INC 00000279 SET ANSI.CHARSET = 0 33 LOGFONT.INC 00000279 SET DEFAULT.CHARSET = 1 34 LOGFONT.INC 00000279 SET SYMBOL.CHARSET = 2 35 LOGFONT.INC 00000279 SET OEM.CHARSET = 255 36 LOGFONT.INC 00000279 37 LOGFONT.INC 00000279 LENGTH BYTE.S.LEN & LOCAL lfOutPrecision$ 38 LOGFONT.INC 00000279 SET OUT.DEFAULT.PRECIS = 0 39 LOGFONT.INC 00000279 SET OUT.STRING.PRECIS = 1 40 LOGFONT.INC 00000279 SET OUT.CHARACTER.PRECIS = 2 41 LOGFONT.INC 00000279 SET OUT.STROKE.PRECIS = 3 42 LOGFONT.INC 00000279 43 LOGFONT.INC 00000279 LENGTH BYTE.S.LEN & LOCAL lfClipPrecision$ 44 LOGFONT.INC 00000279 SET CLIP.DEFAULT.PRECIS = 0 45 LOGFONT.INC 00000279 SET CLIP.CHARACTER.PRECIS = 1 46 LOGFONT.INC 00000279 SET CLIP.STROKE.PRECIS = 2 47 LOGFONT.INC 00000279 48 LOGFONT.INC 00000279 LENGTH BYTE.S.LEN & LOCAL lfQuality$ 49 LOGFONT.INC 00000279 SET DEFAULT.QUALITY = 0 50 LOGFONT.INC 00000279 SET DRAFT.QUALITY = 1 51 LOGFONT.INC 00000279 SET PROOF.QUALITY = 2 52 LOGFONT.INC 00000279 53 LOGFONT.INC 00000279 LENGTH BYTE.S.LEN & LOCAL lfPitchAndFamily$ 54 LOGFONT.INC 00000279 SET DEFAULT.PITCH = 0 55 LOGFONT.INC 00000279 SET FIXED.PITCH = 1 56 LOGFONT.INC 00000279 SET VARIABLE.PITCH = 2 57 LOGFONT.INC 00000279 58 LOGFONT.INC 00000279 SET FF.DONTCARE = 0 ! (0<<4) Don't care or don't know. 59 LOGFONT.INC 00000279 SET FF.ROMAN = 16 ! (1<<4) Variable stroke width, serifed. 60 LOGFONT.INC 00000279 ! Times Roman, Century Schoolbook, etc. 61 LOGFONT.INC 00000279 SET FF.SWISS = 32 ! (2<<4) Variable stroke width, sans-serifed. 62 LOGFONT.INC 00000279 ! Helvetica, Swiss, etc. 63 LOGFONT.INC 00000279 SET FF.MODERN = 48 ! (3<<4) Constant stroke width, serifed or sans-serifed 64 LOGFONT.INC 00000279 ! Pica, Elite, Courier, etc. 65 LOGFONT.INC 00000279 SET FF.SCRIPT = 64 ! (4<<4) Cursive, etc. 66 LOGFONT.INC 00000279 SET FF.DECORATIVE = 80 ! (5<<4) Old English, etc. 67 LOGFONT.INC 00000279 68 LOGFONT.INC 00000279 LENGTH 32 & LOCAL lfFaceName$ 69 LOGFONT.INC 00000279 70 LOGFONT.INC 00000279 LogFont: Format _ 71 LOGFONT.INC 00000279 lfHeight$; _ 72 LOGFONT.INC 0000027E lfWidth$; _ 73 LOGFONT.INC 00000283 lfEscapement$; _ 74 LOGFONT.INC 00000288 lfOrientation$; _ 75 LOGFONT.INC 0000028D lfWeight$; _ 76 LOGFONT.INC 00000292 lfItalic$; _ 77 LOGFONT.INC 00000297 lfUnderline$; _ 78 LOGFONT.INC 0000029C lfStrikeOut$; _ 79 LOGFONT.INC 000002A1 lfCharSet$; _ 80 LOGFONT.INC 000002A6 lfOutPrecision$; _ 81 LOGFONT.INC 000002AB lfClipPrecision$; _ 82 LOGFONT.INC 000002B0 lfQuality$; _ 83 LOGFONT.INC 000002B5 lfPitchAndFamily$; _ 84 LOGFONT.INC 000002BA lfFaceName$ 85 LOGFONT.INC 000002C0 86 LOGFONT.INC 000002C0 FMT.SelectFont: Format (SelectFont); _ 87 LOGFONT.INC 000002C4 lfHeight$; _ 88 LOGFONT.INC 000002C9 lfWidth$; _ 89 LOGFONT.INC 000002CE lfEscapement$; _ 90 LOGFONT.INC 000002D3 lfOrientation$; _ 91 LOGFONT.INC 000002D8 lfWeight$; _ 92 LOGFONT.INC 000002DD lfItalic$; _ 93 LOGFONT.INC 000002E2 lfUnderline$; _ 94 LOGFONT.INC 000002E7 lfStrikeOut$; _ 95 LOGFONT.INC 000002EC lfCharSet$; _ 96 LOGFONT.INC 000002F1 lfOutPrecision$; _ 97 LOGFONT.INC 000002F6 lfClipPrecision$; _ 98 LOGFONT.INC 000002FB lfQuality$; _ 99 LOGFONT.INC 00000300 lfPitchAndFamily$; _ 100 LOGFONT.INC 00000305 lfFaceName$ 101 LOGFONT.INC 0000030B .ENDIF 102 LOGFONT.INC 0000030B 52 QE6B.IBS 0000030B 53 QE6B.IBS 0000030B INCLUDE 'PrintCtl.Inc' 1 PRINTCTL.INC 0000030B .IFNDEF PRINTERCTL.DEFINED 2 PRINTCTL.INC 0000030B SET PRINTERCTL.DEFINED = 1 3 PRINTCTL.INC 0000030B 4 PRINTCTL.INC 0000030B !======================================================================== 5 PRINTCTL.INC 0000030B ! 6 PRINTCTL.INC 0000030B ! Because of limitations in the compiler the PI.DMPAPERSIZE constants 7 PRINTCTL.INC 0000030B ! have been compiled out. To enable them, include 8 PRINTCTL.INC 0000030B ! SET DEFINE.PAPER.SIZES = 1 in your code 9 PRINTCTL.INC 0000030B ! 10 PRINTCTL.INC 0000030B ! Because of limitations in the compiler the PI.DMDEFAULTSOURCE constants 11 PRINTCTL.INC 0000030B ! have been compiled out. To enable them, include 12 PRINTCTL.INC 0000030B ! SET DEFINE.PAPER.SOURCE = 1 in your code 13 PRINTCTL.INC 0000030B ! 14 PRINTCTL.INC 0000030B !======================================================================== 15 PRINTCTL.INC 0000030B 16 PRINTCTL.INC 0000030B SET TWIPS.PER.INCH = 1440.0 17 PRINTCTL.INC 0000030B 18 PRINTCTL.INC 0000030B SET PtrGETSLAVEPRINTERNAME$ = "@FFE1@" ! Get slave printer name 19 PRINTCTL.INC 0000030B SET PtrSETSLAVEPRINTERINFO$ = "@FFE2@" ! Set slave printer info 20 PRINTCTL.INC 0000030B SET PtrGETSLAVEPRINTERINFO$ = "@FFE3@" ! Get slave printer info 21 PRINTCTL.INC 0000030B SET PtrSETPRINTERINFO$ = "@FFE4@" ! Set printer info 22 PRINTCTL.INC 0000030B SET PtrGETPRINTERINFO$ = "@FFE5@" ! Get printer info 23 PRINTCTL.INC 0000030B SET PtrSETPARTPRINTER$ = "@FFED@" ! Set Windows partition printer 24 PRINTCTL.INC 0000030B SET PtrGETPARTPRINTER$ = "@FFEC@" ! Get Windows partition printer 25 PRINTCTL.INC 0000030B 26 PRINTCTL.INC 0000030B ! FILE (LUN) CTL=xxxx 27 PRINTCTL.INC 0000030B SET PTR.SIDEBANDDATA$ = "@0301@" ! Sideband data follows 28 PRINTCTL.INC 0000030B SET PTR.GETFUNCRESULT$ = "@0302@" ! Stored function return value 29 PRINTCTL.INC 0000030B SET PTR.GETPAGEINFO$ = "@0303@" ! -GetPageInfo(Item) 30 PRINTCTL.INC 0000030B SET PTR.PAGEINFO.PRINTABLESIZE = 0 31 PRINTCTL.INC 0000030B SET PTR.PAGEINFO.PHYSICALSIZE = 1 32 PRINTCTL.INC 0000030B SET PTR.PAGEINFO.PHYSICALOFFSET= 2 33 PRINTCTL.INC 0000030B SET PTR.PAGEINFO.LOGPIXELS = 3 34 PRINTCTL.INC 0000030B SET PTR.GETBKMODE$ = "@0304@" ! -GetBkMode() 35 PRINTCTL.INC 0000030B SET PTR.GETROP2$ = "@030B@" ! -GetROP2() 36 PRINTCTL.INC 0000030B SET PTR.GETTEXTALIGN$ = "@0305@" ! -GetTextAlign() 37 PRINTCTL.INC 0000030B SET PTR.GETBKCOLOR$ = "@0306@" ! -GetBkColor() 38 PRINTCTL.INC 0000030B SET PTR.GETTEXTCOLOR$ = "@0307@" ! -GetTextColor() 39 PRINTCTL.INC 0000030B SET PTR.GETFONTINFO$ = "@0308@" ! -GetFontInfo(nParam) 40 PRINTCTL.INC 0000030B SET PTR.FONT.HEIGHT = 0 41 PRINTCTL.INC 0000030B SET PTR.FONT.EXTLEADING = 1 42 PRINTCTL.INC 0000030B SET PTR.FONT.AVECHARWIDTH = 2 43 PRINTCTL.INC 0000030B SET PTR.FONT.MAXCHARWIDTH = 3 44 PRINTCTL.INC 0000030B SET PTR.FONT.WEIGHT = 4 45 PRINTCTL.INC 0000030B SET PTR.GETTEXTEXTENT$ = "@0309@" ! -GetTextExtent(lpszString) 46 PRINTCTL.INC 0000030B SET PTR.SELECTSYSFONT$ = "@030A@" ! -SelectSystemFont(BYTE FontNum); 47 PRINTCTL.INC 0000030B 48 PRINTCTL.INC 0000030B SET SB.SELECTFONT$ = "@01@" ! SelectFont(pLogFont) 49 PRINTCTL.INC 0000030B SET SB.SELECTPEN$ = "@02@" ! SelectPen(nPenStyle, nWidth, crColor) 50 PRINTCTL.INC 0000030B SET PS.SOLID = 0 51 PRINTCTL.INC 0000030B SET PS.DASH = 1 52 PRINTCTL.INC 0000030B SET PS.DOT = 2 53 PRINTCTL.INC 0000030B SET PS.DASHDOT = 3 54 PRINTCTL.INC 0000030B SET PS.DASHDOTDOT = 4 55 PRINTCTL.INC 0000030B SET PS.NULL = 5 56 PRINTCTL.INC 0000030B SET PS.INSIDEFRAME = 6 57 PRINTCTL.INC 0000030B 58 PRINTCTL.INC 0000030B SET SB.SELECTSOLIDBRUSH$ = "@03@" ! SelectSolidBrush(crColor) 59 PRINTCTL.INC 0000030B SET SB.SELECTHATCHBRUSH$ = "@04@" ! SelectHatchBrush(nStyle, crColor) 60 PRINTCTL.INC 0000030B SET HS.HORIZONTAL = 0 61 PRINTCTL.INC 0000030B SET HS.VERTICAL = 1 62 PRINTCTL.INC 0000030B SET HS.FDIAGONAL = 2 63 PRINTCTL.INC 0000030B SET HS.BDIAGONAL = 3 64 PRINTCTL.INC 0000030B SET HS.CROSS = 4 65 PRINTCTL.INC 0000030B SET HS.DIAGCROSS = 5 66 PRINTCTL.INC 0000030B 67 PRINTCTL.INC 0000030B SET SB.SETTEXTCOLOR$ = "@05@" ! SetTextColor(crColor) 68 PRINTCTL.INC 0000030B SET SB.SETBKCOLOR$ = "@06@" ! SetBkColor(crColor) 69 PRINTCTL.INC 0000030B SET SB.SETBKMODE$ = "@07@" ! SetBkMode(nBkMode) 70 PRINTCTL.INC 0000030B SET BKM.TRANSPARENT = 1 71 PRINTCTL.INC 0000030B SET BKM.OPAQUE = 2 72 PRINTCTL.INC 0000030B 73 PRINTCTL.INC 0000030B SET SB.MOVETO$ = "@08@" ! MoveTo(x, y) 74 PRINTCTL.INC 0000030B SET SB.LINETO$ = "@09@" ! LineTo(x, y) 75 PRINTCTL.INC 0000030B SET SB.ELLIPSE$ = "@0A@" ! Ellipse(x1, y1, x2, y2) 76 PRINTCTL.INC 0000030B SET SB.RECTANGLE$ = "@0B@" ! Rectangle(x1, y1, x2, y2) 77 PRINTCTL.INC 0000030B SET SB.ROUNDRECT$ = "@0C@" ! RoundRect(x1, y1, x2, y2, x3, y3) 78 PRINTCTL.INC 0000030B SET SB.TEXTOUT$ = "@0D@" ! TextOut(x, y, szString) 79 PRINTCTL.INC 0000030B SET SB.SETTEXTALIGN$ = "@0E@" ! SetTextAlign(nFlags) 80 PRINTCTL.INC 0000030B SET TA.NOUPDATECP = 0 81 PRINTCTL.INC 0000030B SET TA.UPDATECP = 1 82 PRINTCTL.INC 0000030B SET TA.LEFT = 0 83 PRINTCTL.INC 0000030B SET TA.RIGHT = 2 84 PRINTCTL.INC 0000030B SET TA.CENTER = 6 85 PRINTCTL.INC 0000030B SET TA.TOP = 0 86 PRINTCTL.INC 0000030B SET TA.BOTTOM = 8 87 PRINTCTL.INC 0000030B SET TA.BASELINE = 24 88 PRINTCTL.INC 0000030B 89 PRINTCTL.INC 0000030B SET SB.SETPRINTERINFO$ = "@0F@" ! SetPrinterInfo(nIndex, nParam) 90 PRINTCTL.INC 0000030B SET PI.DMORIENTATION = 0 91 PRINTCTL.INC 0000030B SET DMORIENT.PORTRAIT = 1 92 PRINTCTL.INC 0000030B SET DMORIENT.LANDSCAPE = 2 93 PRINTCTL.INC 0000030B SET PI.DMPAPERSIZE = 1 94 PRINTCTL.INC 0000030B .IFDEF DEFINE.PAPER.SIZES 163 PRINTCTL.INC 0000030B .ENDIF ! DEFINE.PAPER.SIZES 164 PRINTCTL.INC 0000030B 165 PRINTCTL.INC 0000030B SET PI.DMPAPERLENGTH = 2 166 PRINTCTL.INC 0000030B SET PI.DMPAPERWIDTH = 3 167 PRINTCTL.INC 0000030B SET PI.DMSCALE = 4 168 PRINTCTL.INC 0000030B SET PI.DMPRINTQUALITY = 5 169 PRINTCTL.INC 0000030B SET DMRES.DRAFT = 65535 ! -1 170 PRINTCTL.INC 0000030B SET DMRES.LOW = 65534 ! -2 171 PRINTCTL.INC 0000030B SET DMRES.MEDIUM = 65533 ! -3 172 PRINTCTL.INC 0000030B SET DMRES.HIGH = 65532 ! -4 173 PRINTCTL.INC 0000030B 174 PRINTCTL.INC 0000030B SET PI.DMCOLOR = 6 175 PRINTCTL.INC 0000030B SET DMCOLOR.MONOCHROME = 1 176 PRINTCTL.INC 0000030B SET DMCOLOR.COLOR = 2 177 PRINTCTL.INC 0000030B 178 PRINTCTL.INC 0000030B SET PI.DMCOLLATE = 7 179 PRINTCTL.INC 0000030B SET DMCOLLATE.FALSE = 0 180 PRINTCTL.INC 0000030B SET DMCOLLATE.TRUE = 1 181 PRINTCTL.INC 0000030B 182 PRINTCTL.INC 0000030B SET PI.DMDEFAULTSOURCE = 8 183 PRINTCTL.INC 0000030B .IFDEF DEFINE.PAPER.SOURCE 198 PRINTCTL.INC 0000030B .ENDIF ! DEFINE.PAPER.SOURCE 199 PRINTCTL.INC 0000030B SET SB.DRAWTEXT$ = "@10@" ! DrawText(szString, -1, Rect, Format) 200 PRINTCTL.INC 0000030B SET SB.DRAWBITMAP$ = "@11@" ! DrawBitmap(left, top, right, bottom, flags, filename) 201 PRINTCTL.INC 0000030B SET SB.DRAWBITMAPIND$ = "@12@" ! DrawBitmapInd(left, top, right, bottom, flags, filename) 202 PRINTCTL.INC 0000030B SET BMR.FIT.TO.RECT = 1 203 PRINTCTL.INC 0000030B SET BMR.CENTER.HZ.RECT = 2 204 PRINTCTL.INC 0000030B SET BMR.CENTER.VT.RECT = 4 205 PRINTCTL.INC 0000030B SET BMR.SCALE = 8 206 PRINTCTL.INC 0000030B SET BMR.BEGIN.BMP.DATA = 16 207 PRINTCTL.INC 0000030B 208 PRINTCTL.INC 0000030B SET PI.DMCOPIES = 9 209 PRINTCTL.INC 0000030B SET PI.DMDUPLEX = 10 210 PRINTCTL.INC 0000030B ! duplex enable 211 PRINTCTL.INC 0000030B SET DMDUP.SIMPLEX = 1 212 PRINTCTL.INC 0000030B SET DMDUP.VERTICAL = 2 213 PRINTCTL.INC 0000030B SET DMDUP.HORIZONTAL = 3 214 PRINTCTL.INC 0000030B 215 PRINTCTL.INC 0000030B SET SB.SELECTSYSFONT$ = "@13@" ! -SelectSystemFont(BYTE FontNum); 216 PRINTCTL.INC 0000030B SET SB.GETPAGEINFO$ = "@14@" ! -GetPageInfo(Item) 217 PRINTCTL.INC 0000030B SET SB.GETFONTINFO$ = "@15@" ! -GetFontInfo(nParam) 218 PRINTCTL.INC 0000030B SET SB.GETTEXTEXTENT$ = "@16@" ! -GetTextExtent(lpszString) 219 PRINTCTL.INC 0000030B SET SB.GETBKMODE$ = "@17@" ! -GetBkMode() 220 PRINTCTL.INC 0000030B SET SB.GETTEXTALIGN$ = "@18@" ! -GetTextAlign() 221 PRINTCTL.INC 0000030B SET SB.GETBKCOLOR$ = "@19@" ! -GetBkColor() 222 PRINTCTL.INC 0000030B SET SB.GETTEXTCOLOR$ = "@1A@" ! -GetTextColor() 223 PRINTCTL.INC 0000030B SET SB.PUSHFONT$ = "@1B@" ! -PushFont() 224 PRINTCTL.INC 0000030B SET SB.POPFONT$ = "@1C@" ! -PopFont() 225 PRINTCTL.INC 0000030B SET SB.GETROP2$ = "@1D@" ! -GetROP2() 226 PRINTCTL.INC 0000030B SET SB.SETROP2$ = "@1E@" ! -SetROP2(nROP2) 227 PRINTCTL.INC 0000030B SET SB.LINESPACE$ = "@1F@" ! -SetLineSpacing(LinesPerInch) 228 PRINTCTL.INC 0000030B 229 PRINTCTL.INC 0000030B .IFNDEF DRAW.TEXT.DEFINED 230 PRINTCTL.INC 0000030B SET DRAW.TEXT.DEFINED = 1 231 PRINTCTL.INC 0000030B ! 232 PRINTCTL.INC 0000030B ! These constants are duplicated in #windows 233 PRINTCTL.INC 0000030B ! DrawText() Format Flags 234 PRINTCTL.INC 0000030B SET DT.TOP = 0 235 PRINTCTL.INC 0000030B SET DT.LEFT = 0 236 PRINTCTL.INC 0000030B SET DT.CENTER = 1 237 PRINTCTL.INC 0000030B SET DT.RIGHT = 2 238 PRINTCTL.INC 0000030B SET DT.VCENTER = 4 239 PRINTCTL.INC 0000030B SET DT.BOTTOM = 8 240 PRINTCTL.INC 0000030B SET DT.WORDBREAK = 16 241 PRINTCTL.INC 0000030B SET DT.SINGLELINE = 32 242 PRINTCTL.INC 0000030B SET DT.EXPANDTABS = 64 243 PRINTCTL.INC 0000030B SET DT.TABSTOP = 128 244 PRINTCTL.INC 0000030B SET DT.NOCLIP = 256 245 PRINTCTL.INC 0000030B SET DT.EXTERNALLEADING = 512 246 PRINTCTL.INC 0000030B SET DT.CALCRECT = 1024 247 PRINTCTL.INC 0000030B SET DT.NOPREFIX = 2048 248 PRINTCTL.INC 0000030B SET DT.INTERNAL = 4096 249 PRINTCTL.INC 0000030B SET DT.EDITCONTROL = 8192 250 PRINTCTL.INC 0000030B SET DT.PATH.ELLIPSIS = 16384 251 PRINTCTL.INC 0000030B SET DT.END.ELLIPSIS = 32768 252 PRINTCTL.INC 0000030B SET DT.MODIFYSTRING = 65536 253 PRINTCTL.INC 0000030B SET DT.RTLREADING = 131072 254 PRINTCTL.INC 0000030B SET DT.WORD.ELLIPSIS = 262144 255 PRINTCTL.INC 0000030B .ENDIF 256 PRINTCTL.INC 0000030B 257 PRINTCTL.INC 0000030B .ENDIF ! PRINTERCTL.DEFINED 258 PRINTCTL.INC 0000030B 54 QE6B.IBS 0000030B 55 QE6B.IBS 0000030B INCLUDE 'FileFind.Inc' ! SEARCHES DABS FOR FILE 1 FILEFIND.INC 0000030B .IFNDEF FILFNDD.DEFINED 2 FILEFIND.INC 0000030B SET FILFNDD.DEFINED = 1 3 FILEFIND.INC 0000030B Include "CosUtl.Inc", "Wdl" 1 COSUTL.INC 0000030B ! Only include this stuff 1 time 2 COSUTL.INC 0000030B .IFNDEF COSUTLD.DEFINED 68 COSUTL.INC 0000030B .ENDIF ! COSUTLD.DEFINED 69 COSUTL.INC 0000030B 4 FILEFIND.INC 0000030B 5 FILEFIND.INC 0000030B LENGTH 2.0 & LOCAL cosDAB 6 FILEFIND.INC 0000030B LENGTH 3 & LOCAL cosDirNames$ 7 FILEFIND.INC 0000030B LENGTH MAX.STRING.LEN & LOCAL cosFileNames$ 8 FILEFIND.INC 0000030B LENGTH MAX.STRING.LEN & LOCAL cosFileSpec$ 9 FILEFIND.INC 0000030B LENGTH MAX.STRING.LEN & LOCAL cosDTA$ 10 FILEFIND.INC 0000030B 11 FILEFIND.INC 0000030B .IFNDEF COSREGS.DEFINED 12 FILEFIND.INC 0000030B SET COSREGS.DEFINED = 1 13 FILEFIND.INC 0000030B LENGTH 2 & LOCAL cosAX$ 14 FILEFIND.INC 0000030B LENGTH 2 & LOCAL cosBX$ 15 FILEFIND.INC 0000030B LENGTH 2 & LOCAL cosCX$ 16 FILEFIND.INC 0000030B LENGTH 2 & LOCAL cosDX$ 17 FILEFIND.INC 0000030B .ENDIF 18 FILEFIND.INC 0000030B .IFNDEF SYSDATA.DEFINED 19 FILEFIND.INC 0000030B SET SYSDATA.DEFINED = 1 20 FILEFIND.INC 0000030B LENGTH MAX.STRING.LEN & LOCAL cosSysData$ ! Used by low level subs 21 FILEFIND.INC 0000030B LENGTH 3.0 & LOCAL cosSysDataLen 22 FILEFIND.INC 0000030B cosSysDataStruct: Format cosSysData$ 23 FILEFIND.INC 00000311 .ENDIF 24 FILEFIND.INC 00000311 .ENDIF 25 FILEFIND.INC 00000311 56 QE6B.IBS 00000311 57 QE6B.IBS 00000311 INCLUDE "^COSFMT.INC" 1 ^COSFMT.INC 00000311 !===================================================== 2 ^COSFMT.INC 00000311 ! Measurement constants 3 ^COSFMT.INC 00000311 !===================================================== 4 ^COSFMT.INC 00000311 ! 5 ^COSFMT.INC 00000311 SET RECT.HEIGHT = 4580 ! 3.125 inches 6 ^COSFMT.INC 00000311 SET THIN.PEN.WIDTH = 15 7 ^COSFMT.INC 00000311 SET TWIP.INCH = 1440 8 ^COSFMT.INC 00000311 SET TWIP.THREEQTINCH = 1080 9 ^COSFMT.INC 00000311 SET TWIP.HALFINCH = 720 10 ^COSFMT.INC 00000311 SET TWIP.QUARTERINCH = 360 11 ^COSFMT.INC 00000311 SET TWIP.EIGTHINCH = 180 12 ^COSFMT.INC 00000311 SET TWIP.SIXTEENINCH = 90 13 ^COSFMT.INC 00000311 SET TWIP.THIRTY2INCH = 45 14 ^COSFMT.INC 00000311 ! 15 ^COSFMT.INC 00000311 !===================================================== 16 ^COSFMT.INC 00000311 ! Printer Variables 17 ^COSFMT.INC 00000311 !===================================================== 18 ^COSFMT.INC 00000311 ! 19 ^COSFMT.INC 00000311 LENGTH MAX.STRING.LEN & LOCAL DATA$ ! For passing data to server 20 ^COSFMT.INC 00000311 ! 21 ^COSFMT.INC 00000311 LENGTH 2 & LOCAL LOWORD$, HIWORD$, MISCWORD$ 22 ^COSFMT.INC 00000311 LENGTH WORD.N.LEN & LOCAL LORESULT, HIRESULT 23 ^COSFMT.INC 00000311 ! 24 ^COSFMT.INC 00000311 LENGTH WORD.N.LEN & LOCAL PAGEWIDTH, PAGEHEIGHT 25 ^COSFMT.INC 00000311 LENGTH WORD.N.LEN & LOCAL PAGECENTERPOS 26 ^COSFMT.INC 00000311 LENGTH WORD.N.LEN & LOCAL LINEHEIGHT, CHARWIDTH 27 ^COSFMT.INC 00000311 LENGTH WORD.N.LEN & LOCAL RECTLEFT,RECTTOP,RECTRIGHT,RECTBOTTOM 28 ^COSFMT.INC 00000311 LENGTH WORD.N.LEN & LOCAL RECTWIDTH, RECTHEIGHT 29 ^COSFMT.INC 00000311 ! 30 ^COSFMT.INC 00000311 LENGTH WORD.N.LEN & LOCAL PX1, PY1 31 ^COSFMT.INC 00000311 LENGTH WORD.N.LEN & LOCAL PX2, PY2 32 ^COSFMT.INC 00000311 LENGTH DWORD.N.LEN & LOCAL FLAGS 33 ^COSFMT.INC 00000311 ! 34 ^COSFMT.INC 00000311 LENGTH 3.0 & LOCAL SHADESOFGRAY 35 ^COSFMT.INC 00000311 ! 36 ^COSFMT.INC 00000311 !============================================================================ 37 ^COSFMT.INC 00000311 ! 38 ^COSFMT.INC 00000311 ! Printer FORMATs 39 ^COSFMT.INC 00000311 ! 40 ^COSFMT.INC 00000311 !============================================================================ 41 ^COSFMT.INC 00000311 ! InitPageInfo FORMATs 42 ^COSFMT.INC 00000311 !============================================================================ 43 ^COSFMT.INC 00000311 ! 44 ^COSFMT.INC 00000311 Fmt.PageInfoPrintable: FORMAT (GetPageInfo = PTR.PAGEINFO.PRINTABLESIZE) 45 ^COSFMT.INC 0000031B Fmt.PageInfoPhysical: FORMAT (GetPageInfo = PTR.PAGEINFO.PHYSICALSIZE) 46 ^COSFMT.INC 00000325 Fmt.PageInfoPhysOffset: FORMAT (GetPageInfo = PTR.PAGEINFO.PHYSICALOFFSET) 47 ^COSFMT.INC 0000032F ! 48 ^COSFMT.INC 0000032F !============================================================================ 49 ^COSFMT.INC 0000032F ! SetStandardFont FORMATs 50 ^COSFMT.INC 0000032F !============================================================================ 51 ^COSFMT.INC 0000032F ! 52 ^COSFMT.INC 0000032F !!!!!FMT.SELECTFONT: FORMAT (SELECTFONT);DATA$ 53 ^COSFMT.INC 0000032F ! 54 ^COSFMT.INC 0000032F ! 55 ^COSFMT.INC 0000032F !============================================================================ 56 ^COSFMT.INC 0000032F ! CalcLineHeight FORMATs 57 ^COSFMT.INC 0000032F !============================================================================ 58 ^COSFMT.INC 0000032F ! 59 ^COSFMT.INC 0000032F FMT.GETFONTINFOHEIGHT: FORMAT (GETFONTINFO = PTR.FONT.HEIGHT) 60 ^COSFMT.INC 00000339 FMT.GETFONTINFOLEADING: FORMAT (GETFONTINFO = PTR.FONT.EXTLEADING) 61 ^COSFMT.INC 00000343 FMT.GETFONTINFOWIDTH: FORMAT (GETFONTINFO = PTR.FONT.MAXCHARWIDTH) 62 ^COSFMT.INC 0000034D ! 63 ^COSFMT.INC 0000034D !============================================================================ 64 ^COSFMT.INC 0000034D ! Line drawing FORMATs 65 ^COSFMT.INC 0000034D !============================================================================ 66 ^COSFMT.INC 0000034D ! 67 ^COSFMT.INC 0000034D FMT.MOVETO: FORMAT (MOVETO = PX1, PY1) 68 ^COSFMT.INC 0000035B FMT.LINETO: FORMAT (LINETO = PX1, PY1) 69 ^COSFMT.INC 00000369 !============================================================================ 70 ^COSFMT.INC 00000369 ! DrawRectangle FORMATs 71 ^COSFMT.INC 00000369 !============================================================================ 72 ^COSFMT.INC 00000369 ! 73 ^COSFMT.INC 00000369 Fmt.SelectThinPen: FORMAT (SelectPen = PS.SOLID, THIN.PEN.WIDTH, 0, 0, 0) 74 ^COSFMT.INC 00000383 FMT.SELECTNULLPEN: FORMAT (SELECTPEN = PS.NULL, 0, 0, 0, 0) 75 ^COSFMT.INC 0000039D FMT.SELECTGRAYBRUSH: FORMAT (SELECTSOLIDBRUSH = SHADESOFGRAY,_ 76 ^COSFMT.INC 0000039D SHADESOFGRAY,_ 77 ^COSFMT.INC 0000039D SHADESOFGRAY) 78 ^COSFMT.INC 000003AF FMT.SELECTWHITEBRUSH: FORMAT (SELECTSOLIDBRUSH = 255, 255, 255) 79 ^COSFMT.INC 000003C1 Fmt.Rectangle: FORMAT (Rectangle = RectLeft, RectTop, RectRight, RectBottom) 80 ^COSFMT.INC 000003D7 FMT.SETREDTEXT: FORMAT (SETTEXTCOLOR = 255, 0, 0) 81 ^COSFMT.INC 000003E9 Fmt.SETBLACKTEXT: FORMAT (SETTEXTCOLOR = 0, 0, 0) 82 ^COSFMT.INC 000003FB Fmt.TEXTALIGNLEFT: FORMAT (SETTEXTALIGN = TA.LEFT) 83 ^COSFMT.INC 00000405 FMT.TEXTALIGNCENTER: FORMAT (SETTEXTALIGN = TA.CENTER) 84 ^COSFMT.INC 0000040F FMT.TEXTALIGNRIGHT: FORMAT (SETTEXTALIGN = TA.RIGHT) 85 ^COSFMT.INC 00000419 FMT.SETBKMODETRANSPARENT: FORMAT (SETBKMODE = BKM.TRANSPARENT) 86 ^COSFMT.INC 00000423 FMT.SETBKMODEOPAQUE: FORMAT (SETBKMODE = BKM.OPAQUE) 87 ^COSFMT.INC 0000042D FMT.TEXTOUT: FORMAT (TEXTOUT = PX1, PY1);DATA$;NULLBYTE$ 88 ^COSFMT.INC 00000445 !=============================================================================== 89 ^COSFMT.INC 00000445 ! DrawBitmap FORMATs 90 ^COSFMT.INC 00000445 FMT.DRAWBITMAP: FORMAT (DRAWBITMAP = RECTLEFT, RECTTOP, _ 91 ^COSFMT.INC 00000445 RECTRIGHT, RECTBOTTOM, _ 92 ^COSFMT.INC 00000445 TWIPS.PER.INCH, TWIPS.PER.INCH, _ 93 ^COSFMT.INC 00000445 FLAGS);DATA$ 94 ^COSFMT.INC 0000046C !=============================================================================== 95 ^COSFMT.INC 0000046C ! GetResultFORMATs 96 ^COSFMT.INC 0000046C FMT.GETFUNCRESULT: FORMAT (GETFUNCRESULT) 97 ^COSFMT.INC 00000471 FMT.RESULT: FORMAT LOWORD$;HIWORD$ 98 ^COSFMT.INC 0000047C !=============================================================================== 99 ^COSFMT.INC 0000047C ! Set system font upon return 100 ^COSFMT.INC 0000047C FMT.SELECTSYSFONT0: FORMAT (SELECTSYSFONT = 0) 101 ^COSFMT.INC 00000486 FMT.SELECTSYSFONT1: FORMAT (SELECTSYSFONT = 1) 102 ^COSFMT.INC 00000490 FMT.SELECTSYSFONT2: FORMAT (SELECTSYSFONT = 2) 103 ^COSFMT.INC 0000049A FMT.SELECTSYSFONT10: FORMAT (SELECTSYSFONT = 10) 104 ^COSFMT.INC 000004A4 FMT.SELECTSYSFONT11: FORMAT (SELECTSYSFONT = 11) 105 ^COSFMT.INC 000004AE FMT.SELECTSYSFONT12: FORMAT (SELECTSYSFONT = 12) 106 ^COSFMT.INC 000004B8 FMT.SELECTSYSFONT13: FORMAT (SELECTSYSFONT = 13) 107 ^COSFMT.INC 000004C2 FMT.SELECTSYSFONT14: FORMAT (SELECTSYSFONT = 14) 108 ^COSFMT.INC 000004CC FMT.SELECTSYSFONT15: FORMAT (SELECTSYSFONT = 15) 109 ^COSFMT.INC 000004D6 FMT.SELECTSYSFONT16: FORMAT (SELECTSYSFONT = 16) 110 ^COSFMT.INC 000004E0 FMT.SELECTSYSFONT17: FORMAT (SELECTSYSFONT = 17) 111 ^COSFMT.INC 000004EA FMT.SELECTSYSFONT18: FORMAT (SELECTSYSFONT = 18) 112 ^COSFMT.INC 000004F4 FMT.SELECTSYSFONT19: FORMAT (SELECTSYSFONT = 19) 113 ^COSFMT.INC 000004FE FMT.SELECTSYSFONT20: FORMAT (SELECTSYSFONT = 20) 114 ^COSFMT.INC 00000508 !=============================================================================== 115 ^COSFMT.INC 00000508 ! Set Printer Information 116 ^COSFMT.INC 00000508 !!!!!FMT.SETPRINTERINFO: FORMAT (SETPRINTERINFO = PI.DMCOPIES, COPY) 117 ^COSFMT.INC 00000508 ! 118 ^COSFMT.INC 00000508 !===================================================== 119 ^COSFMT.INC 00000508 ! Driver Interface FORMATs and Variables 120 ^COSFMT.INC 00000508 !===================================================== 121 ^COSFMT.INC 00000508 ! 122 ^COSFMT.INC 00000508 LENGTH 3.0 & Local LUN 123 ^COSFMT.INC 00000508 LENGTH 3.0 & Local FUNCTION 124 ^COSFMT.INC 00000508 ! 58 QE6B.IBS 00000508 ! 59 QE6B.IBS 00000508 INCLUDE '^PO(P).INC' 1 ^PO(P).INC 00000508 ! 2 ^PO(P).INC 00000508 !+++++++++++++++++++++++++++++++++ ^PO(P) ++++++++++++++++++++++++++++++++++ 3 ^PO(P).INC 00000508 .IF DECPASS ! BEGIN DECLARATION PASS 4 ^PO(P).INC 00000508 ! 5 ^PO(P).INC 00000508 LENGTH 1 & LOCAL PSRC$, STAT$ 6 ^PO(P).INC 00000508 LENGTH 2.0 & LOCAL LINE 7 ^PO(P).INC 00000508 LENGTH 1.0 & LOCAL CFLAG 8 ^PO(P).INC 00000508 LENGTH 3.0 & LOCAL PAGE, L, SLASH 9 ^PO(P).INC 00000508 LENGTH 6.0 & LOCAL X1, Y1, XOFF, YOFF 10 ^PO(P).INC 00000508 LENGTH 9 & LOCAL PCR1$, PCR2$, PCR3$ 11 ^PO(P).INC 00000508 LENGTH 9.2 & LOCAL POTAX, POTOT, QEXT 12 ^PO(P).INC 00000508 LENGTH 20 & LOCAL COPYNAME$ 13 ^PO(P).INC 00000508 LENGTH 26 & LOCAL VATN$, ZATN$ 14 ^PO(P).INC 00000508 LENGTH 55 & LOCAL EXTDET1$, EXTDET2$ 15 ^PO(P).INC 00000508 LENGTH 70 & LOCAL EXTDET3$ 16 ^PO(P).INC 00000508 LENGTH 252 & LOCAL LOGOFILE$, SIGFILE$ 17 ^PO(P).INC 00000508 18 ^PO(P).INC 00000508 LENGTH 25 & LOCAL PCITY1$, PCITY2$ 19 ^PO(P).INC 00000508 LENGTH 25 & LOCAL PPHONE1$, PPHONE2$ 20 ^PO(P).INC 00000508 LENGTH 25 & LOCAL PFAX1$, PFAX2$ 21 ^PO(P).INC 00000508 22 ^PO(P).INC 00000508 ROUND POTAX, QEXT 23 ^PO(P).INC 00000508 24 ^PO(P).INC 00000508 ! PRINT LAYOUT FOR PURCHASE ORDER 25 ^PO(P).INC 00000508 ! 26 ^PO(P).INC 00000508 2810 FORMAT_ 27 ^PO(P).INC 00000508 @(39);COPYNAME$;_ 28 ^PO(P).INC 00000512 @(61);PCR1$;_ 29 ^PO(P).INC 0000051C (CR);_ 30 ^PO(P).INC 00000520 @(61);PCR2$;_ 31 ^PO(P).INC 00000529 @(96);QPNBR$;_ 32 ^PO(P).INC 00000532 (CR);_ 33 ^PO(P).INC 00000536 @(61);PCR3$;_ 34 ^PO(P).INC 0000053F (SL=1);_ 35 ^PO(P).INC 00000548 @(40);QVNAME$;_ 36 ^PO(P).INC 00000551 @(75);QZNAME$;_ 37 ^PO(P).INC 0000055A (CR);_ 38 ^PO(P).INC 0000055E @(40);QVADR1$;_ 39 ^PO(P).INC 00000567 @(75);QZADR1$;_ 40 ^PO(P).INC 00000570 (CR);_ 41 ^PO(P).INC 00000574 @(40);QVADR2$;_ 42 ^PO(P).INC 0000057D @(75);QZADR2$;_ 43 ^PO(P).INC 00000586 (CR);_ 44 ^PO(P).INC 0000058A @(40);QVCITY$;' ';QVSTATE$;' ';QVZIP$;_ 45 ^PO(P).INC 000005A7 @(75);QZCITY$;' ';QZSTATE$;' ';QZZIP$;_ 46 ^PO(P).INC 000005C4 (CR);_ 47 ^PO(P).INC 000005C8 @(40);VATN$;_ 48 ^PO(P).INC 000005D1 @(75);ZATN$;_ 49 ^PO(P).INC 000005DA (SL=2) 50 ^PO(P).INC 000005E4 2811 FORMAT_ 51 ^PO(P).INC 000005E4 @(2);QPDATE$;_ 52 ^PO(P).INC 000005EE @(16);QDUEDATE$;_ 53 ^PO(P).INC 000005F8 @(29);QFOB$;_ 54 ^PO(P).INC 00000602 @(48);QSHPVIA$;_ 55 ^PO(P).INC 0000060C @(63);QTERM$;_ 56 ^PO(P).INC 00000616 @(82);QBUYER$;_ 57 ^PO(P).INC 00000620 @(88);QACK$;_ 58 ^PO(P).INC 0000062A @(92);QPTD$;_ 59 ^PO(P).INC 00000634 @(97);QSLSTX 60 ^PO(P).INC 0000063F 2812 FORMAT_ 61 ^PO(P).INC 0000063F @(8);'Supplier shall furnish written certification for ';(CR);_ 62 ^PO(P).INC 0000064D @(8);'chemical composition and mechanical properties ';(CR);_ 63 ^PO(P).INC 0000065A @(8);'traceable to heat lot or batch number. The material ';(CR);_ 64 ^PO(P).INC 00000667 @(8);'certification data reports shall include quantitative ';(CR);_ 65 ^PO(P).INC 00000674 @(8);'data whcih shall be traceable to the material through ';(CR);_ 66 ^PO(P).INC 00000681 @(8);'unique trace codes marked on both materials and reports.';_ 67 ^PO(P).INC 0000068A (SL=1) 68 ^PO(P).INC 00000694 2820 FORMAT_ 69 ^PO(P).INC 00000694 @(2);QLINE$;_ 70 ^PO(P).INC 0000069E @(8);QDESC$;_ 71 ^PO(P).INC 000006A8 @(39);QSIZE$;_ 72 ^PO(P).INC 000006B2 @(64);QORD;_ 73 ^PO(P).INC 000006BC @(74);QUNIT$;_ 74 ^PO(P).INC 000006C6 @(80);QCOST;_ 75 ^PO(P).INC 000006D0 @(93);QEXT 76 ^PO(P).INC 000006DB 2821 FORMAT @(8);EXTDET1$ 77 ^PO(P).INC 000006E6 2822 FORMAT @(8);EXTDET2$ 78 ^PO(P).INC 000006F1 2825 FORMAT @(8);'*** CERTIFICATION REQUIRED ***' 79 ^PO(P).INC 000006FC 2830 FORMAT_ 80 ^PO(P).INC 000006FC @(2);QLINE$;_ 81 ^PO(P).INC 00000706 @(8);'** DELETED **' 82 ^PO(P).INC 00000711 2831 FORMAT_ 83 ^PO(P).INC 00000711 @(2);QLINE$;_ 84 ^PO(P).INC 0000071B @(8);'** COMPLETED **' 85 ^PO(P).INC 00000726 2840 FORMAT @(12);QLCOMM$ 86 ^PO(P).INC 00000731 2850 FORMAT_ 87 ^PO(P).INC 00000731 (SL=1);_ 88 ^PO(P).INC 0000073A @(8);'------------------ P/O COMMENTS ------------------' 89 ^PO(P).INC 00000744 2851 FORMAT_ 90 ^PO(P).INC 00000744 @(8);QCOMM$ 91 ^PO(P).INC 0000074F 2861 FORMAT_ 92 ^PO(P).INC 0000074F (SL=1);_ 93 ^PO(P).INC 00000758 @(8);'This Purchase Order hereby invokes the following ILS ';(CR);_ 94 ^PO(P).INC 00000765 @(8);'requirements for Vendor Technical Manual Worthy ';(CR);_ 95 ^PO(P).INC 00000772 @(8);'Equipment, as per attachment.' 96 ^PO(P).INC 0000077C 2862 FORMAT_ 97 ^PO(P).INC 0000077C (SL=1);_ 98 ^PO(P).INC 00000785 @(8);'This Purchase Order hereby invokes the following ILS ';(CR);_ 99 ^PO(P).INC 00000792 @(8);'requirements for Comercial-Off-The-Shelf Technical ';(CR);_ 100 ^PO(P).INC 0000079F @(8);'manuals, (COTS), as per attachment.' 101 ^PO(P).INC 000007A9 2863 FORMAT_ 102 ^PO(P).INC 000007A9 (SL=1);_ 103 ^PO(P).INC 000007B2 @(8);'This Purchase Order hereby invokes the following ILS ';(CR);_ 104 ^PO(P).INC 000007BF @(8);'requirements for APR Page Extension to existing ';(CR);_ 105 ^PO(P).INC 000007CC @(8);'Navy-Approved Technical Manual, as per attachment.' 106 ^PO(P).INC 000007D6 2864 FORMAT_ 107 ^PO(P).INC 000007D6 (SL=1);_ 108 ^PO(P).INC 000007DF @(8);'This Purchase Order hereby invokes the following ILS ';(CR);_ 109 ^PO(P).INC 000007EC @(8);'requirements for an Engineering Data Package, as per ';(CR);_ 110 ^PO(P).INC 000007F9 @(8);'attachment.' 111 ^PO(P).INC 00000803 !!! 2865 FORMAT_ 112 ^PO(P).INC 00000803 !!! (SL=1);_ 113 ^PO(P).INC 00000803 !!! @(8);'This Purchase Order hereby invokes the following ILS ';(CR);_ 114 ^PO(P).INC 00000803 !!! @(8);'requirements for an Approved, Compliant Technical ';(CR);_ 115 ^PO(P).INC 00000803 !!! @(8);'Manual, as per attachment' 116 ^PO(P).INC 00000803 2865 FORMAT_ 117 ^PO(P).INC 00000803 (SL=1);_ 118 ^PO(P).INC 0000080C @(8);'Has existing Technical Manual.' 119 ^PO(P).INC 00000816 2870 FORMAT_ 120 ^PO(P).INC 00000816 (SL=1);_ 121 ^PO(P).INC 0000081F @(8);'For contractor purchased weld filler metal, PACSHIP ';(CR);_ 122 ^PO(P).INC 0000082C @(8);'will use Military Specification Material (MIL-SPECS) on';(CR);_ 123 ^PO(P).INC 00000839 @(8);'all government contracts unless it is found to be ';(CR);_ 124 ^PO(P).INC 00000846 @(8);'unavailable, at which time all Non-MIL-SPEC weld filler';(CR);_ 125 ^PO(P).INC 00000853 @(8);'metal will meet the requirements listed below. ';_ 126 ^PO(P).INC 0000085C (SL=1);_ 127 ^PO(P).INC 00000865 @(8);'Filler metals shall meet all classification and lot ';(CR);_ 128 ^PO(P).INC 00000872 @(8);'conformance testing specified in accordance with ';(CR);_ 129 ^PO(P).INC 0000087F @(8);'ANSI/AWS A5.01 Filler Procurement Guidelines, and meet ';(CR);_ 130 ^PO(P).INC 0000088C @(8);'the schedule "J" test requirements of Table 1 and the ';(CR);_ 131 ^PO(P).INC 00000899 @(8);'applicable material specification. ' 132 ^PO(P).INC 000008A3 2875 FORMAT_ 133 ^PO(P).INC 000008A3 (SL=1);_ 134 ^PO(P).INC 000008AC @(8);'Requirements for Welding of 5XXX Series Aluminum';(CR);_ 135 ^PO(P).INC 000008B9 @(8);'Structures for CG-47 Class';(CR);_ 136 ^PO(P).INC 000008C6 @(8);'--------------------------------------------------------';(CR);_ 137 ^PO(P).INC 000008D3 @(8);'Material ASTM-B-928/B 928M testing by the manufacturer';(CR);_ 138 ^PO(P).INC 000008E0 @(8);'to include ASTM 667 (NAMLT TEST) and ASTM-G-66';(CR);_ 139 ^PO(P).INC 000008ED @(8);'(ASSET TEST). Supplier to provide a dated test';(CR);_ 140 ^PO(P).INC 000008FA @(8);'certification report. Material described herein has';(CR);_ 141 ^PO(P).INC 00000907 @(8);'been fabricated to the specification of 5086/H116 or';(CR);_ 142 ^PO(P).INC 00000914 @(8);'5456/H116 and required samples have been tested IAW';(CR);_ 143 ^PO(P).INC 00000921 @(8);'requirements of ASTM-B-928.' 144 ^PO(P).INC 0000092B 2876 FORMAT_ 145 ^PO(P).INC 0000092B @(8);'The supplier shall furnish the purchaser with a';(CR);_ 146 ^PO(P).INC 00000939 @(8);'certificate stating that each test has been sampled,';(CR);_ 147 ^PO(P).INC 00000946 @(8);'tested and inspected IAW ASTM-B-928/B 928M';(CR);_ 148 ^PO(P).INC 00000953 @(8);'(section 13.1) and has met the requirements. Material';(CR);_ 149 ^PO(P).INC 00000960 @(8);'shall be inspected by activity for physical and';(CR);_ 150 ^PO(P).INC 0000096D @(8);'technical conformance to the procurement specification';(CR);_ 151 ^PO(P).INC 0000097A @(8);'which stipulates alloy and temper, size, thickness,';(CR);_ 152 ^PO(P).INC 00000987 @(8);'weight, identification and marking of required';(CR);_ 153 ^PO(P).INC 00000994 @(8);'material. Material shall be inspected for correct alloy';(CR);_ 154 ^PO(P).INC 000009A1 @(8);'designation and temper relative to material markings';(CR);_ 155 ^PO(P).INC 000009AE @(8);'and identification. Material certification from';(CR);_ 156 ^PO(P).INC 000009BB @(8);'supplier shall be checked for conformance to material';(CR);_ 157 ^PO(P).INC 000009C8 @(8);'specification. Identification markings shall be';(CR);_ 158 ^PO(P).INC 000009D5 @(8);'maintained from receipt inspection to initial point of';(CR);_ 159 ^PO(P).INC 000009E2 @(8);'fabrication and include heat number, lot number,';(CR);_ 160 ^PO(P).INC 000009EF @(8);'specification and grade.' 161 ^PO(P).INC 000009F9 2877 FORMAT_ 162 ^PO(P).INC 000009F9 (SL=1);_ 163 ^PO(P).INC 00000A02 @(8);'Supplier must provide certification that aquired';(CR);_ 164 ^PO(P).INC 00000A0F @(8);'material, referred to as "Specialty Metals", is';(CR);_ 165 ^PO(P).INC 00000A1C @(8);'"Domestic" in nature, or comes from an approved NATO';(CR);_ 166 ^PO(P).INC 00000A29 @(8);'source as listed in DFARS 225.872-1. "Specialty';(CR);_ 167 ^PO(P).INC 00000A36 @(8);'Metals", for this requirement, can be found in';(CR);_ 168 ^PO(P).INC 00000A43 @(8);'DFARS 252.225-7009.' 169 ^PO(P).INC 00000A4D 2878 FORMAT_ 170 ^PO(P).INC 00000A4D (SL=1);_ 171 ^PO(P).INC 00000A56 @(8);'Pacific Ship Repair will not accept Counterfeit';(CR);_ 172 ^PO(P).INC 00000A63 @(8);'Parts. All Electronic Parts need to be Certified';(CR);_ 173 ^PO(P).INC 00000A70 @(8);'by the Seller.' 174 ^PO(P).INC 00000A7A 2879 FORMAT_ 175 ^PO(P).INC 00000A7A (SL=1);_ 176 ^PO(P).INC 00000A83 @(8);'This is a DO rated order certified for national';(CR);_ 177 ^PO(P).INC 00000A90 @(8);'defense, emergency preparedness, and energy';(CR);_ 178 ^PO(P).INC 00000A9D @(8);'program use.' 179 ^PO(P).INC 00000AA7 2880 FORMAT_ 180 ^PO(P).INC 00000AA7 (SL=1);_ 181 ^PO(P).INC 00000AB0 @(8);'This is a DX rated order certified for national';(CR);_ 182 ^PO(P).INC 00000ABD @(8);'defense, emergency preparedness, and energy';(CR);_ 183 ^PO(P).INC 00000ACA @(8);'program use.' 184 ^PO(P).INC 00000AD4 2890 FORMAT_ 185 ^PO(P).INC 00000AD4 (SL=1);_ 186 ^PO(P).INC 00000ADD @(8);'***************** EXCLUSION OF MERCURY ****************';(CR);_ 187 ^PO(P).INC 00000AEA @(8);'REFERENCE: CONTRACT CLAUSE C-2-32 (NAVSEA) (DEC 1995) ';_ 188 ^PO(P).INC 00000AF3 (SL=1);_ 189 ^PO(P).INC 00000AFC @(8);'Mercury or mercury containing compounds shall not be ';(CR);_ 190 ^PO(P).INC 00000B09 @(8);'intentionally added or come in direct contact with ';(CR);_ 191 ^PO(P).INC 00000B16 @(8);'hardware or supplies furnished under this contract. ';(CR);_ 192 ^PO(P).INC 00000B23 @(8);'Supplier shall certify that all items furnished under ';(CR);_ 193 ^PO(P).INC 00000B30 @(8);'this contract are free of mercury or mercury compounds.' 194 ^PO(P).INC 00000B3A 2891 FORMAT_ 195 ^PO(P).INC 00000B3A (SL=1);_ 196 ^PO(P).INC 00000B43 @(8);"This order is subject to the Purchase Order Terms and ";(CR);_ 197 ^PO(P).INC 00000B50 @(8);"Conditions for Materials and Supplies, an updated copy ";(CR);_ 198 ^PO(P).INC 00000B5D @(8);"of which is located on the PACSHIP web site at: ";(CR);_ 199 ^PO(P).INC 00000B6A @(8);"www.pacship.com." 200 ^PO(P).INC 00000B74 2892 FORMAT_ 201 ^PO(P).INC 00000B74 (SL=1);_ 202 ^PO(P).INC 00000B7D @(80);'ORDER TOTAL';_ 203 ^PO(P).INC 00000B86 @(93);QPAMT;_ 204 ^PO(P).INC 00000B8F (CR);_ 205 ^PO(P).INC 00000B93 @(28);'@5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F@';_ 206 ^PO(P).INC 00000B9C @(80);'SALES TAX';_ 207 ^PO(P).INC 00000BA5 @(93);POTAX;_ 208 ^PO(P).INC 00000BAE (CR);_ 209 ^PO(P).INC 00000BB2 @(28);'A U T H O R I Z E D B U Y E R';_ 210 ^PO(P).INC 00000BBB @(80);'TOTAL';_ 211 ^PO(P).INC 00000BC4 @(93);POTOT 212 ^PO(P).INC 00000BCE 213 ^PO(P).INC 00000BCE .ELSE ! END DECLARATION PASS & BEGIN EXECUTABLES PASS 513 ^PO(P).INC 00000BCE .ENDIF ! EXECUTABLES PASS 514 ^PO(P).INC 00000BCE ! ! 515 ^PO(P).INC 00000BCE !++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++! 60 QE6B.IBS 00000BCE ! 61 QE6B.IBS 00000BCE !========================== EXECUTABLE STATEMENTS ===========================! 62 QE6B.IBS 00000BCE 63 QE6B.IBS 00000BCE 3000 CLEAR LOCAL 64 QE6B.IBS 00000001 ERRORTO ProgramError 65 QE6B.IBS 00000006 ! 66 QE6B.IBS 00000006 LET PSRC$ = 'E' ! IMMEDIATE PRINT 67 QE6B.IBS 0000000F ! 68 QE6B.IBS 0000000F LET QPNBR$ = CPNBR$ 69 QE6B.IBS 00000018 70 QE6B.IBS 00000018 CLOSE 71 QE6B.IBS 00000019 ! 72 QE6B.IBS 00000019 OPEN (0) TERM$ 73 QE6B.IBS 00000020 OPEN (2) 'Q01' 74 QE6B.IBS 00000027 OPEN (4) 'Q04' 75 QE6B.IBS 0000002E OPEN (10) 'Q10' 76 QE6B.IBS 00000035 OPEN (11) 'Q11' 77 QE6B.IBS 0000003C !!!!! OPEN (15) 'I15' 78 QE6B.IBS 0000003C OPEN (20) 'Q20' 79 QE6B.IBS 00000043 OPEN (21) 'Q21' 80 QE6B.IBS 0000004A OPEN (66) '#PATH' 81 QE6B.IBS 00000051 OPEN (70) 'Q70' 82 QE6B.IBS 00000058 OPEN (72) 'Q72' 83 QE6B.IBS 0000005F 84 QE6B.IBS 0000005F INQUIRE (10,1710) KEY = QPNBR$ ! READ HEADER 85 QE6B.IBS 0000006A INQUIRE (70,1770) KEY = QLOCN$ ! READ LOCATION 86 QE6B.IBS 00000075 INQUIRE (72,1772) KEY = QBUYER$ ! READ BUYER 87 QE6B.IBS 00000080 88 QE6B.IBS 00000080 !------------------- PRINT BUYER COPY ------------------------------------------ 89 QE6B.IBS 00000080 IF QPRTFLAG$ EQ 'Y' 90 QE6B.IBS 0000008E LET ZLP$ = 'LPP' ! POPUP PRINTER 91 QE6B.IBS 00000097 LET COPYNAME$ = '' 92 QE6B.IBS 000000A0 93 QE6B.IBS 000000A0 GOSUB SetPrinterSpecifications 94 QE6B.IBS 000000A5 95 QE6B.IBS 000000A5 LET PAGE = 0 96 QE6B.IBS 000000AF GOSUB PrintPurchaseOrder 97 QE6B.IBS 000000B4 98 QE6B.IBS 000000B4 CLOSE (1) ! RELEASE PRINTER 99 QE6B.IBS 000000B7 INPUT (#) PDFNAME$ 100 QE6B.IBS 000000C2 !------------------------------------------------------------------------------- 101 QE6B.IBS 000000C2 !------------------- COPY TO BUYER FOLDER -------------------------------------- 102 QE6B.IBS 000000C2 INQUIRE (66,2666) KEY = 'QE6B' ! GET DESTINATION PATH 103 QE6B.IBS 000000CD LET FROMFILE$ = PDFNAME$ 104 QE6B.IBS 000000D6 LET TOFILE$ = STRIP(DATAPATH$) + STRIP(QBUYER$) + '\' + QPNBR$ + '-' + QCOPY$ + '-' + QREV$ + '.PDF' 105 QE6B.IBS 00000138 106 QE6B.IBS 00000138 LET COPYFLAGS = 0 + 2048 ! LOCAL, OVERWRITE 107 QE6B.IBS 00000147 !------------------- 09/14/2015 ------------------------------------------------ 108 QE6B.IBS 00000147 LET PASS$ = 'PAC' ! GRANT'S SYSTEM 109 QE6B.IBS 00000150 LET PASS$ = SUB(FSTAT('LOCALE', EXCP = NoLocale),3,3) 110 QE6B.IBS 00000171 NoLocale: 111 QE6B.IBS 00000171 IF PASS$ EQ 'PAC' 112 QE6B.IBS 0000017F LET COPYFLAGS = COPYFLAGS + 4096 ! CREATE DIRECTORY 113 QE6B.IBS 0000018E ENDIF 114 QE6B.IBS 0000018E !------------------------------------------------------------------------------- 115 QE6B.IBS 0000018E Print (CopyFile = FROMFILE$, TOFILE$, COPYFLAGS) 116 QE6B.IBS 000001A3 GOSUB GetResultCopy 117 QE6B.IBS 000001A8 IF FuncError NE 1 118 QE6B.IBS 000001B7 LET MBMSG$ = 'Copy Error:' + STR(FuncError) + '/' + STR(FileError) 119 QE6B.IBS 000001EC LET MBMSG$ = MBMSG$ + '@0D0A@From: ' + STRIP(FROMFILE$) 120 QE6B.IBS 00000212 LET MBMSG$ = MBMSG$ + '@0D0A@To: ' + STRIP(TOFILE$) 121 QE6B.IBS 00000238 MSGBOX(MBMSG$) 122 QE6B.IBS 0000023D ENDIF 123 QE6B.IBS 0000023D CLOSE (0) 124 QE6B.IBS 00000240 !------------------------------------------------------------------------------- 125 QE6B.IBS 00000240 ENDIF 126 QE6B.IBS 00000240 127 QE6B.IBS 00000240 GOTO ProgExit 128 QE6B.IBS 00000245 129 QE6B.IBS 00000245 GetResultCopy: 130 QE6B.IBS 00000245 Input (0,ResultFmt) 131 QE6B.IBS 0000024C AX$ = SUB(AX$,2,1) + SUB(AX$,1,1) ! Flip the bytes around 132 QE6B.IBS 0000027F DX$ = SUB(DX$,2,1) + SUB(DX$,1,1) ! Flip the bytes around 133 QE6B.IBS 000002B2 FuncError = HexDec(AX$) ! Function error code (decimal) 134 QE6B.IBS 000002BD FileError = HexDec(DX$) ! File error code (decimal) 135 QE6B.IBS 000002C8 136 QE6B.IBS 000002C8 If (FuncError > 32767) FuncError = FuncError-65536 ! For unexpected values, convert 137 QE6B.IBS 000002E6 If (FileError > 32767) FileError = FileError-65536 ! to 2's complement signed integer 138 QE6B.IBS 00000304 RETURN 139 QE6B.IBS 00000305 ! 140 QE6B.IBS 00000305 !~~~~~~~~~~~~~~~~~~~~~~~ SYSTEM ROUTINES ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! 141 QE6B.IBS 00000305 142 QE6B.IBS 00000305 INCLUDE '^PROGERR.INC' 1 ^PROGERR.INC 00000305 ProgramError: 2 ^PROGERR.INC 00000305 9800! 3 ^PROGERR.INC 00000305 SELECT CASE EXCP 4 ^PROGERR.INC 00000305 CASE 33 ! EXTRACT ERROR 5 ^PROGERR.INC 00000314 ENTER 'WEXREC' ! DISPLAY EXTRACTS 6 ^PROGERR.INC 0000031A ERRORTO ProgramError ! RESET 7 ^PROGERR.INC 0000031F AGAIN 8 ^PROGERR.INC 00000320 CASE ELSE 9 ^PROGERR.INC 00000325 GOTO FatalError 10 ^PROGERR.INC 0000032A ENDSELECT 11 ^PROGERR.INC 0000032A ! 12 ^PROGERR.INC 0000032A FatalError: 13 ^PROGERR.INC 0000032A ERROR 14 ^PROGERR.INC 0000032B ! 143 QE6B.IBS 0000032B 144 QE6B.IBS 0000032B INCLUDE '^PO(P).INC' 1 ^PO(P).INC 0000032B ! 2 ^PO(P).INC 0000032B !+++++++++++++++++++++++++++++++++ ^PO(P) ++++++++++++++++++++++++++++++++++ 3 ^PO(P).INC 0000032B .IF DECPASS ! BEGIN DECLARATION PASS 213 ^PO(P).INC 0000032B .ELSE ! END DECLARATION PASS & BEGIN EXECUTABLES PASS 214 ^PO(P).INC 0000032B 215 ^PO(P).INC 0000032B ! 216 ^PO(P).INC 0000032B PrintPurchaseOrder: 217 ^PO(P).INC 0000032B LUN = 1 218 ^PO(P).INC 00000335 !------------------- PACSHIP LOGO ---------------------------------------------- 219 ^PO(P).INC 00000335 CosFileNames$ = "PSRLOGO.JPG" ! FILE NAME 220 ^PO(P).INC 0000033E CosDirNames$ = SUB(FSTAT(CosFileNames$), 3, 3) ! DIRECTORY 221 ^PO(P).INC 0000035B GOSUB COS.FINDFILE 222 ^PO(P).INC 00000360 LET LOGOFILE$ = CosFileSpec$ 223 ^PO(P).INC 00000369 !------------------------------------------------------------------------------- 224 ^PO(P).INC 00000369 225 ^PO(P).INC 00000369 !------------------- BUYER SIGNATURE ------------------------------------------ 226 ^PO(P).INC 00000369 CosFileNames$ = "BUYER" + QBUYER$ + ".PNG" ! FILE NAME 227 ^PO(P).INC 00000384 CosDirNames$ = SUB(FSTAT(CosFileNames$), 3, 3) ! DIRECTORY 228 ^PO(P).INC 000003A1 GOSUB COS.FINDFILE 229 ^PO(P).INC 000003A6 LET SIGFILE$ = CosFileSpec$ 230 ^PO(P).INC 000003AF !------------------------------------------------------------------------------- 231 ^PO(P).INC 000003AF 232 ^PO(P).INC 000003AF LET PCITY1$ = 'SAN DIEGO' 233 ^PO(P).INC 000003B8 LET PPHONE1$ = 'PH (619) 232-3200' 234 ^PO(P).INC 000003C1 LET PFAX1$ = 'FAX (619) 233-6208' 235 ^PO(P).INC 000003CA 236 ^PO(P).INC 000003CA SELECT CASE QPAYORG$ 237 ^PO(P).INC 000003CA CASE '01';'03' 238 ^PO(P).INC 000003E6 LET PCITY2$ = '' 239 ^PO(P).INC 000003EF LET PPHONE2$ = '' 240 ^PO(P).INC 000003F8 LET PFAX2$ = '' 241 ^PO(P).INC 00000401 242 ^PO(P).INC 00000401 CASE '02' 243 ^PO(P).INC 00000414 IF QLOCN$ EQ 'BR ' 244 ^PO(P).INC 00000422 LET PCITY2$ = 'BREMERTON' 245 ^PO(P).INC 0000042B LET PPHONE2$ = 'PH (360) 674-2480' 246 ^PO(P).INC 00000434 LET PFAX2$ = 'FAX (360) 674-3858' 247 ^PO(P).INC 0000043D ENDIF 248 ^PO(P).INC 0000043D 249 ^PO(P).INC 0000043D IF QLOCN$ EQ 'EV ' 250 ^PO(P).INC 0000044B LET PCITY2$ = 'EVERETT' 251 ^PO(P).INC 00000454 LET PPHONE2$ = 'PH (425) 409-5060' 252 ^PO(P).INC 0000045D LET PFAX2$ = 'FAX (425) 409-6067' 253 ^PO(P).INC 00000466 ENDIF 254 ^PO(P).INC 00000466 255 ^PO(P).INC 00000466 !!!!! CASE '03' 256 ^PO(P).INC 00000466 !!!!! LET PCITY2$ = 'MANUFACTURING' 257 ^PO(P).INC 00000466 !!!!! LET PPHONE2$ = 'PH (619) 232-3200' 258 ^PO(P).INC 00000466 !!!!! LET PFAX2$ = 'FAX (619) 233-6208' 259 ^PO(P).INC 00000466 260 ^PO(P).INC 00000466 !!!!! CASE '04' 261 ^PO(P).INC 00000466 !!!!! LET PCITY2$ = 'PEARL HARBOR' 262 ^PO(P).INC 00000466 !!!!! LET PPHONE2$ = 'PH (808) 671-7447' 263 ^PO(P).INC 00000466 !!!!! LET PFAX2$ = 'FAX (808) 671-7227' 264 ^PO(P).INC 00000466 ENDSELECT 265 ^PO(P).INC 00000466 !------------------------------------------------------------------------------- 266 ^PO(P).INC 00000466 LET VATN$ = '' 267 ^PO(P).INC 0000046F IF SUB(QVATN$,1,5) NE ' ' LET VATN$ = 'ATTN: ' + QVATN$ 268 ^PO(P).INC 0000049D LET ZATN$ = '' 269 ^PO(P).INC 000004A6 IF SUB(QZATN$,1,5) NE ' ' LET ZATN$ = 'ATTN: ' + QZATN$ 270 ^PO(P).INC 000004D4 GOSUB PrintPageHeader 271 ^PO(P).INC 000004D9 272 ^PO(P).INC 000004D9 !!!!! LET PX1 = (0.90 * TWIP.INCH) - XOFF ! ANCHOR FOR DETAIL LINES 273 ^PO(P).INC 000004D9 !!!!! LET PY1 = (2.15 * TWIP.INCH) - YOFF 274 ^PO(P).INC 000004D9 !!!!! LET DATA$ = 'X' 275 ^PO(P).INC 000004D9 !!!!! PRINT (1,FMT.TEXTOUT) 276 ^PO(P).INC 000004D9 277 ^PO(P).INC 000004D9 POSITION (11) KEY = QPNBR$ ! POSITION TO LINE ITEMS 278 ^PO(P).INC 000004E0 PPO10: 279 ^PO(P).INC 000004E0 LET Q11KEY$ = KEY(11, EXCP = PPO80) 280 ^PO(P).INC 000004F0 IF SUB(Q11KEY$,1,6) NE QPNBR$ GOTO PPO90 ! END OF P/O 281 ^PO(P).INC 00000511 INQUIRE (11,1711) KEY = Q11KEY$ ! GET NEXT LINE ITEM 282 ^PO(P).INC 0000051C IF LINE LT 1 GOSUB PrintPageHeader 283 ^PO(P).INC 00000530 IF QCOMP$ EQ 'X' 284 ^PO(P).INC 0000053E PRINT (1,2830) 285 ^PO(P).INC 00000545 LET LINE = LINE - 1 286 ^PO(P).INC 00000554 GOTO PPO10 ! CANCELLED LINE 287 ^PO(P).INC 00000559 ENDIF 288 ^PO(P).INC 00000559 IF QCOMP$ EQ 'C' 289 ^PO(P).INC 00000567 PRINT (1,2831) 290 ^PO(P).INC 0000056E LET LINE = LINE - 1 291 ^PO(P).INC 0000057D GOTO PPO10 ! COMPLETE LINE 292 ^PO(P).INC 00000582 ENDIF 293 ^PO(P).INC 00000582 ! 294 ^PO(P).INC 00000582 LET QEXT = 1.000000 * QCOST * QORD 295 ^PO(P).INC 000005A3 PRINT (1,2820) ! PRINT LINE ITEM 296 ^PO(P).INC 000005AA LET LINE = LINE - 1 297 ^PO(P).INC 000005B9 LET EXTDET1$ = '' ! EXTENDED DETAIL 298 ^PO(P).INC 000005C2 LET EXTDET2$ = '' 299 ^PO(P).INC 000005CB LET EXTDET3$ = '' 300 ^PO(P).INC 000005D4 IF SUB(QMFGNBR$,1,5) NE ' ' LET EXTDET1$ = 'MFG#:' + QMFGNBR$ + ' ' 301 ^PO(P).INC 0000060B IF SUB(QMFGNAME$,1,5) NE ' ' LET EXTDET1$ = EXTDET1$ + 'MFG NAME:' + QMFGNAME$ 302 ^PO(P).INC 00000642 IF SUB(QSPEC$,1,5) NE ' ' LET EXTDET2$ = 'SPEC:' + QSPEC$ + ' ' 303 ^PO(P).INC 00000679 IF SUB(QMTYPE$,1,5) NE ' ' LET EXTDET2$ = EXTDET2$ + 'MATL TYPE:' + QMTYPE$ 304 ^PO(P).INC 000006B0 IF EXTDET1$ EQ '' GOTO PPO20 ! NO EXTENDED DETAIL 305 ^PO(P).INC 000006C3 IF LINE LT 1 GOSUB PrintPageHeader 306 ^PO(P).INC 000006D7 PRINT (1,2821) 307 ^PO(P).INC 000006DE LET LINE = LINE - 1 308 ^PO(P).INC 000006ED PPO20: 309 ^PO(P).INC 000006ED IF EXTDET2$ EQ '' GOTO PPO30 ! NO EXTENDED DETAIL 310 ^PO(P).INC 00000700 IF LINE LT 1 GOSUB PrintPageHeader 311 ^PO(P).INC 00000714 PRINT (1,2822) 312 ^PO(P).INC 0000071B LET LINE = LINE - 1 313 ^PO(P).INC 0000072A PPO30: 314 ^PO(P).INC 0000072A IF QCERT$ NE 'Y' GOTO PPO40 ! NO CERTIFICATION MSG 315 ^PO(P).INC 0000073D IF LINE LT 1 GOSUB PrintPageHeader 316 ^PO(P).INC 00000751 PRINT (1,2825) 317 ^PO(P).INC 00000758 LET LINE = LINE - 1 318 ^PO(P).INC 00000767 PPO40: 319 ^PO(P).INC 00000767 GOSUB PrintLineComments 320 ^PO(P).INC 0000076C GOTO PPO10 321 ^PO(P).INC 00000771 PPO80: 322 ^PO(P).INC 00000771 IF EXCP EQ 2 GOTO PPO90 ! END OF LINE ITEMS 323 ^PO(P).INC 00000785 GOTO ProgramError 324 ^PO(P).INC 0000078A PPO90: 325 ^PO(P).INC 0000078A GOSUB PrintPOComments 326 ^PO(P).INC 0000078F GOSUB PrintPOTotals 327 ^PO(P).INC 00000794 RETURN 328 ^PO(P).INC 00000795 329 ^PO(P).INC 00000795 PrintPOComments: 330 ^PO(P).INC 00000795 POSITION (20) KEY = QPNBR$ 331 ^PO(P).INC 0000079C PPC10: 332 ^PO(P).INC 0000079C LET Q20KEY$ = KEY(20, EXCP = PPC80) 333 ^PO(P).INC 000007AC IF SUB(Q20KEY$,1,6) NE QPNBR$ GOTO PPC90 ! END OF COMMENTS 334 ^PO(P).INC 000007CD INQUIRE (20,1720) KEY = Q20KEY$ ! READ COMMENT 335 ^PO(P).INC 000007D8 IF LINE LT 2 GOSUB PrintPageHeader 336 ^PO(P).INC 000007EC IF CFLAG EQ 1 GOTO PPC20 ! SKIP COMMENT TITLE 337 ^PO(P).INC 00000800 PRINT (1,2850) 338 ^PO(P).INC 00000807 LET CFLAG = 1 339 ^PO(P).INC 00000811 LET LINE = LINE - 2 340 ^PO(P).INC 00000820 PPC20: 341 ^PO(P).INC 00000820 IF LINE LT 1 GOSUB PrintPageHeader 342 ^PO(P).INC 00000834 PRINT (1,2851) 343 ^PO(P).INC 0000083B LET LINE = LINE - 1 344 ^PO(P).INC 0000084A GOTO PPC10 345 ^PO(P).INC 0000084F PPC80: 346 ^PO(P).INC 0000084F IF EXCP EQ 2 GOTO PPC90 347 ^PO(P).INC 00000863 GOTO ProgramError 348 ^PO(P).INC 00000868 PPC90: 349 ^PO(P).INC 00000868 RETURN 350 ^PO(P).INC 00000869 351 ^PO(P).INC 00000869 PrintLineComments: 352 ^PO(P).INC 00000869 POSITION (21) KEY = Q11KEY$ 353 ^PO(P).INC 00000870 PLC10: 354 ^PO(P).INC 00000870 LET Q21KEY$ = KEY(21, EXCP = PLC80) 355 ^PO(P).INC 00000880 IF SUB(Q21KEY$,1,9) NE Q11KEY$ GOTO PLC90 ! END OF LINE COMMENTS 356 ^PO(P).INC 000008A1 INQUIRE (21,1721) KEY = Q21KEY$ 357 ^PO(P).INC 000008AC IF LINE LT 1 GOSUB PrintPageHeader 358 ^PO(P).INC 000008C0 PRINT (1,2840) 359 ^PO(P).INC 000008C7 LET LINE = LINE - 1 360 ^PO(P).INC 000008D6 GOTO PLC10 361 ^PO(P).INC 000008DB PLC80: 362 ^PO(P).INC 000008DB IF EXCP EQ 2 GOTO PLC90 363 ^PO(P).INC 000008EF GOTO ProgramError 364 ^PO(P).INC 000008F4 PLC90: 365 ^PO(P).INC 000008F4 RETURN 366 ^PO(P).INC 000008F5 ! 367 ^PO(P).INC 000008F5 PrintPOTotals: 368 ^PO(P).INC 000008F5 IF QTC$(2) NE 'Y' GOTO PPT10 ! SKIP CLAUSE 1 369 ^PO(P).INC 0000091A IF LINE LT 4 GOSUB PrintPageHeader 370 ^PO(P).INC 0000092E PRINT (1,2861) 371 ^PO(P).INC 00000935 LET LINE = LINE - 4 372 ^PO(P).INC 00000944 PPT10: 373 ^PO(P).INC 00000944 IF QTC$(3) NE 'Y' GOTO PPT20 ! SKIP CLAUSE 2 374 ^PO(P).INC 00000969 IF LINE LT 4 GOSUB PrintPageHeader 375 ^PO(P).INC 0000097D PRINT (1,2862) 376 ^PO(P).INC 00000984 LET LINE = LINE - 4 377 ^PO(P).INC 00000993 PPT20: 378 ^PO(P).INC 00000993 IF QTC$(4) NE 'Y' GOTO PPT30 ! SKIP CLAUSE 3 379 ^PO(P).INC 000009B8 IF LINE LT 4 GOSUB PrintPageHeader 380 ^PO(P).INC 000009CC PRINT (1,2863) 381 ^PO(P).INC 000009D3 LET LINE = LINE - 4 382 ^PO(P).INC 000009E2 PPT30: 383 ^PO(P).INC 000009E2 IF QTC$(5) NE 'Y' GOTO PPT40 ! SKIP CLAUSE 4 384 ^PO(P).INC 00000A07 IF LINE LT 4 GOSUB PrintPageHeader 385 ^PO(P).INC 00000A1B PRINT (1,2864) 386 ^PO(P).INC 00000A22 LET LINE = LINE - 4 387 ^PO(P).INC 00000A31 PPT40: 388 ^PO(P).INC 00000A31 IF QTC$(6) NE 'Y' GOTO PPT50 ! SKIP CLAUSE 5 389 ^PO(P).INC 00000A56 IF LINE LT 2 GOSUB PrintPageHeader 390 ^PO(P).INC 00000A6A PRINT (1,2865) 391 ^PO(P).INC 00000A71 LET LINE = LINE - 2 392 ^PO(P).INC 00000A80 PPT50: 393 ^PO(P).INC 00000A80 IF QTC$(7) NE 'Y' GOTO PPT60 ! SKIP FILLER METAL 394 ^PO(P).INC 00000AA5 IF LINE LT 12 GOSUB PrintPageHeader 395 ^PO(P).INC 00000AB9 PRINT (1,2870) 396 ^PO(P).INC 00000AC0 LET LINE = LINE - 12 397 ^PO(P).INC 00000ACF PPT60: 398 ^PO(P).INC 00000ACF IF QTC$(8) NE 'Y' GOTO PPT70 ! SKIP WELD 5XXX 399 ^PO(P).INC 00000AF4 IF LINE LT 11 GOSUB PrintPageHeader 400 ^PO(P).INC 00000B08 PRINT (1,2875) ! PARAGRAPH 1 401 ^PO(P).INC 00000B0F LET LINE = LINE - 11 402 ^PO(P).INC 00000B1E ! 403 ^PO(P).INC 00000B1E IF LINE LT 17 GOSUB PrintPageHeader 404 ^PO(P).INC 00000B32 PRINT (1) '' 405 ^PO(P).INC 00000B3D PRINT (1,2876) 406 ^PO(P).INC 00000B44 LET LINE = LINE - 17 ! PARAGRAPH 2 407 ^PO(P).INC 00000B53 PPT70: 408 ^PO(P).INC 00000B53 IF QTC$(9) NE 'Y' GOTO PPT72 ! SPECIALTY METALS 409 ^PO(P).INC 00000B78 IF LINE LT 11 GOSUB PrintPageHeader 410 ^PO(P).INC 00000B8C PRINT (1,2877) 411 ^PO(P).INC 00000B93 LET LINE = LINE - 7 412 ^PO(P).INC 00000BA2 PPT72: 413 ^PO(P).INC 00000BA2 IF QTC$(10) NE 'Y' GOTO PPT75 ! COUNTERFEIT 414 ^PO(P).INC 00000BC7 IF LINE LT 11 GOSUB PrintPageHeader 415 ^PO(P).INC 00000BDB PRINT (1,2878) 416 ^PO(P).INC 00000BE2 LET LINE = LINE - 4 417 ^PO(P).INC 00000BF1 PPT75: 418 ^PO(P).INC 00000BF1 IF QTC$(11) EQ 'Y' ! DPAS "DO" 419 ^PO(P).INC 00000C0C IF LINE LT 4 GOSUB PrintPageHeader 420 ^PO(P).INC 00000C20 PRINT (1,2879) 421 ^PO(P).INC 00000C27 LET LINE = LINE - 4 422 ^PO(P).INC 00000C36 ENDIF 423 ^PO(P).INC 00000C36 424 ^PO(P).INC 00000C36 IF QTC$(12) EQ 'Y' ! DPAS "DX" 425 ^PO(P).INC 00000C51 IF LINE LT 4 GOSUB PrintPageHeader 426 ^PO(P).INC 00000C65 PRINT (1,2880) 427 ^PO(P).INC 00000C6C LET LINE = LINE - 4 428 ^PO(P).INC 00000C7B ENDIF 429 ^PO(P).INC 00000C7B IF LINE LT 9 GOSUB PrintPageHeader 430 ^PO(P).INC 00000C8F PRINT (1,2890) ! MERCURY 431 ^PO(P).INC 00000C96 LET LINE = LINE - 9 432 ^PO(P).INC 00000CA5 PPT80: 433 ^PO(P).INC 00000CA5 IF LINE LT 5 GOSUB PrintPageHeader 434 ^PO(P).INC 00000CB9 PRINT (1,2891) 435 ^PO(P).INC 00000CC0 LET LINE = LINE - 5 436 ^PO(P).INC 00000CCF PPT90: 437 ^PO(P).INC 00000CCF IF LINE LT 5 GOSUB PrintPageHeader 438 ^PO(P).INC 00000CE3 DO UNTIL LINE EQ 4 439 ^PO(P).INC 00000CF7 PRINT (1) '' 440 ^PO(P).INC 00000D02 LET LINE = LINE - 1 441 ^PO(P).INC 00000D11 LOOP 442 ^PO(P).INC 00000D16 443 ^PO(P).INC 00000D16 !------------------------------------------------------------------------------- 444 ^PO(P).INC 00000D16 RECTLEFT = (2.80 * TWIP.INCH) 445 ^PO(P).INC 00000D24 RECTTOP = (6.82 * TWIP.INCH) !!!! 6.90 446 ^PO(P).INC 00000D32 RECTWIDTH = (3.00 * TWIP.INCH) 447 ^PO(P).INC 00000D40 RECTBOTTOM = RECTTOP + (1.00 * TWIP.INCH) 448 ^PO(P).INC 00000D62 RECTRIGHT = RECTLEFT + RECTWIDTH 449 ^PO(P).INC 00000D71 DATA$ = SIGFILE$ 450 ^PO(P).INC 00000D7A ! Scale 1 bitmap pixel equals .01in. 451 ^PO(P).INC 00000D7A FLAGS = BMR.SCALE 452 ^PO(P).INC 00000D84 PRINT (1) (DRAWBITMAP = RECTLEFT, RECTTOP, RECTRIGHT, _ 453 ^PO(P).INC 00000D86 RECTBOTTOM, 600, 600, FLAGS);DATA$ ! 300/300 454 ^PO(P).INC 00000DB0 !------------------------------------------------------------------------------- 455 ^PO(P).INC 00000DB0 LET POTAX = .0100 * QPAMT * QSLSTX ! CALCULATE TAX 456 ^PO(P).INC 00000DD1 LET POTOT = QPAMT + POTAX ! TOTAL P/O AMOUNT 457 ^PO(P).INC 00000DE0 PRINT (1,2892) 458 ^PO(P).INC 00000DE7 RETURN 459 ^PO(P).INC 00000DE8 460 ^PO(P).INC 00000DE8 PrintPageHeader: 461 ^PO(P).INC 00000DE8 IF PAGE GT 0 PRINT (1) (TR);(FF) ! EJECT PRIOR PAGE 462 ^PO(P).INC 00000E03 463 ^PO(P).INC 00000E03 INCLUDE '^PACPO.INC' 1 ^PACPO.INC 00000E03 !================================= PO FORM ===================================== 2 ^PACPO.INC 00000E03 Print (1) (TR);(SetBKMode = BKM.TRANSPARENT) ! LEAVE BACKGROUND ALONE 3 ^PACPO.INC 00000E14 Print (1) (TR);(SelectPen = PS.SOLID, THIN.PEN.WIDTH, 0, 0, 0) 4 ^PACPO.INC 00000E35 Print (1) (TR);(SelectSolidBrush = 0, 0, 0) ! SELECT COLOR 5 ^PACPO.INC 00000E4E 6 ^PACPO.INC 00000E4E !------------------- REGISTRATION GRID ----------------------------------------- 7 ^PACPO.INC 00000E4E !!!!! X1 = (0.00 * TWIP.INCH) 8 ^PACPO.INC 00000E4E !!!!! Y1 = (0.00 * TWIP.INCH) 9 ^PACPO.INC 00000E4E !!!!! Print (1) (TR);(MoveTo = X1, Y1) 10 ^PACPO.INC 00000E4E !!!!! X1 = PageWidth - 15 11 ^PACPO.INC 00000E4E !!!!! Print (1) (TR);(LineTo = X1, Y1) 12 ^PACPO.INC 00000E4E !!!!! 13 ^PACPO.INC 00000E4E !!!!! X1 = (0.00 * TWIP.INCH) 14 ^PACPO.INC 00000E4E !!!!! Y1 = (0.00 * TWIP.INCH) 15 ^PACPO.INC 00000E4E !!!!! Print (1) (TR);(MoveTo = X1, Y1) 16 ^PACPO.INC 00000E4E !!!!! Y1 = PageHeight - 15 17 ^PACPO.INC 00000E4E !!!!! Print (1) (TR);(LineTo = X1, Y1) 18 ^PACPO.INC 00000E4E !------------------------ END REGISTRATION ------------------------------------- 19 ^PACPO.INC 00000E4E 20 ^PACPO.INC 00000E4E LET RectLeft = (7.80 * TWIP.INCH) ! PO BOX TITLE 21 ^PACPO.INC 00000E5C LET RectTop = ( 0.05 * TWIP.INCH) 22 ^PACPO.INC 00000E6A LET RectRight = (9.35 * TWIP.INCH) 23 ^PACPO.INC 00000E78 LET RectBottom = (0.40 * TWIP.INCH) 24 ^PACPO.INC 00000E86 PRINT (1) (TR);(SelectSolidBrush = 200, 200, 200) ! SHADE OF GRAY 25 ^PACPO.INC 00000E9F PRINT (1) (TR);(Rectangle = RectLeft, RectTop, RectRight, RectBottom) 26 ^PACPO.INC 00000EBC 27 ^PACPO.INC 00000EBC LET RectLeft = (9.35 * TWIP.INCH) ! PO BOX DATA 28 ^PACPO.INC 00000ECA LET RectTop = ( 0.05 * TWIP.INCH) 29 ^PACPO.INC 00000ED8 LET RectRight = (10.50 * TWIP.INCH) 30 ^PACPO.INC 00000EE6 LET RectBottom = (0.40 * TWIP.INCH) 31 ^PACPO.INC 00000EF4 PRINT (1) (TR);(SelectSolidBrush = 255, 255, 255) ! WHITE 32 ^PACPO.INC 00000F0D PRINT (1) (TR);(Rectangle = RectLeft, RectTop, RectRight, RectBottom) 33 ^PACPO.INC 00000F2A !------------------------------------------------------------------------------- 34 ^PACPO.INC 00000F2A LET RectLeft = (0.00 * TWIP.INCH) ! HEADER BOX TITLE 35 ^PACPO.INC 00000F38 LET RectTop = ( 1.62 * TWIP.INCH) 36 ^PACPO.INC 00000F46 LET RectRight = (10.50 * TWIP.INCH) 37 ^PACPO.INC 00000F54 LET RectBottom = (1.75 * TWIP.INCH) 38 ^PACPO.INC 00000F62 PRINT (1) (TR);(SelectSolidBrush = 200, 200, 200) ! SHADE OF GRAY 39 ^PACPO.INC 00000F7B PRINT (1) (TR);(Rectangle = RectLeft, RectTop, RectRight, RectBottom) 40 ^PACPO.INC 00000F98 41 ^PACPO.INC 00000F98 LET RectLeft = (0.00 * TWIP.INCH) ! HEADER BOX DATA 42 ^PACPO.INC 00000FA6 LET RectTop = (1.75 * TWIP.INCH) 43 ^PACPO.INC 00000FB4 LET RectRight = (10.50 * TWIP.INCH) 44 ^PACPO.INC 00000FC2 LET RectBottom = (2.00 * TWIP.INCH) 45 ^PACPO.INC 00000FD0 PRINT (1) (TR);(SelectSolidBrush = 255, 255, 255) ! WHITE 46 ^PACPO.INC 00000FE9 PRINT (1) (TR);(Rectangle = RectLeft, RectTop, RectRight, RectBottom) 47 ^PACPO.INC 00001006 !------------------------------------------------------------------------------- 48 ^PACPO.INC 00001006 LET RectLeft = (0.00 * TWIP.INCH) ! DETAIL BOX TITLE 49 ^PACPO.INC 00001014 LET RectTop = ( 2.00 * TWIP.INCH) 50 ^PACPO.INC 00001022 LET RectRight = (10.50 * TWIP.INCH) 51 ^PACPO.INC 00001030 LET RectBottom = (2.18 * TWIP.INCH) 52 ^PACPO.INC 0000103E PRINT (1) (TR);(SelectSolidBrush = 200, 200, 200) ! SHADE OF GRAY 53 ^PACPO.INC 00001057 PRINT (1) (TR);(Rectangle = RectLeft, RectTop, RectRight, RectBottom) 54 ^PACPO.INC 00001074 55 ^PACPO.INC 00001074 LET RectLeft = (0.00 * TWIP.INCH) ! DETAIL BOX DATA 56 ^PACPO.INC 00001082 LET RectTop = (2.18 * TWIP.INCH) 57 ^PACPO.INC 00001090 LET RectRight = (10.50 * TWIP.INCH) 58 ^PACPO.INC 0000109E LET RectBottom = (7.95 * TWIP.INCH) 59 ^PACPO.INC 000010AC PRINT (1) (TR);(SelectSolidBrush = 255, 255, 255) ! WHITE 60 ^PACPO.INC 000010C5 PRINT (1) (TR);(Rectangle = RectLeft, RectTop, RectRight, RectBottom) 61 ^PACPO.INC 000010E2 !------------------------------------------------------------------------------- 62 ^PACPO.INC 000010E2 LET RectLeft = (3.90 * TWIP.INCH) ! VENDOR BOX 63 ^PACPO.INC 000010F0 LET RectTop = (0.60 * TWIP.INCH) 64 ^PACPO.INC 000010FE LET RectRight = (7.20 * TWIP.INCH) 65 ^PACPO.INC 0000110C LET RectBottom = (1.50 * TWIP.INCH) 66 ^PACPO.INC 0000111A PRINT (1) (TR);(SelectSolidBrush = 255, 255, 255) ! WHITE 67 ^PACPO.INC 00001133 PRINT (1) (TR);(Rectangle = RectLeft, RectTop, RectRight, RectBottom) 68 ^PACPO.INC 00001150 !------------------------------------------------------------------------------- 69 ^PACPO.INC 00001150 LET RectLeft = (7.40 * TWIP.INCH) ! SHIP TO BOX 70 ^PACPO.INC 0000115E LET RectTop = (0.60 * TWIP.INCH) 71 ^PACPO.INC 0000116C LET RectRight = (10.50 * TWIP.INCH) 72 ^PACPO.INC 0000117A LET RectBottom = (1.50 * TWIP.INCH) 73 ^PACPO.INC 00001188 PRINT (1) (TR);(SelectSolidBrush = 255, 255, 255) ! WHITE 74 ^PACPO.INC 000011A1 PRINT (1) (TR);(Rectangle = RectLeft, RectTop, RectRight, RectBottom) 75 ^PACPO.INC 000011BE !------------------------------------------------------------------------------- 76 ^PACPO.INC 000011BE ! Short VL1 77 ^PACPO.INC 000011BE X1 = (1.42 * TWIP.INCH) 78 ^PACPO.INC 000011CC Y1 = (1.75 * TWIP.INCH) 79 ^PACPO.INC 000011DA Print (1) (TR);(MoveTo = X1, Y1) 80 ^PACPO.INC 000011EF Y1 = (2.00 * TWIP.INCH) 81 ^PACPO.INC 000011FD Print (1) (TR);(LineTo = X1, Y1) 82 ^PACPO.INC 00001212 !Short VL2 83 ^PACPO.INC 00001212 X1 = (2.65 * TWIP.INCH) 84 ^PACPO.INC 00001220 Y1 = (1.75 * TWIP.INCH) 85 ^PACPO.INC 0000122E Print (1) (TR);(MoveTo = X1, Y1) 86 ^PACPO.INC 00001243 Y1 = (2.00 * TWIP.INCH) 87 ^PACPO.INC 00001251 Print (1) (TR);(LineTo = X1, Y1) 88 ^PACPO.INC 00001266 !Short VL3 89 ^PACPO.INC 00001266 X1 = (4.45 * TWIP.INCH) 90 ^PACPO.INC 00001274 Y1 = (1.75 * TWIP.INCH) 91 ^PACPO.INC 00001282 Print (1) (TR);(MoveTo = X1, Y1) 92 ^PACPO.INC 00001297 Y1 = (2.00 * TWIP.INCH) 93 ^PACPO.INC 000012A5 Print (1) (TR);(LineTo = X1, Y1) 94 ^PACPO.INC 000012BA !Short VL4 95 ^PACPO.INC 000012BA X1 = (6.10 * TWIP.INCH) 96 ^PACPO.INC 000012C8 Y1 = (1.75 * TWIP.INCH) 97 ^PACPO.INC 000012D6 Print (1) (TR);(MoveTo = X1, Y1) 98 ^PACPO.INC 000012EB Y1 = (2.00 * TWIP.INCH) 99 ^PACPO.INC 000012F9 Print (1) (TR);(LineTo = X1, Y1) 100 ^PACPO.INC 0000130E !Short VL5 101 ^PACPO.INC 0000130E X1 = (7.90 * TWIP.INCH) 102 ^PACPO.INC 0000131C Y1 = (1.75 * TWIP.INCH) 103 ^PACPO.INC 0000132A Print (1) (TR);(MoveTo = X1, Y1) 104 ^PACPO.INC 0000133F Y1 = (2.00 * TWIP.INCH) 105 ^PACPO.INC 0000134D Print (1) (TR);(LineTo = X1, Y1) 106 ^PACPO.INC 00001362 !Short VL6 107 ^PACPO.INC 00001362 X1 = (8.55 * TWIP.INCH) 108 ^PACPO.INC 00001370 Y1 = (1.75 * TWIP.INCH) 109 ^PACPO.INC 0000137E Print (1) (TR);(MoveTo = X1, Y1) 110 ^PACPO.INC 00001393 Y1 = (2.00 * TWIP.INCH) 111 ^PACPO.INC 000013A1 Print (1) (TR);(LineTo = X1, Y1) 112 ^PACPO.INC 000013B6 !Short VL7 113 ^PACPO.INC 000013B6 X1 = (9.00 * TWIP.INCH) 114 ^PACPO.INC 000013C4 Y1 = (1.75 * TWIP.INCH) 115 ^PACPO.INC 000013D2 Print (1) (TR);(MoveTo = X1, Y1) 116 ^PACPO.INC 000013E7 Y1 = (2.00 * TWIP.INCH) 117 ^PACPO.INC 000013F5 Print (1) (TR);(LineTo = X1, Y1) 118 ^PACPO.INC 0000140A !Short VL8 119 ^PACPO.INC 0000140A X1 = (9.45 * TWIP.INCH) 120 ^PACPO.INC 00001418 Y1 = (1.75 * TWIP.INCH) 121 ^PACPO.INC 00001426 Print (1) (TR);(MoveTo = X1, Y1) 122 ^PACPO.INC 0000143B Y1 = (2.00 * TWIP.INCH) 123 ^PACPO.INC 00001449 Print (1) (TR);(LineTo = X1, Y1) 124 ^PACPO.INC 0000145E !------------------------------------------------------------------------------- 125 ^PACPO.INC 0000145E !Long VL1 126 ^PACPO.INC 0000145E X1 = (0.65 * TWIP.INCH) 127 ^PACPO.INC 0000146C Y1 = (2.18 * TWIP.INCH) 128 ^PACPO.INC 0000147A Print (1) (TR);(MoveTo = X1, Y1) 129 ^PACPO.INC 0000148F Y1 = (7.95 * TWIP.INCH) 130 ^PACPO.INC 0000149D Print (1) (TR);(LineTo = X1, Y1) 131 ^PACPO.INC 000014B2 !Long VL2 132 ^PACPO.INC 000014B2 X1 = (6.38 * TWIP.INCH) 133 ^PACPO.INC 000014C0 Y1 = (2.18 * TWIP.INCH) 134 ^PACPO.INC 000014CE Print (1) (TR);(MoveTo = X1, Y1) 135 ^PACPO.INC 000014E3 Y1 = (7.95 * TWIP.INCH) 136 ^PACPO.INC 000014F1 Print (1) (TR);(LineTo = X1, Y1) 137 ^PACPO.INC 00001506 !Long VL3 138 ^PACPO.INC 00001506 X1 = (7.38 * TWIP.INCH) 139 ^PACPO.INC 00001514 Y1 = (2.18 * TWIP.INCH) 140 ^PACPO.INC 00001522 Print (1) (TR);(MoveTo = X1, Y1) 141 ^PACPO.INC 00001537 Y1 = (7.95 * TWIP.INCH) 142 ^PACPO.INC 00001545 Print (1) (TR);(LineTo = X1, Y1) 143 ^PACPO.INC 0000155A !Long VL4 144 ^PACPO.INC 0000155A X1 = (7.95 * TWIP.INCH) 145 ^PACPO.INC 00001568 Y1 = (2.18 * TWIP.INCH) 146 ^PACPO.INC 00001576 Print (1) (TR);(MoveTo = X1, Y1) 147 ^PACPO.INC 0000158B Y1 = (7.95 * TWIP.INCH) 148 ^PACPO.INC 00001599 Print (1) (TR);(LineTo = X1, Y1) 149 ^PACPO.INC 000015AE !Long VL5 150 ^PACPO.INC 000015AE X1 = (9.20 * TWIP.INCH) 151 ^PACPO.INC 000015BC Y1 = (2.18 * TWIP.INCH) 152 ^PACPO.INC 000015CA Print (1) (TR);(MoveTo = X1, Y1) 153 ^PACPO.INC 000015DF Y1 = (7.95 * TWIP.INCH) 154 ^PACPO.INC 000015ED Print (1) (TR);(LineTo = X1, Y1) 155 ^PACPO.INC 00001602 !------------------------------------------------------------------------------- 156 ^PACPO.INC 00001602 Gosub GDI.InitLogFont 157 ^PACPO.INC 00001607 lfHeight$ = IntelD(11*20) 158 ^PACPO.INC 0000161F lfFaceName$ = "Arial"+NullByte$ 159 ^PACPO.INC 00001631 lfWeight$ = IntelD(FW.BOLD) 160 ^PACPO.INC 00001640 Gosub SetFont 161 ^PACPO.INC 00001645 162 ^PACPO.INC 00001645 Y1 = (0.15 * TWIP.INCH) 163 ^PACPO.INC 00001653 X1 = (7.85 * TWIP.INCH) 164 ^PACPO.INC 00001661 Data$ = "PURCHASE ORDER" 165 ^PACPO.INC 0000166A Print (1) (TR);(TextOut = X1, Y1);Data$;NullByte$ 166 ^PACPO.INC 0000168D !------------------------------------------------------------------------------- 167 ^PACPO.INC 0000168D Gosub GDI.InitLogFont 168 ^PACPO.INC 00001692 lfHeight$ = IntelD(8*20) 169 ^PACPO.INC 000016AA lfFaceName$ = "Arial"+NullByte$ 170 ^PACPO.INC 000016BC Gosub SetFont 171 ^PACPO.INC 000016C1 172 ^PACPO.INC 000016C1 Y1 = (1.63 * TWIP.INCH) 173 ^PACPO.INC 000016CF Data$ = "ORDER DATE" 174 ^PACPO.INC 000016D8 X1 = (0.40 * TWIP.INCH) 175 ^PACPO.INC 000016E6 Print (1) (TR);(TextOut = X1, Y1);Data$;NullByte$ 176 ^PACPO.INC 00001709 177 ^PACPO.INC 00001709 Data$ = "DUE DATE" 178 ^PACPO.INC 00001712 X1 = (1.70 * TWIP.INCH) 179 ^PACPO.INC 00001720 Print (1) (TR);(TextOut = X1, Y1);Data$;NullByte$ 180 ^PACPO.INC 00001743 181 ^PACPO.INC 00001743 Data$ = "F.O.B." 182 ^PACPO.INC 0000174C X1 = (3.40 * TWIP.INCH) 183 ^PACPO.INC 0000175A Print (1) (TR);(TextOut = X1, Y1);Data$;NullByte$ 184 ^PACPO.INC 0000177D 185 ^PACPO.INC 0000177D X1 = (5.10 * TWIP.INCH) 186 ^PACPO.INC 0000178B Data$ = "SHIP VIA" 187 ^PACPO.INC 00001794 Print (1) (TR);(TextOut = X1, Y1);Data$;NullByte$ 188 ^PACPO.INC 000017B7 189 ^PACPO.INC 000017B7 Data$ = "TERMS" 190 ^PACPO.INC 000017C0 X1 = (6.90 * TWIP.INCH) 191 ^PACPO.INC 000017CE Print (1) (TR);(TextOut = X1, Y1);Data$;NullByte$ 192 ^PACPO.INC 000017F1 193 ^PACPO.INC 000017F1 Data$ = "BUYER" 194 ^PACPO.INC 000017FA X1 = (8.10 * TWIP.INCH) 195 ^PACPO.INC 00001808 Print (1) (TR);(TextOut = X1, Y1);Data$;NullByte$ 196 ^PACPO.INC 0000182B 197 ^PACPO.INC 0000182B Data$ = "ACK" 198 ^PACPO.INC 00001834 X1 = (8.65 * TWIP.INCH) 199 ^PACPO.INC 00001842 Print (1) (TR);(TextOut = X1, Y1);Data$;NullByte$ 200 ^PACPO.INC 00001865 201 ^PACPO.INC 00001865 Data$ = "PTD" 202 ^PACPO.INC 0000186E X1 = (9.1 * TWIP.INCH) 203 ^PACPO.INC 0000187C Print (1) (TR);(TextOut = X1, Y1);Data$;NullByte$ 204 ^PACPO.INC 0000189F 205 ^PACPO.INC 0000189F Data$ = "SALES TAX RATE" 206 ^PACPO.INC 000018A8 X1 = (9.50 * TWIP.INCH) 207 ^PACPO.INC 000018B6 Print (1) (TR);(TextOut = X1, Y1);Data$;NullByte$ 208 ^PACPO.INC 000018D9 !------------------------------------------------------------------------------- 209 ^PACPO.INC 000018D9 Y1 = (2.06 * TWIP.INCH) 210 ^PACPO.INC 000018E7 Data$ = "LINE" 211 ^PACPO.INC 000018F0 X1 = (0.20 * TWIP.INCH) 212 ^PACPO.INC 000018FE Print (1) (TR);(TextOut = X1, Y1);Data$;NullByte$ 213 ^PACPO.INC 00001921 214 ^PACPO.INC 00001921 Data$ = "DESCRIPTION" 215 ^PACPO.INC 0000192A X1 = (0.90 * TWIP.INCH) 216 ^PACPO.INC 00001938 Print (1) (TR);(TextOut = X1, Y1);Data$;NullByte$ 217 ^PACPO.INC 0000195B 218 ^PACPO.INC 0000195B Data$ = "SIZE" 219 ^PACPO.INC 00001964 X1 = (4.10 * TWIP.INCH) 220 ^PACPO.INC 00001972 Print (1) (TR);(TextOut = X1, Y1);Data$;NullByte$ 221 ^PACPO.INC 00001995 222 ^PACPO.INC 00001995 Data$ = "QUANTITY" 223 ^PACPO.INC 0000199E X1 = (6.70 * TWIP.INCH) 224 ^PACPO.INC 000019AC Print (1) (TR);(TextOut = X1, Y1);Data$;NullByte$ 225 ^PACPO.INC 000019CF 226 ^PACPO.INC 000019CF Data$ = "ISSUE" 227 ^PACPO.INC 000019D8 X1 = (7.42 * TWIP.INCH) 228 ^PACPO.INC 000019E6 Print (1) (TR);(TextOut = X1, Y1);Data$;NullByte$ 229 ^PACPO.INC 00001A09 230 ^PACPO.INC 00001A09 Data$ = "UNIT COST" 231 ^PACPO.INC 00001A12 X1 = (8.50 * TWIP.INCH) 232 ^PACPO.INC 00001A20 Print (1) (TR);(TextOut = X1, Y1);Data$;NullByte$ 233 ^PACPO.INC 00001A43 234 ^PACPO.INC 00001A43 Data$ = "EXTENDED COST" 235 ^PACPO.INC 00001A4C X1 = (9.35 * TWIP.INCH) 236 ^PACPO.INC 00001A5A Print (1) (TR);(TextOut = X1, Y1);Data$;NullByte$ 237 ^PACPO.INC 00001A7D !------------------------------------------------------------------------------- 238 ^PACPO.INC 00001A7D Gosub GDI.InitLogFont 239 ^PACPO.INC 00001A82 lfHeight$ = IntelD(7*20) ! 7 POINT UNDER 240 ^PACPO.INC 00001A9A lfFaceName$ = "Arial"+NullByte$ 241 ^PACPO.INC 00001AAC lfWeight$ = IntelD(FW.BOLD) 242 ^PACPO.INC 00001ABB lfUnderline$ = INTEL(TRUE) 243 ^PACPO.INC 00001ACA Gosub SetFont 244 ^PACPO.INC 00001ACF 245 ^PACPO.INC 00001ACF Y1 = (1.05 * TWIP.INCH) 246 ^PACPO.INC 00001ADD X1 = (0.10 * TWIP.INCH) 247 ^PACPO.INC 00001AEB Data$ = "BILLING INQUIRIES TO:" 248 ^PACPO.INC 00001AF4 Print (1) (TR);(TextOut = X1, Y1);Data$;NullByte$ 249 ^PACPO.INC 00001B17 250 ^PACPO.INC 00001B17 Gosub GDI.InitLogFont 251 ^PACPO.INC 00001B1C lfHeight$ = IntelD(8*20) ! 8 POINT 252 ^PACPO.INC 00001B34 lfFaceName$ = "Arial"+NullByte$ 253 ^PACPO.INC 00001B46 lfWeight$ = IntelD(FW.BOLD) 254 ^PACPO.INC 00001B55 Gosub SetFont 255 ^PACPO.INC 00001B5A 256 ^PACPO.INC 00001B5A Y1 = Y1 + LineHeight 257 ^PACPO.INC 00001B69 Data$ = "1625 RIGEL STREET" 258 ^PACPO.INC 00001B72 Print (1) (TR);(TextOut = X1, Y1);Data$;NullByte$ 259 ^PACPO.INC 00001B95 260 ^PACPO.INC 00001B95 Y1 = Y1 + LineHeight 261 ^PACPO.INC 00001BA4 Data$ = "SAN DIEGO, CA 92113" 262 ^PACPO.INC 00001BAD Print (1) (TR);(TextOut = X1, Y1);Data$;NullByte$ 263 ^PACPO.INC 00001BD0 !------------------------------------------------------------------------------- 264 ^PACPO.INC 00001BD0 Gosub GDI.InitLogFont 265 ^PACPO.INC 00001BD5 lfHeight$ = IntelD(7*20) ! 7 POINT UNDER 266 ^PACPO.INC 00001BED lfFaceName$ = "Arial"+NullByte$ 267 ^PACPO.INC 00001BFF lfWeight$ = IntelD(FW.BOLD) 268 ^PACPO.INC 00001C0E lfUnderline$ = INTEL(TRUE) 269 ^PACPO.INC 00001C1D Gosub SetFont 270 ^PACPO.INC 00001C22 271 ^PACPO.INC 00001C22 Y1 = (0.98 * TWIP.INCH) 272 ^PACPO.INC 00001C30 X1 = (1.65 * TWIP.INCH) 273 ^PACPO.INC 00001C3E Data$ = PCITY1$ 274 ^PACPO.INC 00001C47 Print (1) (TR);(TextOut = X1, Y1);Data$;NullByte$ 275 ^PACPO.INC 00001C6A 276 ^PACPO.INC 00001C6A Y1 = Y1 + (2.05 * LineHeight) 277 ^PACPO.INC 00001C8C Data$ = PCITY2$ 278 ^PACPO.INC 00001C95 Print (1) (TR);(TextOut = X1, Y1);Data$;NullByte$ 279 ^PACPO.INC 00001CB8 !------------------------------------------------------------------------------- 280 ^PACPO.INC 00001CB8 Gosub GDI.InitLogFont 281 ^PACPO.INC 00001CBD lfHeight$ = IntelD(7*20) ! 7 POINT 282 ^PACPO.INC 00001CD5 lfFaceName$ = "Arial"+NullByte$ 283 ^PACPO.INC 00001CE7 lfWeight$ = IntelD(FW.BOLD) 284 ^PACPO.INC 00001CF6 Gosub SetFont 285 ^PACPO.INC 00001CFB 286 ^PACPO.INC 00001CFB Y1 = (0.98 * TWIP.INCH) 287 ^PACPO.INC 00001D09 X1 = (2.65 * TWIP.INCH) 288 ^PACPO.INC 00001D17 Data$ = PPHONE1$ 289 ^PACPO.INC 00001D20 Print (1) (TR);(TextOut = X1, Y1);Data$;NullByte$ 290 ^PACPO.INC 00001D43 291 ^PACPO.INC 00001D43 Y1 = Y1 + LineHeight 292 ^PACPO.INC 00001D52 Data$ = PFAX1$ 293 ^PACPO.INC 00001D5B Print (1) (TR);(TextOut = X1, Y1);Data$;NullByte$ 294 ^PACPO.INC 00001D7E 295 ^PACPO.INC 00001D7E Y1 = Y1 + (1.05 * LineHeight) 296 ^PACPO.INC 00001DA0 Data$ = PPHONE2$ 297 ^PACPO.INC 00001DA9 Print (1) (TR);(TextOut = X1, Y1);Data$;NullByte$ 298 ^PACPO.INC 00001DCC 299 ^PACPO.INC 00001DCC Y1 = Y1 + LineHeight 300 ^PACPO.INC 00001DDB Data$ = PFAX2$ 301 ^PACPO.INC 00001DE4 Print (1) (TR);(TextOut = X1, Y1);Data$;NullByte$ 302 ^PACPO.INC 00001E07 !------------------------------------------------------------------------------- 303 ^PACPO.INC 00001E07 Y1 = (0.45 * TWIP.INCH) 304 ^PACPO.INC 00001E15 X1 = (4.70 * TWIP.INCH) 305 ^PACPO.INC 00001E23 Data$ = " V E N D O R " 306 ^PACPO.INC 00001E2C Print (1) (TR);(TextOut = X1, Y1);Data$;NullByte$ 307 ^PACPO.INC 00001E4F !------------------- 05/08/2015 ------------------------------------------------ 308 ^PACPO.INC 00001E4F Y1 = (0.45 * TWIP.INCH) 309 ^PACPO.INC 00001E5D X1 = (5.90 * TWIP.INCH) 310 ^PACPO.INC 00001E6B Data$ = SUB(QVNBR$,1,1) + ' ' + SUB(QVNBR$,2,1) + ' ' + SUB(QVNBR$,3,1) + ' ' 311 ^PACPO.INC 00001ED5 DATA$ = DATA$ + SUB(QVNBR$,4,1) + ' ' + SUB(QVNBR$,5,1) + ' ' + SUB(QVNBR$,6,1) 312 ^PACPO.INC 00001F3F Print (1) (TR);(TextOut = X1, Y1);Data$;NullByte$ 313 ^PACPO.INC 00001F62 !------------------------------------------------------------------------------- 314 ^PACPO.INC 00001F62 X1 = (8.65 * TWIP.INCH) 315 ^PACPO.INC 00001F70 Data$ = "S H I P T O" 316 ^PACPO.INC 00001F79 Print (1) (TR);(TextOut = X1, Y1);Data$;NullByte$ 317 ^PACPO.INC 00001F9C !------------------------------------------------------------------------------- 318 ^PACPO.INC 00001F9C !------------------------------------------------------------------------------- 319 ^PACPO.INC 00001F9C RECTLEFT = (0.00 * TWIP.INCH) 320 ^PACPO.INC 00001FAA RECTTOP = (0.00 * TWIP.INCH) 321 ^PACPO.INC 00001FB8 RECTWIDTH = (3.20 * TWIP.INCH) 322 ^PACPO.INC 00001FC6 RECTBOTTOM = RECTTOP + (0.00 * TWIP.INCH) 323 ^PACPO.INC 00001FE8 RECTRIGHT = RECTLEFT + RECTWIDTH 324 ^PACPO.INC 00001FF7 DATA$ = LOGOFILE$ 325 ^PACPO.INC 00002000 ! Scale 1 bitmap pixel equals .01in. 326 ^PACPO.INC 00002000 FLAGS = BMR.SCALE 327 ^PACPO.INC 0000200A PRINT (1) (DRAWBITMAP = RECTLEFT, RECTTOP, RECTRIGHT, _ 328 ^PACPO.INC 0000200C RECTBOTTOM, 960,960, FLAGS);DATA$ 329 ^PACPO.INC 00002036 !------------------- 04/06/2018 ------------------------------------------------ 330 ^PACPO.INC 00002036 Gosub GDI.InitLogFont 331 ^PACPO.INC 0000203B lfHeight$ = IntelD(7*20) ! 7 POINT 332 ^PACPO.INC 00002053 lfFaceName$ = "Arial"+NullByte$ 333 ^PACPO.INC 00002065 lfWeight$ = IntelD(FW.BOLD) 334 ^PACPO.INC 00002074 Gosub SetFont 335 ^PACPO.INC 00002079 336 ^PACPO.INC 00002079 Y1 = (7.85 * TWIP.INCH) 337 ^PACPO.INC 00002087 X1 = (0.70 * TWIP.INCH) 338 ^PACPO.INC 00002095 Data$ = 'PacShip Form 45-002 (Rev. 1)' 339 ^PACPO.INC 0000209E Print (1) (TR);(TextOut = X1, Y1);Data$;NullByte$ 340 ^PACPO.INC 000020C1 !------------------------------------------------------------------------------- 341 ^PACPO.INC 000020C1 PRINT (1) (TR);(SelectSysFont=10) 342 ^PACPO.INC 000020D2 PRINT (1) (TR);(LineSpacing=6) 343 ^PACPO.INC 000020E3 344 ^PACPO.INC 000020E3 464 ^PO(P).INC 000020E3 465 ^PO(P).INC 000020E3 LET PAGE = PAGE + 1 466 ^PO(P).INC 000020F2 467 ^PO(P).INC 000020F2 INCLUDE '^QPCR.INC' 1 ^QPCR.INC 000020F2 ! ! 2 ^QPCR.INC 000020F2 !========================= ^QPCR =============================================== 3 ^QPCR.INC 000020F2 ! ! 4 ^QPCR.INC 000020F2 LET PCR1$ = '' 5 ^QPCR.INC 000020FB LET PCR2$ = '' 6 ^QPCR.INC 00002104 LET PCR3$ = '' 7 ^QPCR.INC 0000210D IF QCOPY$ GT '000' LET PCR1$ = 'COPY:' + QCOPY$ 8 ^QPCR.INC 0000212D IF QREV$ GT '000' LET PCR2$ = 'REV: ' + QREV$ 9 ^QPCR.INC 0000214D IF PAGE GT 1 LET PCR3$ = 'PAGE:' + STR(PAGE) 10 ^QPCR.INC 00002174 11 ^QPCR.INC 00002174 !==============================================================================! 468 ^PO(P).INC 00002174 469 ^PO(P).INC 00002174 PRINT (1,2810) 470 ^PO(P).INC 0000217B PRINT (1,2811) 471 ^PO(P).INC 00002182 !------------------- 05/13/2013 ------------------------------------------------ 472 ^PO(P).INC 00002182 PRINT (1) (TR);(LineSpacing=8) 473 ^PO(P).INC 00002193 PRINT (1) '' 474 ^PO(P).INC 0000219E PRINT (1) '' 475 ^PO(P).INC 000021A9 PRINT (1) (TR);(LineSpacing=6) 476 ^PO(P).INC 000021BA !------------------------------------------------------------------------------- 477 ^PO(P).INC 000021BA LET LINE = 34 478 ^PO(P).INC 000021C4 LET CFLAG = 0 479 ^PO(P).INC 000021CE IF QTC$(1) NE 'Y' OR PAGE GT 1 RETURN 480 ^PO(P).INC 000021FE PRINT (1,2812) 481 ^PO(P).INC 00002205 LET LINE = LINE - 7 482 ^PO(P).INC 00002214 RETURN 483 ^PO(P).INC 00002215 484 ^PO(P).INC 00002215 SetPrinterSpecifications: 485 ^PO(P).INC 00002215 !------------------- 03/12/2017 ------------------------------------------------ 486 ^PO(P).INC 00002215 OPEN (1) ZLP$ 487 ^PO(P).INC 0000221C LET PASS$ = DSTAT(ZLP$) 488 ^PO(P).INC 0000222B LET PASS$ = SUB(HEXASC(SUB(PASS$,5,1)),1,1) 489 ^PO(P).INC 00002256 IF SUB(PASS$,1,1) EQ '3' ! SPOOLER 490 ^PO(P).INC 00002272 LET MESSAGE$ = QPNBR$ + '-' + QCOPY$ + '-' + QREV$ 491 ^PO(P).INC 0000229F PRINT (1) (TR);(SpoolMessage = MESSAGE$) 492 ^PO(P).INC 000022B0 ENDIF 493 ^PO(P).INC 000022B0 !------------------------------------------------------------------------------- 494 ^PO(P).INC 000022B0 PRINT (1) (TR);(SetOrientation = DMOrient.Landscape) 495 ^PO(P).INC 000022C1 496 ^PO(P).INC 000022C1 GOSUB INITPAGEINFO 497 ^PO(P).INC 000022C6 498 ^PO(P).INC 000022C6 ! Exclude non-printable area 499 ^PO(P).INC 000022C6 PRINT (1) (TR);(GetPageInfo = PTR.PAGEINFO.PHYSICALOFFSET) 500 ^PO(P).INC 000022D7 GOSUB GETRESULT 501 ^PO(P).INC 000022DC XOFF = 360 - LORESULT 502 ^PO(P).INC 000022EB YOFF = 360 - HIRESULT 503 ^PO(P).INC 000022FA ! 504 ^PO(P).INC 000022FA !!!!! PRINT (1) (TR);(SetViewPortOrg = XOFF, YOFF) ! 1/4" margin on PDF 505 ^PO(P).INC 000022FA RETURN 506 ^PO(P).INC 000022FB 507 ^PO(P).INC 000022FB DrawGrayRectangle: 508 ^PO(P).INC 000022FB PRINT (1) (TR);(SelectPen = PS.SOLID, THIN.PEN.WIDTH, 0, 0, 0) 509 ^PO(P).INC 0000231C PRINT (1) (TR);(SelectSolidBrush = 200, 200, 200) ! SHADE OF GRAY 510 ^PO(P).INC 00002335 PRINT (1) (TR);(Rectangle = RectLeft, RectTop, RectRight, RectBottom) 511 ^PO(P).INC 00002352 RETURN 512 ^PO(P).INC 00002353 513 ^PO(P).INC 00002353 .ENDIF ! EXECUTABLES PASS 514 ^PO(P).INC 00002353 ! ! 515 ^PO(P).INC 00002353 !++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++! 145 QE6B.IBS 00002353 146 QE6B.IBS 00002353 INCLUDE "^COSGOS.INC" 1 ^COSGOS.INC 00002353 !------------------- ^COSGOS --------------------------------------------- 2 ^COSGOS.INC 00002353 ! 3 ^COSGOS.INC 00002353 INITPAGEINFO: 4 ^COSGOS.INC 00002353 ! Actual printable area 5 ^COSGOS.INC 00002353 PRINT (1, FMT.PAGEINFOPRINTABLE) 6 ^COSGOS.INC 0000235A GOSUB GETRESULT 7 ^COSGOS.INC 0000235F PAGEWIDTH = LORESULT 8 ^COSGOS.INC 00002369 PAGEHEIGHT = HIRESULT 9 ^COSGOS.INC 00002373 ! 10 ^COSGOS.INC 00002373 ! Physical width of paper 11 ^COSGOS.INC 00002373 PRINT (1, FMT.PAGEINFOPHYSICAL) 12 ^COSGOS.INC 0000237A GOSUB GETRESULT 13 ^COSGOS.INC 0000237F PAGECENTERPOS = LORESULT / 2 14 ^COSGOS.INC 0000238D ! 15 ^COSGOS.INC 0000238D ! Exclude non-printable area 16 ^COSGOS.INC 0000238D PRINT (1, FMT.PAGEINFOPHYSOFFSET) 17 ^COSGOS.INC 00002394 GOSUB GETRESULT 18 ^COSGOS.INC 00002399 PAGECENTERPOS = PAGECENTERPOS - LORESULT 19 ^COSGOS.INC 000023A8 ! 20 ^COSGOS.INC 000023A8 ! Hi-Res Laser has 1/4 in. offset 21 ^COSGOS.INC 000023A8 IF (HIRESULT EQ TWIP.QUARTERINCH) 22 ^COSGOS.INC 000023B7 SHADESOFGRAY = 230 23 ^COSGOS.INC 000023C1 ELSE 24 ^COSGOS.INC 000023C6 SHADESOFGRAY = 150 25 ^COSGOS.INC 000023D0 ENDIF 26 ^COSGOS.INC 000023D0 RETURN 27 ^COSGOS.INC 000023D1 ! 28 ^COSGOS.INC 000023D1 SETFONT: 29 ^COSGOS.INC 000023D1 PRINT (#, LOGFONT) 30 ^COSGOS.INC 000023D8 INPUT (#) DATA$ 31 ^COSGOS.INC 000023E3 PRINT (1, FMT.SELECTFONT) 32 ^COSGOS.INC 000023EA GOSUB CALCLINEHEIGHT 33 ^COSGOS.INC 000023EF RETURN 34 ^COSGOS.INC 000023F0 ! 35 ^COSGOS.INC 000023F0 CALCLINEHEIGHT: 36 ^COSGOS.INC 000023F0 ! Character height 37 ^COSGOS.INC 000023F0 PRINT (1, FMT.GETFONTINFOHEIGHT) 38 ^COSGOS.INC 000023F7 GOSUB GETRESULT 39 ^COSGOS.INC 000023FC LINEHEIGHT = LORESULT 40 ^COSGOS.INC 00002406 ! External leading is the space between lines 41 ^COSGOS.INC 00002406 PRINT (1, FMT.GETFONTINFOLEADING) 42 ^COSGOS.INC 0000240D GOSUB GETRESULT 43 ^COSGOS.INC 00002412 LINEHEIGHT = LINEHEIGHT + LORESULT 44 ^COSGOS.INC 00002421 RETURN 45 ^COSGOS.INC 00002422 ! 46 ^COSGOS.INC 00002422 CALCCHARWIDTH: 47 ^COSGOS.INC 00002422 ! Character width 48 ^COSGOS.INC 00002422 PRINT (1, FMT.GETFONTINFOWIDTH) 49 ^COSGOS.INC 00002429 GOSUB GETRESULT 50 ^COSGOS.INC 0000242E CHARWIDTH = LORESULT 51 ^COSGOS.INC 00002438 ! Space between lines characters 52 ^COSGOS.INC 00002438 !!!!!PRINT (1, FMT.GETFONTINFOLEADING) 53 ^COSGOS.INC 00002438 !!!!!GOSUB GETRESULT 54 ^COSGOS.INC 00002438 !!!!!LINEHEIGHT = LINEHEIGHT + LORESULT 55 ^COSGOS.INC 00002438 RETURN 56 ^COSGOS.INC 00002439 ! 57 ^COSGOS.INC 00002439 GETRESULT: 58 ^COSGOS.INC 00002439 PRINT (1, FMT.GETFUNCRESULT) 59 ^COSGOS.INC 00002440 INPUT (1, FMT.RESULT) 60 ^COSGOS.INC 00002447 LOWORD$ = SUB(LOWORD$,2,1) + LOWORD$ 61 ^COSGOS.INC 00002467 HIWORD$ = SUB(HIWORD$,2,1) + HIWORD$ 62 ^COSGOS.INC 00002487 LORESULT = HEXDEC(LOWORD$) 63 ^COSGOS.INC 00002492 HIRESULT = HEXDEC(HIWORD$) 64 ^COSGOS.INC 0000249D RETURN 65 ^COSGOS.INC 0000249E ! 147 QE6B.IBS 0000249E 148 QE6B.IBS 0000249E INCLUDE 'FileFind.Ibs' 1 FILEFIND.IBS 0000249E !========================================================== 2 FILEFIND.IBS 0000249E ! 3 FILEFIND.IBS 0000249E ! Given a filename and a comet directory this routine 4 FILEFIND.IBS 0000249E ! searches the specified comet directory(ies) for the 5 FILEFIND.IBS 0000249E ! filename. If found, the fully qualified DOS filename 6 FILEFIND.IBS 0000249E ! is returned. 7 FILEFIND.IBS 0000249E ! 8 FILEFIND.IBS 0000249E ! ON ENTRY: contains the filename 9 FILEFIND.IBS 0000249E ! 10 FILEFIND.IBS 0000249E ! contains the Comet directory (or NULL) 11 FILEFIND.IBS 0000249E ! 12 FILEFIND.IBS 0000249E ! ON EXIT: contains the fully qualified DOS 13 FILEFIND.IBS 0000249E ! filename if successful or "" if failed 14 FILEFIND.IBS 0000249E ! 15 FILEFIND.IBS 0000249E !========================================================== 16 FILEFIND.IBS 0000249E COS.FindFile: 17 FILEFIND.IBS 0000249E .IFDEF TRACE.CALLS 19 FILEFIND.IBS 0000249E .ENDIF 20 FILEFIND.IBS 0000249E 21 FILEFIND.IBS 0000249E ! Set Disk Transfer Area 22 FILEFIND.IBS 0000249E cosDTA$ = String('TEST',255) 23 FILEFIND.IBS 000024B1 cosAX$ = '@1A00@' 24 FILEFIND.IBS 000024BA cosCX$ = '@0016@' 25 FILEFIND.IBS 000024C3 cosDX$ = '@0000@' 26 FILEFIND.IBS 000024CC DosFC(cosAX$, cosCX$, cosDTA$) 27 FILEFIND.IBS 000024DA 28 FILEFIND.IBS 000024DA cosFileNames$ = UCASE(cosFileNames$) 29 FILEFIND.IBS 000024E9 cosDirNames$ = UCASE(cosDirNames$) 30 FILEFIND.IBS 000024F8 31 FILEFIND.IBS 000024F8 FOR cosDAB = 0 TO 49 32 FILEFIND.IBS 00002511 cosSysData$ = "D"+SUB(STR(cosDAB*.01), 16, 2) 33 FILEFIND.IBS 00002540 34 FILEFIND.IBS 00002540 cosSysData$ = UCASE(DSTAT(cosSysData$, EXCP=NO.DIR)) 35 FILEFIND.IBS 00002559 cosFileSpec$ = SUB(cosSysData$, 4, 254) + cosFileNames$ + NullByte$ 36 FILEFIND.IBS 00002582 37 FILEFIND.IBS 00002582 cosAX$ = "" 38 FILEFIND.IBS 0000258B IF ((cosDirNames$ EQ "") OR (SUB(cosSysData$, 1, 3) EQ cosDirNames$)) 39 FILEFIND.IBS 000025BA 40 FILEFIND.IBS 000025BA ! File found - success 41 FILEFIND.IBS 000025BA cosAX$ = "@4E00@" ! DOS FindFirst function 42 FILEFIND.IBS 000025C3 cosCX$ = "@0000@" 43 FILEFIND.IBS 000025CC 44 FILEFIND.IBS 000025CC DOSFC(cosAX$, cosCX$, cosFileSpec$) EXCP=COS.FF.NOT.FOUND 45 FILEFIND.IBS 000025DE 46 FILEFIND.IBS 000025DE cosDirNames$ = SUB(cosSysData$, 1, 3) 47 FILEFIND.IBS 000025F5 48 FILEFIND.IBS 000025F5 .IFDEF TRACE.CALLS 55 FILEFIND.IBS 000025F5 .ENDIF 56 FILEFIND.IBS 000025F5 57 FILEFIND.IBS 000025F5 RETURN 58 FILEFIND.IBS 000025F6 59 FILEFIND.IBS 000025F6 COS.FF.NOT.FOUND: 60 FILEFIND.IBS 000025F6 61 FILEFIND.IBS 000025F6 ! Dir specified - fail if not found 62 FILEFIND.IBS 000025F6 IF (cosDirNames$ NE "") _ 63 FILEFIND.IBS 00002604 BREAK 64 FILEFIND.IBS 00002609 65 FILEFIND.IBS 00002609 ! ELSE - No dir specified, try next DSTAT 66 FILEFIND.IBS 00002609 ENDIF 67 FILEFIND.IBS 00002609 68 FILEFIND.IBS 00002609 NO.DIR: 69 FILEFIND.IBS 00002609 NEXT cosDAB 70 FILEFIND.IBS 0000261D 71 FILEFIND.IBS 0000261D .IFDEF TRACE.CALLS 94 FILEFIND.IBS 0000261D .ENDIF 95 FILEFIND.IBS 0000261D 96 FILEFIND.IBS 0000261D cosFileSpec$ = "" 97 FILEFIND.IBS 00002626 RETURN 149 QE6B.IBS 00002627 150 QE6B.IBS 00002627 INCLUDE 'LogFont.Ibs' 1 LOGFONT.IBS 00002627 .IFNDEF INITLOGFONT.DEFINED 2 LOGFONT.IBS 00002627 SET INITLOGFONT.DEFINED = 1 3 LOGFONT.IBS 00002627 GDI.InitLogFont: 4 LOGFONT.IBS 00002627 lfHeight$ = INTELD(0) ! Twentieth of a point (using GDI.CreatePointFont) 5 LOGFONT.IBS 00002636 lfWidth$ = INTELD(0) ! Match to font 6 LOGFONT.IBS 00002645 lfEscapement$ = INTELD(0) ! No line rotation 7 LOGFONT.IBS 00002654 .IFDEF WINGID.DEFINED 9 LOGFONT.IBS 00002654 .ELSE 10 LOGFONT.IBS 00002654 lfOrientation$ = INTELD(0) ! No char rotation 11 LOGFONT.IBS 00002663 .ENDIF 12 LOGFONT.IBS 00002663 lfWeight$ = INTELD(FW.NORMAL) 13 LOGFONT.IBS 00002672 lfItalic$ = INTEL(FALSE) 14 LOGFONT.IBS 00002681 lfUnderline$ = INTEL(FALSE) 15 LOGFONT.IBS 00002690 lfStrikeOut$ = INTEL(FALSE) 16 LOGFONT.IBS 0000269F lfCharSet$ = INTEL(OEM.CHARSET) !ANSI.CHARSET 17 LOGFONT.IBS 000026AE lfOutPrecision$ = INTEL(OUT.DEFAULT.PRECIS) 18 LOGFONT.IBS 000026BD lfClipPrecision$ = INTEL(CLIP.DEFAULT.PRECIS) 19 LOGFONT.IBS 000026CC lfQuality$ = INTEL(DRAFT.QUALITY) 20 LOGFONT.IBS 000026DB lfPitchAndFamily$ = INTEL(DEFAULT.PITCH+FF.DONTCARE) 21 LOGFONT.IBS 000026F4 lfFaceName$ = "MS Sans Serif"+NullByte$ 22 LOGFONT.IBS 00002706 RETURN 23 LOGFONT.IBS 00002707 .ENDIF 151 QE6B.IBS 00002707 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! 152 QE6B.IBS 00002707 153 QE6B.IBS 00002707 ! 154 QE6B.IBS 00002707 9890! 155 QE6B.IBS 00002707 IF EXCP EQ 31 AGAIN ! BUSY, TRY AGAIN 156 QE6B.IBS 00002717 IF EXCP EQ 30 GOTO ProgramError ! PRINTER PROBLEM 157 QE6B.IBS 0000272B GOTO 9990 158 QE6B.IBS 00002730 ! 159 QE6B.IBS 00002730 9990! 160 QE6B.IBS 00002730 ProgExit: 161 QE6B.IBS 00002730 EXIT 162 QE6B.IBS 00002732 END FORMAT 1701 defined at 00000010 cannot be executed FORMAT 1704 defined at 00000020 cannot be executed FORMAT 3000 defined at 00000BCE cannot be executed FORMAT COSSYSDATASTRUCT defined at 0000030B cannot be executed FORMAT FMT.DRAWBITMAP defined at 00000445 cannot be executed FORMAT FMT.LINETO defined at 0000035B cannot be executed FORMAT FMT.MOVETO defined at 0000034D cannot be executed FORMAT FMT.RECTANGLE defined at 000003C1 cannot be executed FORMAT FMT.SELECTGRAYBRUSH defined at 0000039D cannot be executed FORMAT FMT.SELECTNULLPEN defined at 00000383 cannot be executed FORMAT FMT.SELECTSYSFONT0 defined at 0000047C cannot be executed FORMAT FMT.SELECTSYSFONT1 defined at 00000486 cannot be executed FORMAT FMT.SELECTSYSFONT10 defined at 0000049A cannot be executed FORMAT FMT.SELECTSYSFONT11 defined at 000004A4 cannot be executed FORMAT FMT.SELECTSYSFONT12 defined at 000004AE cannot be executed FORMAT FMT.SELECTSYSFONT13 defined at 000004B8 cannot be executed FORMAT FMT.SELECTSYSFONT14 defined at 000004C2 cannot be executed FORMAT FMT.SELECTSYSFONT15 defined at 000004CC cannot be executed FORMAT FMT.SELECTSYSFONT16 defined at 000004D6 cannot be executed FORMAT FMT.SELECTSYSFONT17 defined at 000004E0 cannot be executed FORMAT FMT.SELECTSYSFONT18 defined at 000004EA cannot be executed FORMAT FMT.SELECTSYSFONT19 defined at 000004F4 cannot be executed FORMAT FMT.SELECTSYSFONT2 defined at 00000490 cannot be executed FORMAT FMT.SELECTSYSFONT20 defined at 000004FE cannot be executed FORMAT FMT.SELECTTHINPEN defined at 00000369 cannot be executed FORMAT FMT.SELECTWHITEBRUSH defined at 000003AF cannot be executed FORMAT FMT.SETBKMODEOPAQUE defined at 00000423 cannot be executed FORMAT FMT.SETBKMODETRANSPARENT defined at 00000419 cannot be executed FORMAT FMT.SETBLACKTEXT defined at 000003E9 cannot be executed FORMAT FMT.SETREDTEXT defined at 000003D7 cannot be executed FORMAT FMT.TEXTALIGNCENTER defined at 00000405 cannot be executed FORMAT FMT.TEXTALIGNLEFT defined at 000003FB cannot be executed FORMAT FMT.TEXTALIGNRIGHT defined at 0000040F cannot be executed FORMAT FMT.TEXTOUT defined at 0000042D cannot be executed WARNING: STATEMENT 9890 defined at 00002707 cannot be executed WARNING: STATEMENT CALCCHARWIDTH defined at 00002422 cannot be executed WARNING: STATEMENT DRAWGRAYRECTANGLE defined at 000022FB cannot be executed PROGRAM MEMORY REQUIREMENTS COMMON 00000388 LOCAL 00007144 CONSTANTS 00006274 FORMATS 00003022 CODE 00010035 -------- TOTAL 00026863 COMPILE COMPLETED TOTAL ERRORS 0 ZZZZZZZ QE6B.IBS 00000000 END TOTAL ERRORS 0