Software Du Jour/SoftwareDuJour.iso/BUSINESS/DBASE/DB2IOS.ARC/PRINT.SIG

Text File | 1983-01-04 | 1.6 KB | 77 lines

* print.sig 08/18/83
* this module prints the displayed record
SET FORMAT TO PRINT
SET CONSOLE OFF
* put your printer code for 12 characters per inch here
? CHR(28)
SET CONSOLE ON
EJECT
@ 1,10 SAY 'SIG/M SOFTWARE - BOX 97 - ISELIN, NJ 08830'
@ 3,6 SAY 'ORDER NUMBER'
@ 3,19 SAY ':'
@ 3,20 SAY ORDER
@ 3,42 SAY 'Complete'
@ 3,51 SAY ':'
@ 3,52 SAY COMP
@ 5,9 SAY 'Last name'
@ 5,19 SAY ':'
@ 5,20 SAY LNAME
@ 5,45 SAY 'First'
@ 5,51 SAY ':'
@ 5,52 SAY FNAME
@ 7,11 SAY 'Address'
@ 7,19 SAY ':'
@ 7,20 SAY ADDR1
@ 8,10 SAY '(line 2)'
@ 8,19 SAY ':'
@ 8,20 SAY ADDR2
@ 9,10 SAY '(line 3)'
@ 9,19 SAY ':'
@ 9,20 SAY ADDR3
@ 10,14 SAY 'City'
@ 10,19 SAY ':'
@ 10,20 SAY CITY
@ 10,48 SAY 'ST'
@ 10,51 SAY ':'
@ 10,52 SAY STATE
@ 10,67 SAY 'Zip'
@ 10,71 SAY ':'
@ 10,72 SAY ZIP
@ 13,3 SAY 'Volumes'
@ 13,11 SAY ':'
@ 13,12 SAY VOL1
@ 16,4 SAY 'Amount'
@ 16,11 SAY ':'
@ 16,12 SAY AMT USING '$###.##'
@ 16,43 SAY 'Entered'
@ 16,51 SAY ':'
@ 16,52 SAY ENTERED
@ 16,62 SAY 'Shipped'
@ 16,70 SAY ':'
@ 16,71 SAY SHIPPED
@ 17,43 SAY 'Catalog'
@ 17,51 SAY ':'
@ 17,52 SAY CATALOG
@ 18,3 SAY 'Remarks'
@ 18,11 SAY ':'
@ 18,12 SAY REM1
@ 19,3 SAY 'Remarks'
@ 19,11 SAY ':'
@ 19,12 SAY REM2
@ 20,1 SAY 'Backorder'
@ 20,11 SAY ':'
@ 20,12 SAY BO
@ 22,01 SAY 'Backorder shipped'
@ 22,19 SAY ':'
@ 22,20 SAY BO:SHIP
@ 22,40 SAY 'Backorder shipped'
@ 22,58 SAY ':'
@ 22,59 SAY BO2:SHIP
@ 26,40 SAY DATE()
@ 52,0 SAY ' '
SET CONSOLE OFF
* put printer code here for back to 10 cpi
? CHR(30)
SET CONSOLE ON
SET FORMAT TO SCREEN