Hothouse Plot

   5 REM HOTHOUSE PLOT
   6 FAST 
   7 DIM X(601)
   8 DIM Y(601)
  10 LET N=456
  20 LET D=2*PI/600
  30 LET P=20
  40 FOR I=0 TO 600
  50 LET T=D*I
  55 LET R=P*SIN (N*T)
  60 LET X(I+1)=R*COS T+31
  70 LET Y(I+1)=R*SIN T+21
  72 NEXT I
  74 SLOW 
  76 CLS 
  78 FOR I=1 TO 601
  80 PLOT X(I),Y(I)
  90 NEXT I
 100 FOR I=1 TO 100
 110 NEXT I
 120 GOTO 76
 130 CLEAR 
 140 SAVE "1029%7"
 150 RUN