1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-28 23:38:05 +11:00
collapseos/blk/456
Virgil Dupras f023f9bcb4 Pack core words blks a bit tighter
With all this recent movements, we had a bit of a fragmentation
issue.
2020-05-02 21:47:32 -04:00

12 lines
134 B
Plaintext

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