Listing of file='WCPD080A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 442, program filename = 'WCPD080A' 0010 REM . WCPD080A, 00-00 (6/28/75), 12002 0100 COM N,P : IF P=1THEN 420 : 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 250 : PRINT TAB(40);"ERROR 1" : GOTO 420 0250 FOR I=GTO FSTEP D : N1=N1+1 : NEXT I : IF N1=9THEN 310 : PRINT TAB(40);"ERROR 2" : GOTO 420 0310 FOR I=DTO ABS(G)STEP ABS(E) : P1=P1+1 : NEXT I : IF P1=4THEN 370 : PRINT TAB(40);"ERROR 3" : GOTO 420 0370 IF I=.0000000000004THEN 400 : PRINT TAB(40);"ERROR 4" : GOTO 420 0400 P=0 : LOAD DC T#6,"WCPD090A" 0420 E9$(P9)="NG" : P=1 : LOAD DC T#6,"WCPD090A" 0450 DEFFN'15 : COM CLEAR : LOAD DC T#6,"START"