bench.bas 165 B

123456789
  1. 100 let n=100000
  2. 120 let m=0
  3. 110 let s=0
  4. 130 let m=m+1
  5. 140 let s=s+m
  6. 150 if m<n then goto 130
  7. 160 print "interpreted ", n*3, " lines of code; answer is ", s
  8. 170 end