|
TO L :Y
|
|
PU SETPOS SE -20 :Y PD
|
|
SETH 90 FD (8+RANDOM 132) PU SETPOS SE -20 :Y PE
|
|
REPEAT ((RANDOM 30)+2)[SETH(286-RANDOM 32) FD RANDOM 6]
|
|
END
|
|
ST CS FS PU SETPOS[-140 96] PD RT 90 FD 120 RT 90 FD 192 RT 90 FD 120 RT 90 FD 191 FILL
|
|
MAKE "Y 80
|
|
REPEAT 33[L :Y MAKE "Y (:Y-5)]
|
|
HT
|