Listing of file='WCPD150A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 304, program filename = 'WCPD150A' 0010 REM . WCPD150A, 00-00 (06/28/75), 12002 : COM N,P : IF P=0THEN 310 : 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 200 0190 PRINT TAB(40);"ERROR AT 200" : GOTO 310 0200 RESTORE 3 : READ A,B : RESTORE 8 : READ C,D : IF A*B=C*DTHEN 240 : PRINT TAB(40);"ERROR AT 240" : GOTO 310 0240 P1=1 : FOR I=1TO 12 : RESTORE 10 : READ A : P1=P1*A : NEXT I : IF P1=244140625THEN 300 : PRINT TAB(40);"ERROR AT 290" : GOTO 310 0300 P=1 : LOAD DC T"WCPD160A" 0310 P=0 : E(1)=E(1)+1 : LOAD DC T"WCPD160A" 0320 DEFFN'15 : LOAD DC T"START"50