'bubble universe MMB4W
 OPTION EXPLICIT
 OPTION DEFAULT FLOAT
 DIM r,t,u,v,x,n, TAU
 DIM INTEGER i, j, hw, hh, col
 MODE 1
 
 n = RND()*100+300
 TAU = 6.283185307179586
 r = TAU / (RND()*100+235)
 hw = MM.HRES / 2
 hh = MM.VRES / 2
'Cls(RGB(0, 0, 0))
 PAGE WRITE 1
 DO
   CLS(RGB(0, 0, 0))
   FOR i = 0 TO n
     FOR j = 0 TO n
       u = SIN(i + v) + SIN(r * i + x)
       v = COS(i + v) + COS(r * i + x)
       x = u + t
       Col = RGB(i AND &hFF, j AND &hFF, 99)
       PIXEL hw + u * hw * 0.4, hh + v * hh * 0.4, Col
     NEXT
   NEXT
   t = t + 0.01
   PAGE COPY 1 TO 0
 LOOP UNTIL INKEY$ <>""

' Bubble Universe credit to who posted it
mode 2
option autorun on
Dim Float u,a,p,q,t,v=0, x=0
Dim Integer g,b,i,j,c(41),d(41),e(41),n(41)
Dim Integer f(41,41),l(41,41),m(41,41)
Const w=MM.HRes/2, h=MM.VRes/2
Const r=(2*Pi)/235, o=h/2
FRAMEBUFFER CREATE F
FRAMEBUFFER WRITE f

CLS RGB(black)':Backlight 95
t=Rnd*10:math set 2,e()'Math set 3,e()

For g=0 to 41
for b=0 to 41
  m(g,b)=rgb(g*6,b*6,128*(g+b>30)*(g+b<60))
Next:Next

Do
Inc t,0.025:g=0:Timer =0
For i=50 To 255 Step 5
b=0
a=r*i
Math Slice f(),g,,c()
Math Slice l(),g,,d()
Box c(),d(),e(),e(),0,,0
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)=w+u*o:d(b)=h+v*o
Inc b
Next
Math Slice m(),g,,n()
Box c(),d(),e(),e(),0,,n()
Math Insert f(),g,,c()
Math Insert l(),g,,d()
Inc g
Next i

FRAMEBUFFER COPY f,N
'Print Timer
Loop

MODE 2
FRAMEBUFFER LAYER
FRAMEBUFFER WRITE L
RX=MM.HRes:RY=MM.VRes:CX=RX\2:CY=RY\2
r=(2*Pi)/25:x=0:v=0:t=0:SC=RY/4
Dim integer C(15)
For i=0 To 15: Read C(i): Next i
Data &H000000,&H0000FF,&H004000,&H0040FF
Data &H008000,&H0080FF,&H00FF00,&H00FFFF
Data &HFF0000,&HFF00FF,&HFF4000,&HFF40FF
Data &HFF8000,&HFF80FF,&HFFFF00,&HFFFFFF

Do :CLS
co=1
 For i=50 To 80 Step 2
   For j=50 To 70 Step 1
     u=Sin(i+v)+Sin(r*i+x)
     v=Cos(i+v)+Cos(r*i+x)
     x=u+t
     Pixel CX+u*SC,CY+v*SC,C(co)
   Next j
   Inc co: If co>15 Then co=1
 Next i
Inc t,.025
FRAMEBUFFER COPY L,N,B
Loop

' Bubble Universe
MODE 2
Dim Float u(51),w(51),a,p,q,t,v=0,x=0
Dim Integer g,b,i,j,c(51),d(51),e(51),n(51),nn,dd
Dim Integer f(13,41),l(13,41),m(26,41),y,z,cc,tt
Const r=(2*Pi)/235,k=255,s=50
CLS RGB(black)
t=Rnd*10:Math set 1,e()
't=1
nn=Peek(varaddr n())
dd=Peek(varaddr d())
cc=Peek(varaddr c())

For g=0 To 41
For b=0 To 51
  n(b)=RGB(g*6,b*5,128*(g+b>30)*(g+b<60))
  If g<26 And b<13 Then n(b)=RGB(0,128,0)
Next
Memory pack nn, Peek(varaddr m(0,g)),52,32
Next g
Do
Inc t,0.01:g=0':Print Timer:Timer =0
For i=50To 255Step 5
b=0:a=r*i
z=Peek(varaddr f(0,g)):Memory unpack z,cc,52,16
y=Peek(varaddr l(0,g)):Memory unpack y,dd,52,16
Box c(),d(),e(),e(),0,,0'Pixel c(),d(),0
For j=50To 255Step 4:u(b)=Sin(i+v)+Sin(x):v=Cos(i+v)+Cos(x):x=u(b)+a+t:w(b)=v:Inc b:Next
Math Scale u(),70,c():Math Scale w(),60,d()
Math add c(),160,c():Math Add d(),120,d()
Memory unpack Peek(varaddr m(0,g)),nn,52,32
Box c(),d(),e(),e(),0,,n()'Pixel c(),d(),n()
Memory pack cc,z,52,16:Memory pack dd,y,52,16
Inc g
Next
Loop

dim Sin1(360),Cos1(360)
for f=0 to 356:Sin1(f)=sin(f):Cos1(f)=Cos(f):next

MODE 2
FRAMEBUFFER LAYER
FRAMEBUFFER WRITE L
RX=MM.HRes:RY=MM.VRes:CX=RX\2:CY=RY\2
r=(2*Pi)/25:x=0:v=0:t=0:SC=RY\4

Dim integer CV(15)
For i=0 To 15: Read CV(i): Next i
Data &H000000,&H0000FF,&H004000,&H0040FF
Data &H008000,&H0080FF,&H00FF00,&H00FFFF
Data &HFF0000,&HFF00FF,&HFF4000,&HFF40FF
Data &HFF8000,&HFF80FF,&HFFFF00,&HFFFFFF

Do :CLS :c=1
 For i=50 To 80 Step 2
   For j=50 To 100 Step 1
     u=Sin(i+v)+Sin(r*i+x)
     v=Cos(i+v)+Cos(r*i+x)
     x=u+t
     Pixel CX+u*SC,CY+v*SC
   Next j
   Inc c: If c>15 Then c=1
   Colour CV(c)
 Next i
Inc t,.025
FRAMEBUFFER COPY L,N,B
Loop