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