mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-28 23:49:15 +11:00
17 lines
274 B
Plaintext
17 lines
274 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 |> <>}
|
|
IF DROP '.' THEN
|
|
EMIT
|
|
LOOP
|
|
CRLF
|
|
;
|