dos33fsprogs/logo/polyspi4.logo
2021-11-08 17:11:06 -05:00

7 lines
87 B
Plaintext

TO POLYSPI4 :S :A :D :L
IF :SIZE < :L [STOP]
FD :S RT :A
POLYSPI4 (:S - :D) :A :D
END