Listing of file='P31D020A' on disk='vmedia/702-0079.wvd.zip'
# Sector 49, program filename = 'P31D020A'
0160 REM % P31D020A MOD 4/7/80 G. CARRIER
0165 SELECT PRINT 005(64)
0170 A=12345.67890
0180 B=98765.43210
0190 C=78787.87878
0200 D=96969.69696
0210 E=45454.54545
0220 PRINT HEX(030A0A0A0A0A)
0230 PRINT "1. 204","2. 214","3. 215","4. 216"
: PRINT HEX(0C0C);
: INPUT " SELECT PRINTER ADDRESS ",Q
: PRINT HEX(0A0A0D)
0240 INPUT "NUMBER OF PASSES DESIRED",X
0250 GOSUB '100
0260 FOR M=1TO X
0270 PRINT "NOW IS THE TIME FOR EVERYONE TO COME TO THE AID OF THEIR COUNTRY A
ND SAVE ENERGY"
0280 PRINT "ABCDEFGHIJKLMNOPQRSTUVWXYZ%'$#:/()*<>-^;+=,0123456789 1234567
890 /()*<>+"
0290 PRINT HEX(20202122232425262728292A2B2C2D2E2F303132333435363738393A3B3C3D3
E3F404142434445464748494A4B4C4D4E4F505152535455565758595A5B5C5D5E5F2020)
0300 FOR L=1TO 5
0310 PRINT A,B,C,D,E
0320 NEXT L
0330 PRINT HEX(0E);
0340 PRINT "THIS LINE SHOULD HAVE EXPANDED PRINT "
0350 PRINT HEX(0A0E07);
0360 PRINT " THE ALARM SHOULD HAVE SOUNDED!!!!"
0370 PRINT HEX(0B);
0380 PRINT "**************************A VERTICAL TAB WAS EXECUTED.************
**************"
0390 NEXT M
0400 SELECT PRINT 005 (64)
0401 PRINT HEX(0A0A);"S.F. 1 - RESTART TEST"
: PRINT "S.F. 31 - RETURN TO SYSTEM MENU"
0410 STOP "(( PRESS DESIRED SPECIAL FUNCTION KEY ))"
0420 DEFFN'1
: GOTO 160
0430 DEFFN'31
: LOAD DC T"START"
1500 DEFFN '100
: ON Q GOTO 1520,1530,1540,1550
1520 SELECT PRINT 204(80)
: RETURN
1530 SELECT PRINT 214(80)
: RETURN
1540 SELECT PRINT 215(80)
: RETURN
1550 SELECT PRINT 216(80)
: RETURN