print "MMBASIC benchmark (C) KnivD 2016"
clear
dim integer t, i=0
dim float x(1000), f=0.0
dim string s=""
print "Calculating... ";
do
s=""
f=0.0
i=0
TIMER=0
do while TIMER<30000
 i=i+2 : f=f+2.0002
 if (i mod 2)=0 then
   i=i*2 : i=i\2
   f=f*2.0002 : f=f/2.0002
 end if
 i=i-1
 for t=1 to 100
   f=f-1.0001
   if (f-int(f))>=0.5 then
     f=sin(f*log(i))
     s=str$(f,6,6)
   end if
   f=(f-tan(i))*(RND(0)/i)
   if instr(s,left$(str$(i),2))>0 then s=s+"0"
 next
 x(1+(i mod 1000))=f
loop
print chr$(13)+"Performance: "+str$((i*1024)\286,8,0)+" grains"
loop
end