Appears on
Assembled by Tim Ward from many sources. Contains programs 10294-10335.
Source Code
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