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