0010 !  PRINTER  2-11-89  !
0020 INPUT "PRINT TYPE (0-3): ","0";Z$
0030 IF LEN(Z$)#1 THEN BEEP @ GOTO 20
0040 IF NOT POS("0123",Z$) THEN BEEP @ GOTO 20
0050 ON VAL(Z$)+1 GOTO 60,70,80,90
0060 PWIDTH 80 @ GOTO 100
0070 PWIDTH 40 @ GOTO 100
0080 PWIDTH 142 @ GOTO 100
0090 PWIDTH 71
0100 Q1$=CHR$(27)&"&k"&Z$&"S"
0110 INPUT "BOLD OR LIGHT (B,L): ","L";Y$
0120 IF Y$[1,1]="L" THEN Q2$=CHR$(27)&"(s0B" @ GOTO 140
0130 IF Y$[1,1]="B" THEN Q2$=CHR$(27)&"(s1B" ELSE BEEP @ GOTO 110
0140 INPUT "Perf. SKIP (Y,N): ","Y";X$
0150 IF X$[1,1]="Y" THEN Q3$=CHR$(27)&"&l1L" @ GOTO 170
0160 IF X$[1,1]="N" THEN Q3$=CHR$(27)&"&l0L" ELSE BEEP @ GOTO 140
0170 PRINT Q1$&Q2$&Q3$;
0180 END 
