1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-27 17:58:06 +11:00
collapseos/blk/382
2020-11-08 17:30:27 -05:00

10 lines
199 B
Plaintext

: LIST
BLK@
16 0 DO
I 1+ DUP 10 < IF SPC THEN . SPC
64 I * BLK( + DUP 64 + SWAP DO
I C@ DUP 0x1f > IF EMIT ELSE DROP LEAVE THEN
LOOP
NL
LOOP ;