Listing of file='BDIAG19' on disk='vmedia/mvp-diag-3.5.wvd.zip'
# Sector 701, program filename = 'BDIAG19' 0020 PRINT AT(04,32);"EXPRESSIONS.... <-- TESTING", 0080 S=SPACE 0100 IF 1+5*3/4^2<>1.9375THEN 8990 : IF -2*3<>-6THEN 8990 : IF -3^2<>-9THEN 8990 : IF (-3)^2<>9THEN 8990 : IF 9/3*5<>15THEN 8990 : IF -10*2-3<>-23THEN 8990 0110 IF ((((1+5)*3)/4)^2)<>20.25THEN 8990 0120 IF -(((((((((((((((((((((((((((((((((((((((((((3))))))))))))))))))))))))) ))))))))))))))))))/2<>-1.5THEN 8990 0125 SELECT R 0130 IF ABS(SIN(#PI/2)-1)>.0000000001THEN 8990 0140 IF ABS(COS(#PI)+1)>.0000000001THEN 8990 0150 IF ABS(TAN(#PI/4)-1)>.0000000001THEN 8990 0160 IF ABS(ARCSIN(1)-#PI/2)>.0000000001THEN 8990 0170 IF ABS(ARCCOS(-1)-#PI)>.0000000001THEN 8990 0180 IF ABS(ARCTAN(1)-#PI/4)>.0000000001THEN 8990 0190 IF ABS(ATN(1)-#PI/4)>.0000000001THEN 8990 0200 IF RND(0)+RND(1)<>RND(0)+RND(1)THEN 8990 0210 IF INT(5.9)<>5THEN 8990 : IF INT(-5.2)<>-6THEN 8990 0220 IF SGN(0)<>0THEN 8990 : IF SGN(2)<>1THEN 8990 : IF SGN(-2)<>-1THEN 8990 0230 IF ABS(LOG(2.718281828459)-1)>.0000000001THEN 8990 0240 IF ABS(EXP(1)-2.718281828459)>.0000000001THEN 8990 0250 IF ABS(LGT(1000)-3)>.0000000001THEN 8990 0260 IF ABS(SQR(64)-8)>.0000000001THEN 8990 0270 IF ABS(-.23)<>.23THEN 8990 0280 IF FIX(5.8)<>5THEN 8990 : IF FIX(-5.2)<>-5THEN 8990 0290 IF MOD(8,3)<>2THEN 8990 0300 IF ROUND((1.236,2)<>1.24THEN 8990 0310 IF MAX(1,3,5,2,4)<>5THEN 8990 0320 IF MIN(5,4,1,6,7,2)<>1THEN 8990 0330 A$="123.45A" : IF NUM(A$)<>6THEN 8990 0340 IF POS(A$=".")<>4THEN 8990 0350 IF LEN(A$)<>7THEN 8990 0360 IF VER(A$,"###.###")<>6THEN 8990 0370 SELECT ERROR>60 : X=1E-50*1E-60 : IF ERR<>60THEN 8990 0380 IF SPACE<300THEN 8990 0390 IF SPACEK<8THEN 8990 0400 IF VAL("A")<>65THEN 8990 0410 IF FN1(2)<>8THEN 8990 : DEFFN1(X)=X^3 0420 IF ABS(SQR(EXP(ARCSIN(ARCTAN(LOG(#PI)))))-1.6663579865)>.00001THEN 8990 8970 GOTO 9000 8980 I=SPACE : IF I=STHEN 9000 8990 E(19)=E(19)+1 9000 PRINT AT(04,48,16); : IF E(19)=0THEN PRINT "OK"; : ELSE PRINT E(19);"ERRORS" 9010 LOAD DC T"BDIAG20 "