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

MODE 3
Dim C%(15)=(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15)
Colour Map C%(), C%()
xc=MM.HRES\2
yc=MM.VRES\2
Do
 r=r+Pi/180
 w=w+Pi/72
 For i=1 To 11
   x=xc+200*Cos(w+i*Pi/6)*Sin(r)
   y=yc+200*Sin(w+i*Pi/6)*Sin(r)
   Circle x,y,40,,,C%(6),C%(0)
   ww=ww+Pi/80
   If i=1 Then
     For j=1 To 11
       xx=x+100*Cos(ww+j*Pi/6)*Sin(r)
       yy=y+100*Sin(ww+j*Pi/6)*Sin(r)
       Circle xx,yy,20,,,C%(8),C%(0)
       w3=w3+Pi/80
       If j=1 Then
         For k=1 To 11
           x3=xx+50*Cos(w3+k*Pi/6)*Sin(r)
           y3=yy+50*Sin(w3+k*Pi/6)*Sin(r)
           Circle x3,y3,10,,,C%(1),C%(0)
         Next k
       EndIf
     Next j
   EndIf
 Next i
Loop While Inkey$=""

MODE 3
XC=MM.HRES\2: YC=MM.VRES\2
D=3: CX=0: CY=-1: CZ=1
For CY=-1 To 1 Step 2
 For I=0 To 2*Pi Step Pi/26
   XM=CX+Sin(I): YM=CY: ZM=CZ+Cos(I)
   XD=CX+Sin(I+Pi/2): YD=-CY: ZD=CZ+Cos(I+Pi/2)
   If (ZM+ZD)/2>CZ Then Color RGB(Cyan) Else Color RGB(Yellow)
   SXM=XM*D/(ZM+D): SYM=YM*D/(ZM+D)
   SXD=XD*D/(ZD+D): SYD=YD*D/(ZD+D)
   Line XC+XC*SXM,YC+YC*SYM,XC+XC*SXD,YC+YC*SYD
 Next
Next

MODE 2
FRAMEBUFFER CREATE
FRAMEBUFFER WRITE F
Dim PLGNX%(6)
Dim PLGNY%(6)
CX=MM.HRES\2:CY=MM.VRES\2
C%=RGB(Red)
Do
 CLS
 For z=1 To 63
   For t=0 To 6
     x=CX+(Sin(t*1.05+Sin(Timer/300+z/10))*(z*4))
     y=CY+(Cos(t*1.05+Sin(Timer/300+z/10))*(z*4))
     PLGNX%(t)=x:PLGNY%(t)=y
   Next
   Polygon 6,PLGNX%(),PLGNY%(),C%
 Next
 FRAMEBUFFER COPY F,N,B
Loop While Inkey$=""