mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-27 17:38:06 +11:00
17 lines
267 B
Plaintext
17 lines
267 B
Plaintext
: _ ( a -- a+8 )
|
|
DUP ( save for 2nd loop )
|
|
':' EMIT DUP .x SPC
|
|
4 0 DO
|
|
DUP @ 256 /MOD SWAP
|
|
.x .x SPC 2+
|
|
LOOP
|
|
DROP
|
|
8 0 DO
|
|
C@+
|
|
DUP 0x20 0x7e =><= NOT
|
|
IF DROP '.' THEN
|
|
EMIT
|
|
LOOP
|
|
NL
|
|
;
|