1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-27 16:18:04 +11:00
collapseos/blk/382

10 lines
194 B
Plaintext
Raw Normal View History

: 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 LEAVE THEN
LOOP
NL
LOOP ;