20 FOR I=0 TO J*12
30 PLOT 32+J*2*SIN(I/(J*6)*PI), 22+J*2*COS(I/(J*6)*PI)
40 NEXT I
50 NEXT J
20 FOR J=0 TO 120
30 PLOT 32+20*SIN(J/(60*PI), 22+20*COS(J/60*PI+I/4*PI)
40 NEXT J NEXT I
| Program 3 |
| 10 FOR J=1 TO 10 20 FOR I=0 TO J*12 30 PLOT 32+J*2*SIN(I/(J*6)*PI), 22+J*2*COS(I/(J*6)*PI) 40 NEXT I 50 NEXT J |
| Program 3a |
| 10 FOR I=-4 TO 4 20 FOR J=0 TO 120 30 PLOT 32+20*SIN(J/(60*PI), 22+20*COS(J/60*PI+I/4*PI) 40 NEXT J NEXT I |
   |