mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-27 17:38:06 +11:00
f6ded7712e
This is the first commit I do entirely in VE. It's a habit I'm planning on taking as it helps a lot to find usability issues.
17 lines
188 B
Plaintext
17 lines
188 B
Plaintext
: .2 DUP 10 < IF SPC THEN . ;
|
|
: LIST
|
|
BLK@
|
|
16 0 DO
|
|
I 1+ .2 SPC
|
|
64 I * BLK( + DUP 64 + SWAP DO
|
|
I C@ 0x20 MAX EMIT
|
|
LOOP
|
|
NL
|
|
LOOP
|
|
;
|
|
|
|
|
|
|
|
|
|
|