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