Option ANGLE DEGREES
RX=MM.HRES: RY=MM.VRES: CX=RX/2: CY=RY/2
Umin=-180: Umax=180: Ustep=14
Vmin= -90: Vmax= 90: Vstep=14
SCALE=220: C=1
Colour RGB(Cyan)
CLS

Do
 If C>0 Then C=0 Else C=1
 For S=0 To 12 Step 2
   For V= Vmin To Vmax Step Vstep
   For U= Umin To Umax Step Ustep
     U=U+S
       x=Cos(U)*Cos(V)
       y=Sin(U)*Cos(V)
       z=Sin(V)
     U=U-S
     Plot_XY
     If Inkey$ <> "" Then End
   Next U: Next V
 Next S
Loop

Sub Plot_XY
 x=SCALE*x: y=SCALE*y: z=SCALE*z
 y=y/3
 If y<0 Then
   Circle CX+x-y,CY+z-y,1,,,C
 Else
   Pixel CX+x-y,CY+z-y,C
 EndIf
End Sub

MODE 3
CX=MM.HRES\2
CY=MM.VRES\2
Dim P(5),Q(5)
For L=0 To 5
 S=Pi/3*L
 P(L)=500*Sin(S)
 Q(L)=500*Cos(S)
Next

X=0:Y=500
For L=0 To 320000
 R=Int(Rnd*6)
 X=(X+P(R))/2
 Y=(Y+Q(R))/2
 PX=CX+X\2
 PY=CY+Y\2
 G=Pixel(PX,PY)
 Color Map(1)
 If G>0 Then Color Map(7)
 Pixel PX,PY
Next

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$=""