Listing of file='BENCH8' on disk='vmedia/benchmark_tests.wvd.zip'
# Sector 277, program filename = 'BENCH8'
0000 %SCRATCHT "BENCH8":SAVE T ()"BENCH8"
0020 PRINT AT(8,00);"ALPH-EXPR...... <-- TESTING",
: S$=TIME
0090 DIM A$2,B$3,C$3,D$3,X$3,Q$(256)1,Z$1
0095 FOR T=1 TO 200
0096 RESTORE
0100 A$=HEX(0000)
: FOR I=1TO 255
: A$=ADDHEX(01)
: IF VAL(A$,2)<>ITHEN REM
: NEXT I
: A$=A$ADDHEX(01)
: IF A$<>HEX(0000)THEN REM
0105 C$=HEX(123456)
: C1$=ALL(D2)
: B$=HEX(010203)ADDC$ADDC1$
: IF B$<>HEX(E5082B)THEN REM
0110 READ N
: FOR I=1TO N
: READ B$,C$,D$
: X$=B$ADDCC$
: IF X$<>D$THEN REM
: NEXT I
0120 DATA 3,HEX(7F8A03),HEX(027600),HEX(820003),HEX(FFFFFE),HEX(000003),HEX(00
0001)," "," ",HEX(404040)
0130 C1$=ALL(34)
: A$=HEX(1234)ADDCC1$ADDCALL(01)ADDCHEX(FF)
: IF A$<>HEX(4868)THEN REM
0140 B$=HEX(123456)
: B$=ADDHEX(FEDC)
: IF B$<>HEX(123232)THEN REM
0150 Q$()=ALL(01)
: Q$(256)=HEX(00)
: STR(Q$(),,255)=ADDQ$()
: FOR I=1TO 256
: IF VAL(Q$(I))<>256-ITHEN REM
: NEXT I
0200 Z$=HEX(CA)OR HEX(AC)
: IF Z$<>HEX(EE)THEN REM
0210 Z$=HEX(CA)AND HEX(AC)
: IF Z$<>HEX(88)THEN REM
0220 Z$=HEX(CA)XOR HEX(AC)
: IF Z$<>HEX(66)THEN REM
0230 Z$=HEX(CA)BOOL0HEX(AC)
: IF Z$<>HEX(00)THEN REM
0231 Z$=HEX(CA)BOOL1HEX(AC)
: IF Z$<>HEX(11)THEN REM
0232 Z$=HEX(CA)BOOL2HEX(AC)
: IF Z$<>HEX(24)THEN REM
0233 Z$=HEX(CA)BOOL3HEX(AC)
: IF Z$<>HEX(35)THEN REM
0234 Z$=HEX(CA)BOOL4HEX(AC)
: IF Z$<>HEX(42)THEN REM
0235 Z$=HEX(CA)BOOL5HEX(AC)
: IF Z$<>HEX(53)THEN REM
0236 Z$=HEX(CA)BOOL6HEX(AC)
: IF Z$<>HEX(66)THEN REM
0237 Z$=HEX(CA)BOOL7HEX(AC)
: IF Z$<>HEX(77)THEN REM
0238 Z$=HEX(CA)BOOL8HEX(AC)
: IF Z$<>HEX(88)THEN REM
0239 Z$=HEX(CA)BOOL9HEX(AC)
: IF Z$<>HEX(99)THEN REM
0240 Z$=HEX(CA)BOOLAHEX(AC)
: IF Z$<>HEX(AC)THEN REM
0241 Z$=HEX(CA)BOOLBHEX(AC)
: IF Z$<>HEX(BD)THEN REM
0242 Z$=HEX(CA)BOOLCHEX(AC)
: IF Z$<>HEX(CA)THEN REM
0243 Z$=HEX(CA)BOOLDHEX(AC)
: IF Z$<>HEX(DB)THEN REM
0244 Z$=HEX(CA)BOOLEHEX(AC)
: IF Z$<>HEX(EE)THEN REM
0245 Z$=HEX(CA)BOOLFHEX(AC)
: IF Z$<>HEX(FF)THEN REM
0250 STR(Q$(),,128)=AND ALL(7F)
: IF STR(Q$(),,128)<>STR(Q$(),129)THEN REM
0260 STR(Q$(),,128)=SUBSTR(Q$(),129)
: IF POS(Q$()<>HEX(00))<>129THEN REM
0270 STR(Q$(),,128)=SUBHEX(01)
: IF POS(Q$()<>00)<>128THEN REM
: IF Q$(128)<>HEX(FF)THEN REM
0280 STR(Q$(),,127)=SUBCHEX(01)
: IF POS(Q$()<>FF)<>129THEN REM
0300 A$=HEX(1234)
: B$=HEX(129876)
: C$=B$DAC A$
: IF C$<>HEX(131110)THEN REM
: C$=DSC A$
: IF C$<>HEX(129876)THEN REM
0310 C$=C$DAC ALL(00)
: IF C$<>HEX(129876)THEN REM
: C$=DSC HEX(00)
: IF C$<>HEX(129876)THEN REM
0320 C$=HEX(123456)ADDBIN(1)OR HEX(81)ADDCALL(FF)XOR HEX(F00F)SUBCHEX(123456)D
AC HEX(1234)DSC ALL(99)AND "A94"
: IF C$<>HEX(411934)THEN REM
0500 NEXT T
9000 PRINT AT(8,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"BENCH9"