Listing of file='BENCH10' on disk='vmedia/benchmark_tests.wvd.zip'
# Sector 299, program filename = 'BENCH10' 0000 %SCRATCHT "BENCH10":SAVE T ()"BENCH10" 0001 DEFFN'100 : IF X=0THEN 20 : X=X+.1 : RETURN 0020 PRINT AT(10,00);"DEFFN',GOSUB'.. <-- TESTING", : S$=TIME 0090 DIM B$(2,3)4 0095 FOR T=1 TO 10000 0140 GOTO 220 0210 DEFFN'210 : X=X+.001 : RETURN 0220 X=1 : GOSUB '100 : GOSUB '99 : GOSUB '210 : GOSUB '230 : IF X<>1.1111THEN REM : GOTO 250 0230 DEFFN'230 : X=X+.0001 : RETURN 0250 X=0 0505 X=2 : A$="abc" : B$()="ABC" : C$="KLMNOPQ" : GOSUB '255(1,":",3*4,HEX(0D3AFDFE29),X,A$,B$(),STR(C$,2,3)) 0510 IF Z<>1OR Z1<>12OR Z2<>2OR Z$<>":"OR Z1$<>HEX(0D3AFDFE29)OR Z2$<>"abc"OR Z3$<>"ABC"OR Z4$<>"LMN"THEN REM : GOTO 1000 0520 DEFFN'254(Z,Z$,Z1,Z1$,Z2,Z2$,Z3$,Z4$) : RETURN 0550 DEFFN'255(Y,Y$,Y1,Y1$,Y2,Y2$,Y3$,Y4$) : GOSUB '254(Y,Y$,Y1,Y1$,Y2,Y2$,Y3$,Y4$) : RETURN 1000 NEXT T 9000 PRINT AT(10,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"BENCH11" 9999 DEFFN'99 : X=X+.01 : RETURN