mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-01-01 05:31:52 +00:00
10 lines
273 B
Plaintext
10 lines
273 B
Plaintext
|
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
|