TO a

cs
SETACTIVEAREA [-150 -250 350 250]
Setpc [255 0 255]
MAKE “append “FALSE

px

setpensize [200 200]
repeat 36 [
fd 20 rt 10
(GIFSAVE “01.gif 0 :append 0)
MAKE “append “TRUE]

END

To c

cs
SETACTIVEAREA [-190 -190 150 150]
MAKE “append “FALSE

px

repeat 100 [
repeat 34 [fd 12 rt 10] (GIFSAVE “03.gif 0 :append 0)
MAKE “append “TRUE
rt 90]

PENNORMAL

End