mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-05 15:10:55 +11:00
17 lines
272 B
Plaintext
17 lines
272 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 < OVER 0x7e > OR
|
|
IF DROP '.' THEN
|
|
EMIT
|
|
LOOP
|
|
CRLF
|
|
;
|