DataMuseum.dk

top - download

    Length: 2176 (0x880)
    Types: TextFile
    Names: »PRINTOPT.PRG«

└─⟦71c82d5c0⟧ Bits:30004214 LISTAID - Partslist management system
    └─ ⟦this⟧ »PRINTOPT.PRG« 

TextFile

*******************************************************************************
* GETS PRINTOPTIONS AND SETS PRINTERMODE
SET FORMAT TO SCREEN
ERASE
ACCEPT 'UNIT SWITCH (Y/N): ' TO UNIT
STORE !(UNIT) TO UNIT
IF UNIT='Y'
   DO UNIT
ENDIF
RELEASE UNIT
ERASE
STORE 1 TO CPI

@  5,10 SAY 'CHARACTERS/INCH (1=10cpi, 2=12cpi ,3=17cpi) '
@  5,56 GET CPI PICTURE '#'
READ
DO WHILE CPI<1.OR.CPI>3
   @ 5,56 GET CPI PICTURE '#'
   READ
ENDDO
DO CASE
   CASE CPI=1
        STORE CHR(30) TO PRINTCTR
   CASE CPI=2
        STORE CHR(28) TO PRINTCTR
   CASE CPI=3
        STORE CHR(29) TO PRINTCTR
ENDCASE
STORE PRINTCTR-CHR(27) TO PRINTCTR
STORE F TO COR
@ 6,10 SAY 'CORRESPONDENCE QUALITY? (Y/N) ' GET COR
READ
IF COR
   STORE PRINTCTR-CHR(49) TO PRINTCTR
ELSE
   STORE PRINTCTR-CHR(48) TO PRINTCTR
   @ 7,10 SAY 'EMPHASIZED PRINTING? (Y/N) :' GET COR
   READ
   IF COR
      STORE PRINTCTR-CHR(27)-CHR(72) TO PRINTCTR
   ELSE
      STORE PRINTCTR-CHR(27)-CHR(73) TO PRINTCTR
   ENDIF
ENDIF
SET PRINT ON
? PRINTCTR
SET PRINT OFF
SET FORMAT TO SCREEN
ERASE
@ 1,1 SAY 'START PAGENUMBERING AT: ' GET PINIT PICTURE '##'
READ
IF TYPE(PINIT)<>'N'
   @ 1,1 SAY "SHAME ON YOU--- DON'T TRY TO CHEAT ON ME ' GET PINIT PICTURE '##'
ENDIF
ERASE
@ 1,1 SAY 'DO YOU WANT DOCUMENTHEADINGS? (Y/N) ' GET COR
READ
IF COR
   @ 3,0 SAY 'TOP 3 LINES (NB: TAIL OF LINE 3 CONTAINS THE PAGE NUMBER)'
   @ 4,0 GET HEAD1L PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
   @ 4,38 GET HEAD1R PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
   @ 5,0 GET HEAD2L PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
   @ 5,38 GET HEAD2R PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
   @ 6,0 GET HEAD3L PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
   @ 6,38 SAY '                       PAGE No'
   @ 8,0 SAY 'BOTTOM 3 LINES'
   @ 9,0 GET BOTT1 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  @ 10,0 GET BOTT2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  @ 11,0 GET BOTT3 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
   READ
ENDIF
ERASE
RELEASE CPI,COR
RETURN
«eof»