Listing of file='WCPD060A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 624, program filename = 'WCPD060A' 0010 REM . WCPD060A, 00-00 (06/28/75), 12002 : PRINT " TESTING IF/THEN ....................."; : COM N : A1=-1234567890123 : A2=+1234567890123 : B1=-1234567890124 : B2=-B1 0150 C1=987654.3210123E84 : C2=987654.3210123E-84 : D=C1+C2 0170 E1=-1.234567890123E-90 : E2=-1.234567890123E-90 : F=-0 0190 IF A1<A2THEN 200 : PRINT TAB(40);"ERROR AT 100" : E(1)=E(1)+1 : GOTO 350 0200 IF B1<B2THEN 210 : PRINT TAB(40);"ERROR AT 110" : E(1)=E(1)+1 : GOTO 350 0210 IF B1*(A1+A2)=B1*A1+B1*A2THEN 230 : PRINT TAB(40);"ERROR AT 130" : E(1)=E(1)+1 : GOTO 350 0230 IF D<=C1+C2THEN 250 0240 PRINT TAB(40);"ERROR AT 150" : E(1)=E(1)+1 : GOTO 350 0250 IF ABS(B1)=-B1THEN 270 : PRINT TAB(40);"ERROR AT 170" : GOTO 350 0270 IF ABS(E2)+ABS(E1)=ABS(E1+E2)THEN 290 : PRINT TAB(40);"ERROR AT 190" : GOTO 350 0290 IF ABS(A1)+ABS(A2)>ABS(A1+A2)THEN 310 : PRINT TAB(40);"ERROR AT 210" : GOTO 350 0310 IF E1=-1.234567890123E-90THEN 330 : PRINT TAB(40);"ERROR AT 230" : GOTO 190 0330 IF F=0THEN 340 : PRINT TAB(40);"ERROR AT 240" : GOTO 350 0340 PRINT "OK" : LOAD DC T"WCPD070A" 0350 PRINT E(1);"ERRORS" : LOAD DC T"WCPD070A" 0360 DEFFN'15 : LOAD DC T"START"50