Listing of file='BENCH4' on disk='vmedia/benchmark_tests.wvd.zip'
# Sector 236, program filename = 'BENCH4'
0000 %SCRATCHT "BENCH4":SAVE T ()"BENCH4"
0020 PRINT AT(4,00);"IF/THEN,ELSE... <-- TESTING",
: S$=TIME
0090 DIM A$1,B$1,X$16,Y$17,C$1,D$1,T$1,D1$1,D2$1,D3$1,D4$1,D5$1,D6$1,D7$1,D8$1
0095 FOR K=1 TO 100
0100 RESTORE
: READ N
: FOR I=1TO N
: READ X,Y
0110 IF X<YTHEN T=T+.1
: ELSE F=F+.1
0120 IF X<=YTHEN T=T+.01
: ELSE F=F+.01
0130 IF X=YTHEN T=T+.001
: ELSE F=F+.001
0140 IF X>=YTHEN T=T+.0001
: ELSE F=F+.0001
0150 IF X>YTHEN T=T+.00001
: ELSE F=F+.00001
0160 IF X<>YTHEN T=T+.000001
: ELSE F=F+.000001
0170 NEXT I
0180 DATA 14,1,1,1,2,2,1,.000001,.0000011,-1,-1.000000000001,-.2,-.21,0,0,1E34
,2E34,3E45,1E46,-3E45,-1E46,1,-2,-.00009,.00001,1E-34,2E-34,123.456789012
3,123.4567890123
0200 READ N
: FOR I=1TO N
: T1,T2,T3=999
: READ A$,X1,X2,X3
: FOR J=0TO 255
: B$=BIN(J)
0210 IF A$<B$THEN T1=J
: IF A$=B$THEN T2=J
: IF A$>B$THEN T3=J
: NEXT J
0220 NEXT I
0230 DATA 3,HEX(00),255,0,999,HEX(5F),255,95,94,HEX(FF),999,255,254
0300 T,F=0
: READ N
: FOR I=1TO N
: READ X$,Y$
0310 IF X$<Y$THEN T=T+.1
: ELSE F=F+.1
0320 IF X$<=Y$THEN T=T+.01
: ELSE F=F+.01
0330 IF X$=Y$THEN T=T+.001
: ELSE F=F+.001
0340 IF X$>=Y$THEN T=T+.0001
: ELSE F=F+.0001
0350 IF X$>Y$THEN T=T+.00001
: ELSE F=F+.00001
0360 IF X$<>Y$THEN T=T+.000001
: ELSE F=F+.000001
0370 NEXT I
0380 DATA 5," "," ","0123456789123456","0123456789123456"
0390 DATA "0123456789123456","01234567891234561",HEX(00),HEX(01),"ABCDEFGHIJKL
MN","ABCDEFGHIJKLMM"
0600 T,F=0
: READ N
: FOR I=1TO N
: READ A,B,C,D
0610 IF A<BAND C<DTHEN T=T+.1
: ELSE F=F+.1
0620 IF A<BOR C<DTHEN T=T+.01
: ELSE F=F+.01
0630 IF A<BXOR C<DTHEN T=T+.001
: ELSE F=F+.001
0634 IF A<BAND C<DOR 1<2THEN T=T+.0001
: ELSE F=F+.0001
0636 IF 1<2OR 1<2AND A<BTHEN T=T+.00001
: ELSE F=F+.00001
0640 NEXT I
0650 DATA 4,1,2,3,4,2,1,3,4,1,2,4,3,2,1,4,3
1020 READ N
: FOR I=1TO N
: READ A$,B$,C$,D$,D1$,D2$,D3$,D4$,D5$,D6$,D7$,D8$
1030 T$=" "
: IF A$="T"AND B$="T"AND C$="T"THEN T$="T"
: ELSE T$="F"
1040 T$=" "
: IF A$="T"AND B$="T"OR C$="T"THEN T$="T"
: ELSE T$="F"
1050 T$=" "
: IF A$="T"AND B$="T"XOR C$="T"THEN T$="T"
: ELSE T$="F"
1060 T$=" "
: IF A$="T"OR B$="T"AND C$="T"THEN T$="T"
: ELSE T$="F"
1065 T$=" "
: IF A$="T"OR B$="T"OR C$="T"THEN T$="T"
: ELSE T$="F"
1070 T$=" "
: IF A$="T"OR B$="T"XOR C$="T"THEN T$="T"
: ELSE T$="F"
1075 T$=" "
: IF A$="T"XOR B$="T"AND C$="T"THEN T$="T"
: ELSE T$="F"
1080 T$=" "
: IF A$="T"XOR B$="T"OR C$="T"THEN T$="T"
: ELSE T$="F"
1085 T$=" "
: IF A$="T"XOR B$="T"XOR C$="T"THEN T$="T"
: ELSE T$="F"
1090 NEXT I
1100 DATA 8,"T","T","T","T","T","F","T","T","F","F","T","T","T","T","F","F","T
","T","F","T","T","F","F","F","T","F","T","F","T","T","T","T","F","T","T"
,"F","F","T","T","F","T","T","T","T","F","T","T","F"
1110 DATA "T","F","F","F","F","F","F","T","T","F","T","T","F","T","F","F","F",
"F","F","T","T","F","T","T","F","F","T","F","T","T","F","T","T","F","T","
T","F","F","F","F","F","F","F","F","F","F","F","F"
2000 NEXT K
9000 PRINT AT(4,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"BENCH5"