MODE 2
Map Reset
For Y=0 To 240-1
 Color Map(1+(Y Mod 8))
 Line 0,Y,320,Y
Next
Color 0
Pause 1000

C=36
For O=0 To 7
 For A=0 To 7
   B=(A*8+O)*Pi/32
   L=120*Sin(B)+160
   M=((68*Cos(B))\8*8)+125
   For Y=M-C+O To M+C Step 8
     R=Sqr(Abs(C*C-(Y-M)^2))
     Line L-R,Y,L+R,Y
   Next
 Next
Next
Pause 1000

Dim CM%(15)
CM%(1)=RGB(Cyan)
Do
 For i%=0 To 7:CM%(i%)=CM%(i%+1):Next
 CM%(8)=CM%(0)
 For i%=1 To 8:Map(i%)=CM%(i%):Next
 Map Set
 Pause 60
Loop While Inkey$=""