Listing of file='WCPD510A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 341, program filename = 'WCPD510A' 0010 REM . WCPD510A, 00-00 (06/28/75), 12002 : PRINT TAB(1);"RETURN CLEAR ........................"; : DIM E$2,L0$4 : ON ERRORE$,L0$GOTO 250 : GOSUB 210 : GOTO 200 0110 FOR I=1 TO 26 : NEXT I 0150 RETURN CLEAR : GOSUB 220 : GOTO 190 0160 GOSUB 230 : GOTO 180 0170 RETURN 0180 RETURN 0190 RETURN 0200 PRINT "OK" : LOAD DC T"WCPD520A" 0210 GOTO 150 0220 GOTO 160 0230 GOTO 170 0240 PRINT : PRINT "ERROR" : GOTO 280 0250 IF E$="25"THEN 270 : GOTO 280 0270 IF L0$="0190"THEN 200 0280 E(1)=E(1)+1 : PRINT TAB(40);E(1);"ERRORS" : LOAD DC T"WCPD520A" 0310 DEFFN'15 : LOAD DC T"START"50