MODE 2
CLS Map(1)
r=Rad(35):m%=4
For y%=0 To MM.VRES
For x%=0 To MM.HRES
 h=0
 For i%=1 To 4
   x0=x%/i%:y0=y%/i%
   a=r*i%
   Co=Cos(a):Si=Sin(a)
   s=x0*Co-y0*Si
   t=x0*Si+y0*Co
   h=h+Sin(s/5)*4+Sin(t/7)*5
 Next
If h>-2 Then
 Color Map(4+Abs(h) Mod 7)
 Pixel x0*m%,y0*m%
EndIf
Next : Next

MODE 2
Map Reset
Dim integer cm(15)=(0,15,7,1,0,0,0,0,0,0,0,0,0,0,0,0)
Colour Map cm(),cm()

r=Rad(35)
For Y0%=0 To MM.VRES
For X0%=0 To MM.HRES
 h=0
For i%=1 To 3
 x=(X0%-10)/i%:y=Y0%/i%:a=r*i%
 C0=Cos(a):S0=Sin(a)
 s=x*C0-y*S0:t=x*S0+y*C0
 h=h+Sin(s/5)*4+Sin(t/7)*5
Next
 Pixel X0%,Y0%,Map((h+24)Mod 16)
Next :Next

Do
 T=cm(0)
 For i%=0 To 14:cm(i%)=cm(i%+1):Next
 cm(15)=T
 For i%=0 To 15:Map(i%)=cm(i%):Next
 Map Set
 Pause 50
Loop

MODE 2
Map Reset
Dim integer CM(15)=(0,15,7,3,1,0,0,0,0,0,0,0,0,0,0,0)
Colour Map CM(),CM()
FRAMEBUFFER LAYER
FRAMEBUFFER WRITE L
r=Rad(35)
For Y0%=0 To MM.VRES
For X0%=0 To MM.HRES
 h=0
For i%=1 To 3
 x=(X0%-10)/i%:y=Y0%/i%:a=r*i%
 C0=Cos(a):S0=Sin(a)
 s=x*C0-y*S0:t=x*S0+y*C0
 h=h+Sin(s/5)*4+Sin(t/7)*5
Next
 Pixel X0%,Y0%,Map((h+64)Mod 16)
Next :Next

FRAMEBUFFER WRITE N
XCntr%=MM.HRES\2:YCntr%=MM.VRES\2
XC%=XCntr%:YC%=YCntr%:CC%=1
XDir%=1:YDir%=1
Do
 TC%=CM(1)
 For i%=1 To 14:CM(i%)=CM(i%+1):Next
 CM(15)=TC%
 For i%=1 To 15:Map(i%)=CM(i%):Next
 Map Set
 Inc CC%,-1:If CC%=0 Then CC%=15
 CLS
 Text XC%,YC%,Time$,"CM",6,,Map(CC%)
 Inc XC%,XDir%:Inc YC%,YDir%
 If XC%>XCntr%+32 Then XDir%=-1
 If XC%<XCntr%-32 Then XDir%=1
 If YC%>YCntr%+95 Then YDir%=-1
 If YC%<YCntr%-95 Then YDir%=1
 Pause 50
Loop