'
'Rose Drawing Routine
'Richard Wheeldon 1996 
'
'Keep pressing key to increase number of points
'
Degree : Curs Off : Flash Off 
For X=2 To 20
   Cls : Print At(0,0);X+1
   ROSE[160,100,80,X]
   Wait Key 
Next 
Procedure ROSE[XC,YC,R,N]
   Dim X(N),Y(N)
   For C=0 To N
      X(C)=XC+R*Sin((C*360)/(N+1))
      Y(C)=YC+R*Cos((C*360)/(N+1))
   Next 
   For C1=0 To N
      For C2=C1 To N
         Draw X(C1),Y(C1) To X(C2),Y(C2)
      Next 
   Next 
End Proc