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