Listing of file='WCPD510A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 105, program filename = 'WCPD510A' 0010 REM . WCPD510A, 00-00 (06/28/75), 12002 : PRINT "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 "O.K." : LOAD DC T#6,"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(3)=E(3)+1 : E9$(P9)="NG" : PRINT TAB(40);E(3);"ERRORS" : LOAD DC T#6,"WCPD520A" 0310 DEFFN'15 : COM CLEAR : LOAD DC T#6,"START"