Listing of file='WCPD060A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 293, program filename = 'WCPD060A' 0010 REM . WCPD060A, 00-00 (6/28/75), 12002 0100 PRINT " TESTING IF/THEN ....................."; : COM N : A1=-1234567890123 : A2=+1234567890123 : B1=-1234567890124 : B2=-B1 : C1=987654.3210123E84 : C2=987654.3210123E-84 : D=C1+C2 0190 E1=-1.234567890123E-90 : E2=-1.234567890123E-90 : F=-0 0220 IF A1<A2THEN 250 : PRINT TAB(40);"ERROR 1" : GOTO 510 0250 IF B1<B2THEN 280 : PRINT TAB(40);"ERROR 2" : GOTO 510 0280 IF B1*(A1+A2)=B1*A1+B1*A2THEN 310 : PRINT TAB(40);"ERROR 3" : GOTO 510 0310 IF D<=C1+C2THEN 340 : PRINT TAB(40);"ERROR 4" : GOTO 510 0340 IF ABS(B1)=-B1THEN 370 : PRINT TAB(40);"ERROR 5" : GOTO 510 0370 IF ABS(E2)+ABS(E1)=ABS(E1+E2)THEN 400 : PRINT TAB(40);"ERROR 6" : GOTO 510 0400 IF ABS(A1)+ABS(A2)>ABS(A1+A2)THEN 430 : PRINT TAB(40);"ERROR 7" : GOTO 510 0430 IF E1=-1.234567890123E-90THEN 460 : PRINT TAB(40);"ERROR 8" : GOTO 220 0460 IF F=0THEN 490 : PRINT TAB(40);"ERROR 9" : GOTO 510 0490 PRINT "OK" : LOAD DC T#6,"WCPD070A" 0510 E9$(P9)="NG" : LOAD DC T#6,"WCPD070A" 0530 DEFFN'15 : COM CLEAR : LOAD DC T#6,"START"