Listing of file='BENCH6' on disk='vmedia/benchmark_tests.wvd.zip'
# Sector 260, program filename = 'BENCH6' 0000 %SCRATCHT "BENCH6":SAVE T ()"BENCH6" 0020 PRINT AT(6,00);"BIN,VAL........ <-- TESTING", : S$=TIME 0090 DIM A$1,B$1,C$2 0095 FOR T=1 TO 50 0100 A$=HEX(00) 0110 FOR I=0TO 255 : IF VAL(A$)<>ITHEN REM : B$=BIN(I) : IF B$<>A$THEN REM : BIN(C$)=I : IF C$<>A$THEN REM : A$=ADDHEX(01) : NEXT I 0120 STR(D$,3)="A" : B$=HEX(03) : C$=HEX(01) : IF VAL(STR(D$,VAL(STR(B$,1,VAL(C$))),1))<>65THEN REM 0200 C$=HEX(0000) : FOR I=0TO 65535STEP 29 : IF VAL(C$,2)<>ITHEN REM : D$=BIN(I,2) : IF D$<>C$THEN REM : C$=ADDCHEX(1D) : NEXT I 0210 C$=BIN(65535,2) : IF C$<>HEX(FFFF)THEN REM : I=VAL(C$,2) : IF I<>65535THEN REM 0500 NEXT T 9000 PRINT AT(6,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"BENCH7"