( SCREEN TO SET UP PRINTER )

: SCREEN
CLS
20 1 GOTOXY
INTENSITY ." PRINTER CONTROL SETUP" -INTENSITY
20 3 GOTOXY
 ." 0.  CORRESPONDENCE"
20 4 GOTOXY
 ." 1.  CORRESPONDENCE OFF"
20 5 GOTOXY
 ." 2.  BOLD"
20 6 GOTOXY
 ." 3.  BOLD OFF"
20 7 GOTOXY
 ." 4.  UNDERLINE"
20 8 GOTOXY
 ." 5.  UNDERLINE OFF"
20 9 GOTOXY
 ." 6.  DOUBLE WIDE"
20 10 GOTOXY
 ." 7.  DOUBLE WIDE OFF"
20 11 GOTOXY
 ." 8.  CONDENSED"
20 12 GOTOXY
 ." 9.  CONDENSED OFF"
45 2 GOTOXY  BLINK ." PRINTER MUST BE ON LINE"
45 3 GOTOXY ." OR YOUR SYSTEM WILL HANG." -BLINK
12 20 GOTOXY ." Presented to Public Domain July 17, 1985" CR
17 21 GOTOXY ." Written by Richard I Gargus." ;

: OOPS
20 16 GOTOXY BLINK ." PLEASE SELECT BY NUMBER SHOWN." -BLINK ;

: DIRECTOR
CASE
     0 OF 17 27 -1 ENDOF ( correspondence )
     1 OF 19 27 -1 ENDOF
     2 OF 31 27 -1 ENDOF ( bold )
     3 OF 32 27 -1 ENDOF
     4 OF 67 27 -1 ENDOF ( underline )
     5 OF 68 27 -1 ENDOF
     6 OF 14 27 -1 ENDOF ( double wide )
     7 OF 15 27 -1 ENDOF
     8 OF 20 27 -1 ENDOF ( condensed )
     9 OF 19 27 -1 ENDOF
ENDCASE ;

: PRINT-PASS
DUP -1 > IF EMIT
    ELSE DROP
    THEN ;

: QUE
SCREEN
20 14 GOTOXY
 ." PLEASE ENTER SELECTION " KEY DUP EMIT
DUP DUP 47 > SWAP 58 < AND
DUP NOT IF OOPS THEN
UNTIL
48 - DIRECTOR
PRINTER
3 0 DO PRINT-PASS LOOP
CONSOLE
CLS ;