Listing of file='BENCH7' on disk='vmedia/benchmark_tests.wvd.zip'
# Sector 267, program filename = 'BENCH7'
0000 %SCRATCHT "BENCH7":SAVET ()"BENCH7"
0020 PRINT AT(7,00);"ALL,HEX........ <-- TESTING",
: S$=TIME
0090 DIM A$1,B$3,Z$(4)124
0095 FOR T=1TO 200
0100 B$,C$,A$=ALL(FF)
: IF A$<>HEX(FF)THEN REM
: IF B$<>HEX(FFFFFF)THEN REM
: IF C$<>HEX(FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF)THEN REM
0110 A$,B$,C$=ALL("XYZ")
: IF A$<>"X"THEN REM
: IF B$<>"XXX"THEN REM
: IF C$<>"XXXXXXXXXXXXXXXX"THEN REM
0120 C$,B$,A$=ALL(HEX(4142))
: IF A$<>"A"THEN REM
: IF B$<>"AAA"THEN REM
: IF C$<>"AAAAAAAAAAAAAAAA"THEN REM
0130 A$=HEX(00)
: FOR I=0TO 256
: B$=ALL(A$)
: C$=A$&A$&A$
: IF B$<>C$THEN REM
: A$=ADDHEX(01)
: NEXT I
0140 Z$()=ALL(45)
: IF POS(Z$()<>"E")<>0THEN REM
0195 Z$()=HEX(000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F
202122232425262728292A2B2C2D2E2F303132333435363738393A3B3C3D3E3F404142434
445464748494A4B4C4D4E4F505152535455565758595A5B5C5D5E5F606162636465666768
696A6B6C6D6E6F70717273747576)
0200 STR(Z$(),120)=HEX(7778797A7B7C7D7E7F808182838485868788898A8B8C8D8E8F90919
2939495969798999A9B9C9D9E9FA0A1A2A3A4A5A6A7A8A9AAABACADAEAFB0B1B2B3B4B5B6
B7B8B9BABBBCBDBEBFC0C1C2C3C4C5C6C7C8C9CACBCCCDCECFD0D1D2D3D4D5D6D7D8D9DAD
BDCDDDEDFE0E1E2E3E4E5E6E7E8E9EAEB)
0220 STR(Z$(),237)=HEX(ECEDEEEFF0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF)
0230 A$=HEX(00)
: FOR I=1TO 256
: IF STR(Z$(),I,1)<>A$THEN REM
: A$=ADDHEX(01)
: NEXT I
0300 IF 1=2THEN A$=HEX(3A0DFDFCFFFDFF22)
0310 IF VAL(HEX(45))<>69THEN REM
0500 NEXT T
9000 PRINT AT(7,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"BENCH8"