collapseos/blk/382

10 lines
194 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 LEAVE THEN
LOOP
NL
LOOP ;