Listing of file='BENCH1' on disk='vmedia/benchmark_tests.wvd.zip'
# Sector 216, program filename = 'BENCH1' 0000 %SCRATCHT "BENCH1":SAVET ()"BENCH1" 0020 PRINT AT(1,0);"GOSUB,RETURN... <-- TESTING", : S$=TIME 0100 FOR I=1 TO 150000 0900 GOSUB 9999 0910 NEXT I 9000 PRINT AT(1,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"BENCH2" 9999 X=1 : RETURN