Listing of file='BENCH2' on disk='vmedia/benchmark_tests.wvd.zip'
# Sector 225, program filename = 'BENCH2'
0000 %SCRATCHT "BENCH2":SAVE T ()"BENCH2"
0001 DEFFN'0"FNW("
0020 PRINT AT(2,00);"DEFFN FN....... <-- TESTING",
: S$=TIME
0100 FOR I=1 TO 10000
0110 A=FNW(FNW(FNW(FNW(FNW(FNW(FNW(FNW(FNW(FNW(FNW(5)))))))))))
0120 NEXT I
9000 PRINT AT(2,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"BENCH3"
9990 DEFFNW(X)=FNX(X)
9991 DEFFNX(X)=FNY(X)
9992 DEFFNY(X)=FNZ(X)
9993 DEFFNZ(X)=12345.6789