image of READY prompt

Wang2200.org

Listing of file='WCPD500A' on disk='vmedia/wcs_diags.wvd.zip'

# Sector 196, program filename = 'WCPD500A'
0010 REM .   WCPD500A,   00-00 (06/20/75),   12002
0130 PRINT " ON ERROR GOTO .......................";
0140 FOR I=1 TO 26
   : NEXT I
0150 DIM E$2,L0$4
0160 ON ERROR E$,L0$ GOTO 310
0170 ON ERROR E$,L0$ GOTO 510
0180 C = 1
   : REM 'DATA / READ' ERROR
   : READ A,B
0190 DATA 1
0200 DEFFNG(X) = FNG(X)
0210 C = 2
   : REM 'FN '    ERROR
   : A = FNG(3)
0220 C = 3
   : REM 'NEXT '  ERROR
   : NEXT J
0230 C = 4
   : REM 'NEXT '  ERROR
   : FOR K = 1 TO 10
0240 L = M/N0
0250 C = 5
   : NEXT K
0260 REM SUBROUTINE ERROR
   : C = 6
   : GOSUB 280
0270 PRINT "ERROR"
   : GOTO 525
0280 REM GENERATE ERROR
   : L = M/N0
0290 REM RETURN HERE, GENERATES ERROR
   : C = 7
   : RETURN
0300 REM NEXT FILE ON TAPE
   : GOTO 520
0310 ON C GOTO 340,370,390,410,430,450,470
0320 PRINT "ON GOTO ERROR"
   : GOTO 525
0330 PRINT R;
0340 IF E$ = "27" THEN 360
   : GOSUB ' 20
   : GOTO 520
0350 PRINT
0360 IF L0$ = "0180" THEN 210
   : GOSUB '20
   : GOTO 520
0370 IF E$ = "09" THEN 380
   : GOSUB ' 20
   : GOTO 520
0380 IF L0$ = "0200" THEN 220
   : GOSUB '20
   : GOTO 520
0390 IF E$ = "26" THEN 400
   : GOSUB '20
   : GOTO 520
0400 IF L0$ = "0220" THEN 230
   : GOSUB '20
   : GOTO 520
0410 IF E$ = "03" THEN 420
   : GOSUB '20
   : GOTO 520
0420 IF L0 $ = "0240" THEN 250
   : GOSUB '20
   : GOTO 520
0430 IF E$ = "26" THEN 440
   : GOSUB '20
   : GOTO 520
0440 IF L0$ = "0250" THEN 260
   : GOSUB '20
   : GOTO 520
0450 IF E$ = "03" THEN 460
   : GOSUB '20
   : GOTO 520
0460 IF L0$ = "0280" THEN 290
   : GOSUB '20
   : GOTO 520
0470 IF E$ = "25" THEN 480
   : GOSUB '20
   : GOTO 520
0480 IF L0$ = "0290" THEN 300
   : GOSUB '20
   : GOTO 520
0490 DEFFN' 20
   : REM COUNT ERRORS
0500 E(1) = E(1) + 1
   : RETURN
0510 REM WRONG 'ON ERROR' EXECUTED
   : GOSUB '20
   : GOTO 520
0520 GOTO 540
0525 PRINT TAB(40);E(2);"ERRORS"
   : GOTO 550
0530 PRINT TAB(40);E(2);"ERRORS"
   : GOTO 550
0540 PRINT "OK"
0550 LOAD DC T "WCPD510A"
0560 DEFFN'15
0570 LOAD DC T "START"50