' Bubble Universe
Dim Float u,a,p,q,t,v=0, x=0
Dim Integer b,i,j,c(1764*2),d(1764*2),e(1764*2),f(1764*2)
Math set 3,e()
Const w=MM.HRes/2, h=MM.VRes/2
Const r=(2*Pi)/235, o=h/2
Backlight 95:CLS RGB(black)
t=Rnd*10
Timer =0
b=0
For i=50 To 255 Step 5
For j=50 To 255 Step 5
  f(b)=0
  Inc b
  f(b)=RGB(i,j,130)
  Inc b
Next j
Next i
Do
Print Timer
Timer =0
b=Peek(varaddr c())
Memory copy b+8,b,1764*2*8-8
b=Peek(varaddr d())
Memory copy b+8,b,1764*2*8-8
Inc t,0.025:b=1

For i=50 To 255 Step 5
  a=r*i
  For j=50 To 255 Step 5
    p=i+v:q=a+x
    u=Sin(p)+Sin(q):v=Cos(p)+Cos(q)
    x=u+t:c(b)=u*o+w:d(b)=v*o+h
    Inc b,2
  Next
Next
Box c(),d(),e(),e(),0,,f()
Loop