image of READY prompt

Wang2200.org

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"