collapseos/blk/456

12 lines
132 B
Plaintext

: .2 DUP 10 < IF SPC THEN . ;
: LIST
BLK@
16 0 DO
I 1+ .2 SPC
64 I * BLK( + (print)
NL
LOOP
;