Listing of file='WCPD150A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 45, program filename = 'WCPD150A' 0010 REM . WCPD150A, 00-00 (6/28/75), 12002 0100 COM N,P : IF P=0THEN 440 : DATA 1,2,3,4,5 : DATA -1,-2,-3,-4,-5 : FOR I=1TO 5 : READ X1 : S1=S1+X1 : NEXT I : RESTORE : FOR I=1TO 5 : READ X2 : S2=S2+X2 : NEXT I : IF X1=X2THEN 260 : PRINT TAB(40);"ERROR AT 200" : GOTO 440 0260 RESTORE 3 : READ A,B : RESTORE 8 : READ C,D : IF A*B=C*DTHEN 330 : PRINT TAB(40);"ERROR AT 240" : GOTO 440 0330 P1=1 : FOR I=1TO 12 : RESTORE 10 : READ A : P1=P1*A : NEXT I : IF P1=244140625THEN 420 : PRINT TAB(40);"ERROR AT 290" : GOTO 440 0420 P=1 : LOAD DC T#6,"WCPD160A" 0440 E9$(P9)="NG" : P=0 : LOAD DC T#6,"WCPD160A" 0470 DEFFN'15 : COM CLEAR : LOAD DC T#6,"START"