image of READY prompt

Wang2200.org

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