1 'MX-80 Printer Control Program
2 'R.D.Presson        11/30/81
3 'Last modified      12/03/81
4 '
5 '
10 CLS:KEY OFF:LOCATE 5,10:PRINT"Printer Control Program
15 ON ERROR GOTO 30000
20 GOSUB 40000
30 GOSUB 50000
40 GOSUB 60000
55 LOCATE 18,10:PRINT"Quit":LOCATE 18,30:PRINT"5"
57 LOCATE 16,10:PRINT"Test":LOCATE 16,30:PRINT"4"
60 GOSUB 5000:IF ANS <> 5 THEN 60
1000 KEY ON:CLS:END
5000 AN$=INKEY$: IF AN$="" THEN 5000
5010 ANS=ASC(AN$):ANS=ANS-48:IF (ANS>255) OR (ANS<0) THEN 5000
5015 ON ANS GOSUB 11000,12000,13000,14000:RETURN
5050 '
5060 '
11000 IF OPT1% THEN OPT1%=0:LPRINT CHR$(15):LOCATE 10,10:COLOR 9:PRINT"132 cpl";:COLOR 7:PRINT"    80 cpl" ELSE 40000
11005 IF OPT2% THEN 50000
11010 RETURN
11020 '
11030 '
12000 IF NOT OPT2% THEN OPT2%=-1:LPRINT CHR$(27)+CHR$(69):LOCATE 12,10:COLOR 9:PRINT"Emphasized mode" :COLOR 7 :IF NOT OPT1% THEN 40000 ELSE :ELSE 50000
12010 RETURN
12020 '
12030 '
13000 IF NOT OPT3% THEN OPT3%=-1:LPRINT CHR$(27)+CHR$(71):LOCATE 14,10:COLOR 9:PRINT"Double Strike mode" :COLOR 7 ELSE 60000
13010 RETURN
13050 '
13060 '
13070 '
14000 LOCATE 16,10:COLOR 31:PRINT"Test":COLOR 7:LOCATE 23,1:INPUT"Enter test phrase: ",TEST$:
14010 LOCATE 23,1:PRINT SPACE$(79):IF TEST$<>"" THEN LPRINT TEST$:GOTO 14000
14015 GOTO 57
30000 IF(ERR=24) OR (ERR=27) OR (ERR=68) THEN CLS:LOCATE 12,1:INPUT "The printer is off or out of paper.  Press return when ready.",JUNK:GOTO 10 ELSE :PRINT"Error ";ERR;" occurred at line ";ERL:END
40000 LPRINT CHR$(146):LOCATE 10,10:PRINT"132 cpl    ";:COLOR 9:PRINT"80 cpl":LOCATE 10,30:COLOR 7:PRINT"1":OPT1%=-1:RETURN
40100 '
50000 COLOR 7:LOCATE 12,10:LPRINT CHR$(27)+CHR$(70):PRINT"Emphasized mode":LOCATE 12,30:PRINT"2":OPT2%=0:RETURN
50100 '
60000 COLOR 7:LOCATE 14,10:LPRINT CHR$(27)+CHR$(72):PRINT"Double Strike mode":LOCATE 14,30:PRINT"3":OPT3%=0:RETURN