Listing of file='BENCH3' on disk='vmedia/benchmark_tests.wvd.zip'
# Sector 230, program filename = 'BENCH3' 0000 %SCRATCHT "BENCH3":SAVE T ()"BENCH3" 0020 PRINT AT(3,00);"FOR,NEXT....... <-- TESTING", : S$=TIME 0080 FOR T=1 TO 300 0100 X=0 : FOR I=0TO 0 : X=X+1 : NEXT I 0110 X=0 : FOR I9=1TO 5STEP -1 : X=X+1 : NEXT I9 0120 X=0 : FOR I8=5TO 1 : X=X+1 : NEXT I8 0130 X=0 : FOR I=1TO 5STEP 0 : X=X+1 : NEXT I 0140 X=0 : FOR I=1TO 2 : FOR I1=1TO 3 : FOR I2=1TO 5 : FOR I3=1TO 7 : FOR I4=1TO 2 : X=X+1 : NEXT I4 : NEXT I3,I2,I1 : NEXT I 0150 X=0 : GOTO 160 0155 NEXT I : GOTO 200 0158 NEXT J : GOTO 155 0160 FOR I=3TO 1STEP -1 : FOR J=.001TO .005STEP .001 0170 X=X+1 : GOTO 158 0200 RESTORE : READ N : FOR I=1TO N : READ I1,I2,I3 0210 X=0 : FOR I4=I1TO I2STEP I3 : X=X+1 : NEXT I4 0220 DATA 9,1,5,1,1,5.999999999999,1,.9999999999999,5,1 0230 DATA -2,2,1,-1.99999999999,3,1,3,-1,-1,-.002,.002,.001 0240 DATA .002,-.002,-.001,1E90,5E90,1E90 0250 NEXT T 9000 PRINT AT(3,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"BENCH4"