image of READY prompt

Wang2200.org

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