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