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