Listing of file='P21D020A' on disk='vmedia/702-0079.wvd.zip'
# Sector 750, program filename = 'P21D020A'
0005 REM % P21D020A MOD 1/10/80 J. BROOKS
0160 REM THE 2221 PROGRAM
0170 A=12345.67890
0180 B=98765.43210
0190 C=78787.87878
0200 D=96969.69696
0210 E=45454.54545
0220 PRINT HEX(03);"2200 HARDWARE DIAGNOSTICS - 2221 PRINTER -----------------
-------"
: PRINT HEX(0A0A0A0A0A0A0A0A0A0A0A0A0A0A);"DIAGNOSTIC MENU ; KEY 'RESET' AN
D SF'31";HEX(01)
0230 PRINT HEX(010A0A0A0A);"1. 204","2. 214","3. 215","4. 216"
: PRINT HEX(0C0C);
: INPUT " SELECT PRINTER ADDRESS ",J
: PRINT HEX(0A0A0D);
0240 INPUT "NUMBER OF PASSES DESIRED",X
0250 GOSUB '100
0260 FOR M=1TO X
0270 PRINT " ";
0280 PRINT "NOW IS THE TIME FOR EVERYONE TO COME TO THE AID OF THEIR COUNTRY A
ND SAVE ENERGY"
0290 PRINT " ";
0300 PRINT "ABCDEFGHIJKLMNOPQRSTUVWXYZ%'$#:/()*<>-^;+=,0123456789 1234567
890 /()*<>+"
0310 PRINT " ";
0320 PRINT HEX(20202122232425262728292A2B2C2D2E2F303132333435363738393A3B3C3D3
E3F404142434445464748494A4B4C4D4E4F505152535455565758595A5B5C5D5E5F2020)
0330 FOR L=1TO 5
0340 PRINT A,B,C,D,E,D,C,A
0350 NEXT L
0360 PRINT HEX(0E20202020202020202020202020);
0370 PRINT "THIS LINE SHOULD HAVE EXPANDED PRINT "
0380 PRINT HEX(0A0E0720202020202020202020);
0390 PRINT " THE ALARM SHOULD HAVE SOUNDED!!!!!"
0400 PRINT HEX(0B);
0410 PRINT " ";
0420 PRINT "**************************A VERTICAL TAB WAS EXECUTED.************
**************"
0430 NEXT M
0440 SELECT PRINT 005 (64)
0450 STOP
0460 DEFFN'31
: SELECT PRINT 005(64)
: LOAD DC T"START"
1500 DEFFN'100
: ON J GOTO 1520,1530,1540,1550
1520 SELECT PRINT 204(132)
: RETURN
1530 SELECT PRINT 214(132)
: RETURN
1540 SELECT PRINT 215(132)
: RETURN
1550 SELECT PRINT 216(132)
: RETURN