mirror of https://github.com/hsoft/collapseos.git
12 lines
134 B
Plaintext
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
|
||
|
|
;
|
||
|
|
|