Listing of file='WCPD080A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 113, program filename = 'WCPD080A' 0010 REM . WCPD080A, 00-00 (06/28/75), 12002 : COM N,P : IF P=1THEN 280 : A=3 : B=0 : C=-3 : D=.0000000000001 : E=-D : F=.0000000000004 : G=-F : FOR I=BTO ASTEP C : M=M+1 : NEXT I : IF M=1THEN 190 : PRINT TAB(40);"ERROR AT 90" : GOTO 280 0190 FOR I=GTO FSTEP D : N1=N1+1 : NEXT I : IF N1=9THEN 220 : PRINT TAB(40);"ERROR AT 120" : GOTO 280 0220 FOR I=DTO ABS(G)STEP ABS(E) : P1=P1+1 : NEXT I : IF P1=4THEN 250 : PRINT TAB(40);"ERROR AT 150" : GOTO 280 0250 IF I=.0000000000004THEN 270 : PRINT TAB(40);"ERROR AT 170" : GOTO 280 0270 P=0 : LOAD DC T"WCPD090A" 0280 P=1 : E(1)=E(1)+1 : PRINT E(1);"ERRORS" : LOAD DC T"WCPD090A" 0290 DEFFN'15 : LOAD DC T"START"50