Listing of file='BENCH9' on disk='vmedia/benchmark_tests.wvd.zip'
# Sector 289, program filename = 'BENCH9'
0000 %SCRATCHT "BENCH9":SAVE T ()"BENCH9"
0020 PRINT AT(09,00);"EXPRESSIONS.... <-- TESTING",
: S$=TIME
0090 FOR T=1TO 1500
0100 IF 1+5*3/4^2<>1.9375THEN REM
: IF -2*3<>-6THEN REM
: IF -3^2<>-9THEN REM
: IF (-3)^2<>9THEN REM
: IF 9/3*5<>15THEN REM
: IF -10*2-3<>-23THEN REM
0110 IF ((((1+5)*3)/4)^2)<>20.25THEN REM
0120 IF -(((((((((((((((((((((((((((((((((((((((((((3)))))))))))))))))))))))))
))))))))))))))))))/2<>-1.5THEN REM
0125 SELECT R
0130 IF ABS(SIN(#PI/2)-1)>.0000000001THEN REM
0140 IF ABS(COS(#PI)+1)>.0000000001THEN REM
0150 IF ABS(TAN(#PI/4)-1)>.0000000001THEN REM
0160 IF ABS(ARCSIN(1)-#PI/2)>.0000000001THEN REM
0170 IF ABS(ARCCOS(-1)-#PI)>.0000000001THEN REM
0180 IF ABS(ARCTAN(1)-#PI/4)>.0000000001THEN REM
0190 IF ABS(ATN(1)-#PI/4)>.0000000001THEN REM
0200 IF RND(0)+RND(1)<>RND(0)+RND(1)THEN REM
0210 IF INT(5.9)<>5THEN REM
: IF INT(-5.2)<>-6THEN REM
0220 IF SGN(0)<>0THEN REM
: IF SGN(2)<>1THEN REM
: IF SGN(-2)<>-1THEN REM
0230 IF ABS(LOG(2.718281828459)-1)>.0000000001THEN REM
0240 IF ABS(EXP(1)-2.718281828459)>.0000000001THEN REM
0250 IF ABS(LGT(1000)-3)>.0000000001THEN REM
0260 IF ABS(SQR(64)-8)>.0000000001THEN REM
0270 IF ABS(-.23)<>.23THEN REM
0280 IF FIX(5.8)<>5THEN REM
: IF FIX(-5.2)<>-5THEN REM
0290 IF MOD(8,3)<>2THEN REM
0300 IF ROUND((1.236,2)<>1.24THEN REM
0310 IF MAX(1,3,5,2,4)<>5THEN REM
0320 IF MIN(5,4,1,6,7,2)<>1THEN REM
0330 A$="123.45A"
: IF NUM(A$)<>6THEN REM
0340 IF POS(A$=".")<>4THEN REM
0350 IF LEN(A$)<>7THEN REM
0360 IF VER(A$,"###.###")<>6THEN REM
0370 SELECT ERROR>60
: X=1E-50*1E-60
: IF ERR<>60THEN REM
0380 IF SPACE<300THEN REM
0390 IF SPACEK<8THEN REM
0400 IF VAL("A")<>65THEN REM
0410 IF FN1(2)<>8THEN REM
: DEFFN1(X)=X^3
0420 IF ABS(SQR(EXP(ARCSIN(ARCTAN(LOG(#PI)))))-1.6663579865)>.00001THEN REM
0500 NEXT T
9000 PRINT AT(9,16,16);
: E$=TIME
: CONVERT STR(S$,1,2)TO S1
: CONVERT STR(S$,3,2)TO S2
: CONVERT STR(S$,5,2)TO S3
: CONVERT STR(E$,1,2)TO E1
: CONVERT STR(E$,3,2)TO E2
: CONVERT STR(E$,5,2)TO E3
: S9=S1*3600+S2*60+S3
: E9=E1*3600+E2*60+E3
: T0=E9-S9
: PRINT T0;"SEC"
9010 LOAD DC T"BENCH10"