Option tracecache on 128
'
Pause 1000
Print "Micromite Benchmark tests"
Print " "

Print "Benchmark 1"
Timer = 0
For j = 1 To 10000
Next j
Print Timer / 10000
Print " "

Print "Benchmark 2"
Timer = 0
j =0
BM2:
j = j+1
If j < 10000 GoTo BM2
j=Timer
Print j / 10000
Print " "

Print "Benchmark 3"
Timer = 0
j = 0
BM3:
j = j+1
a = j/j*j+j-j
If j < 10000 GoTo BM3
j=Timer
Print j / 10000
Print " "

Print "Benchmark 4"
Timer = 0
j = 0
BM4:
j = j+1
a = j/2*3+4-5
If j < 10000 GoTo BM4
j=Timer
Print j / 10000
Print " "

Print "Benchmark 5"
Timer = 0
j = 0
BM5:
j = j+1
m = j/2*3+4-5
GoSub 4000
If j < 10000 GoTo BM5
j=Timer
Print j / 10000
Print " "

Print "Benchmark 6"
Timer = 0
j = 0
Dim rayx(5)
BM6:
j = j+1
m = j/2*3+4-5
GoSub 4000
For q = 1 To 5
Next q
If j < 10000 GoTo BM6
j=Timer
Print j / 10000
Print " "

Print "Benchmark 7"
Timer = 0
j = 0
Dim ray2(5)
BM7:
j = j+1
m = j/2*3+4-5
GoSub 4000
For q = 1 To 5
ray2(q) = m
Next q
If j < 10000 GoTo BM7
j=Timer
Print j / 10000
Print " "

Print "Benchmark 8"
Timer = 0
j = 0
BM8:
j = j+1
m = j^2
blog = Log(j)
csin = Sin(j)
If j < 10000 GoTo BM8
j=Timer
Print j / 10000
Do
Loop While Inkey$=""
End

4000 Return

'Starfield by Juri Fossaroli
'PicomiteVGA version Martin Herhaus
'set mode here if appropriate
'Option Profiling On
Option TraceCache On 20
'Option Cache Debug On
MODE 3
'change maxst for more or fewer stars
Dim Integer maxst=1250,h=MM.VRES,w=MM.HRES,x,y,st,c
Dim Float f,stx(maxst),stxx(maxst),sty(maxst),styy(maxst),stz(maxst)
Dim Integer ox(maxst),oy(maxst),oxl(maxst),oyl(maxst),cl(maxst),s(maxst)
'FRAMEBUFFER create
'FRAMEBUFFER write f
CLS
'initialise the stars
For st=0 To maxst
 stxx(st)=(Rnd*w>>1)-(w>>2):styy(st)=(Rnd*h>>1)-(h>>2)
 stz(st)=Int(Rnd*5+5)/10
 cl(st)=RGB(White)
Next
'initialise array for box size
Math Set 2,s()

Do
'move stars forward
Math Add stz(),-0.025,stz()
'do the calculation (stx/stz)+half width
Math C_div stxx(),stz(),stx():Math Add stx(),w>>1,stx()
'do the calculation (sty/stz)+half height
Math C_div styy(),stz(),sty():Math Add sty(),h>>1,sty()
'reset rouge stars
'Inc c:c=c*(c<=maxst)
Inc c:If c>maxst Then c=0
'stx(c)=stx(c)*(stz(c)>0.1)
If stz(c)<0 Then stx(c)=0
'loop for all stars
'set star colour and check for star off screen
For st=0 To maxst
x=stx(st):y=sty(st)
' Select Case stz(st)
' Case < 0.2
'  cl(st)=&HFFFF00'RGB(Yellow)
' Case < 0.6
'  cl(st)=&HFFFFFF'RGB(White)
' Case < 0.8
'  cl(st)=&HFFFF'RGB(Cyan)
' Case Else
'  cl(st)=&HFF'RGB(Blue)
' End Select
If stz(st) < 0.2 Then
 cl(st)=&HFFFF00'RGB(Yellow)
ElseIf stz(st) < 0.6 Then
 cl(st)=&HFFFFFF'RGB(White)
ElseIf stz(st) < 0.8 Then
 cl(st)=&HFFFF'RGB(Cyan)
Else 'If stz(st) >= 0.8 Then
 cl(st)=&HFF'RGB(Blue)
EndIf

If (x>0 And x<w And y>0 And y<h)Then
 ox(st)=x:oy(st)=y
Else
 Inc f,0.025:If f>0.09 Then f=0
 stxx(st)=(Rnd*w>>1)-(w>>2)
 styy(st)=(Rnd*h>>1)-(h>>2)
 stz(st)=Int(Rnd*5+5)/10+f
EndIf
Next
'blank out last times stars, replace with new stars
Pixel oxl(),oyl(),0:Pixel ox(),oy(),cl()
' Box oxl(),oyl(),s(),s(),0,,0:Box ox(),oy(),s(),s(),0,,cl()
'copy this times stars, to last times stars array
Math Add ox(),0,oxl():Math add oy(),0,oyl()
' FRAMEBUFFER copy f,n,b
Print Timer:Timer =0
Loop Until Inkey$ <> ""
End

Option TraceCache On 32
MODE 3
Dim Integer maxst=1250,h=MM.VRES,w=MM.HRES,x,y,st,c
Dim Float f,stx(maxst),stxx(maxst),sty(maxst),styy(maxst),stz(maxst)
Dim Integer ox(maxst),oy(maxst),oxl(maxst),oyl(maxst),cl(maxst),s(maxst)
CLS
For st=0 To maxst
stxx(st)=(Rnd*w>>1)-(w>>2):styy(st)=(Rnd*h>>1)-(h>>2)
stz(st)=Int(Rnd*5+5)/10
cl(st)=RGB(White)
Next
Math Set 2,s()
Do
Math Add stz(),-0.025,stz()
Math C_div stxx(),stz(),stx():Math Add stx(),w>>1,stx()
Math C_div styy(),stz(),sty():Math Add sty(),h>>1,sty()
Inc c:If c>maxst Then c=0
If stz(c)<0 Then stx(c)=0
For st=0 To maxst
x=stx(st):y=sty(st)
Select Case stz(st)
Case < 0.2
cl(st)=&HFFFF00'RGB(Yellow)
Case < 0.6
cl(st)=&HFFFFFF'RGB(White)
Case < 0.8
cl(st)=&HFFFF'RGB(Cyan)
Case Else
cl(st)=&HFF'RGB(Blue)
End Select
If (x>0 And x<w And y>0 And y<h)Then
ox(st)=x:oy(st)=y
Else
Inc f,0.025:If f>0.09 Then f=0
stxx(st)=(Rnd*w>>1)-(w>>2)
styy(st)=(Rnd*h>>1)-(h>>2)
stz(st)=Int(Rnd*5+5)/10+f
EndIf
Next
Pixel oxl(),oyl(),0:Pixel ox(),oy(),cl()
Math Add ox(),0,oxl():Math add oy(),0,oyl()
Print @(0,0)Timer:Timer =0
Loop Until Inkey$ <> ""
End

'Bubble Universe
'Option Profiling on
Option Tracecache on 32
'Option Cache debug on
MODE 2
Font 8
FRAMEBUFFER create
FRAMEBUFFER write f

Dim Float u(99),w(99),p,q,t,v=0,x=0,b
Dim Integer n(99),m(49,98),nn,dd,xc,yc,xs,ys',c(99),d(99)
Dim Integer a,g,i,j,cc',y,z,f(24,65),l(24,65)
'Dim Integer e(99):Math Set 2,e()
Const r=(2*Pi)/235,k=255,s=50
CLS RGB(black)
t=Rnd*10
't=1
nn=Peek(varaddr n())
'dd=Peek(varaddr d())
'cc=Peek(varaddr c())
'calculate centre and scale factor
xc=MM.HRES\2:yc=MM.VRES\2
xs=MM.HRES/4.2:ys=MM.VRES/4.2  'Oval
'xs=MM.HRes/6:ys=MM.VRes/4      'Circular

For a=0 To 98
For g=0 To 99
 If a<25 And g<38 Then
  If a<15 Then:n(g)=65280:Else :n(g)=16776960:EndIf
 Else
  n(g)=RGB(a*2.6,g*2.575,128*(a+g<65))
 EndIf
Next 'g
Memory pack nn, Peek(varaddr m(0,a)),100,32 'pack pixel colours
Next 'a
Do
CLS
Inc t,0.015:g=0:Print @(10,10)Timer,MM.Info(heap):Timer =0
For i=59To 255Step 2
b=r*i+t
For j=0To 99:u(j)=Sin(i+v)+Sin(x):v=Cos(i+v)+Cos(x):x=u(j)+b:w(j)=v:Next
Math Scale u(),xs,u():Math Scale w(),ys,w():Math add u(),xc,u():Math Add w(),yc,w()
Memory unpack Peek(varaddr m(0,g)),nn,100,32 'unpack pixel colours
Pixel u(),w(),n()'Box c(),d(),e(),e(),0,,n()
Inc g
Next 'i
FRAMEBUFFER copy f,n',b
Loop Until Inkey$ <> ""
End