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

MODE 2 '1 2 3
cx=MM.HRES\2
cy=MM.VRES\2
cr=7
rd=cy-cr
C=RGB(Cyan)
Do
 For i=1 To 1000
   Pixel Rnd*MM.HRES,Rnd*MM.VRES,0
 Next
 t=Timer/5000
 x=cx+rd*Cos(3*t)
 y=cy+rd*Sin(4*t)
 Circle x,y,cr,,,C,C
Loop While Inkey$=""

MODE 2
For YM=0 To MM.VRES-1
 For XM=0 To MM.HRES-1
   X=XM:Y=YM
   U=X:V=Y
   For L=0 To 3
     U=U+Sin(V*.01*L)*30
     V=V+Sin(U*.01*L)*30
   Next
   O=Sin(Int(V/2)*123.45)*12
   O=O-Int(O)
   Color Map(15 And(Int(U)+O*16))
   Pixel X,Y
 Next
Next

Dim integer CM(15)=(0,9,15,9,0,0,0,0,0,0,0,0,0,0,0,0)
Colour Map CM(),CM()
Do
 Tmp=CM(0)
 For i=0 To 14: CM(i)=CM(i+1): Next
 CM(15)=Tmp
 For i=0 To 15: Map(i)=CM(i): Next
 Map Set
 Pause 50
Loop

MODE 1
Dim Integer CX,CY,X1,Y1,X2,Y2
CX=MM.HRES\2
CY=MM.VRES\2
X1=CX-CY*Sqr(1/2)
Y1=CY-CY*Sqr(1/2)
ProcH(-1,-1,2,0,0,2,7)
End

Sub ProcH(A,B,C,D,E,F,N)
 If N<=0 Then ProcL(A+(C+D)/2,B+(E+F)/2): Exit Sub
 ProcH(A,B,D/2,F/2,C/2,E/2,N-1)
 ProcH(A+C/2,B+E/2,C/2,E/2,D/2,F/2,N-1)
 ProcH(A+C/2+D/2,B+E/2+F/2,C/2,E/2,D/2,F/2,N-1)
 ProcH(A+C/2+D,B+E/2+F,-D/2,-F/2,-C/2,-E/2,N-1)
End Sub

Sub ProcL(X,Y)
 X2=CY*X*Sqr(1-Y*Y/2)+CX
 Y2=CY*Y*Sqr(1-X*X/2)+CY
 Line X1,Y1,X2,Y2
 X1=X2:Y1=Y2
End Sub