dos33fsprogs/logo/lines.logo
2021-08-06 15:24:17 -04:00

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