mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-17 14:12:58 +00:00
e1f1e35985
based on this thread on twitter: https://twitter.com/closethipster/status/1355982048071217153
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
|