2020-04-26 11:54:07 +10:00
|
|
|
: _ ( 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@+
|
2020-05-03 09:57:56 +10:00
|
|
|
DUP 0x20 < OVER 0x7e > OR
|
2020-04-26 11:54:07 +10:00
|
|
|
IF DROP '.' THEN
|
|
|
|
EMIT
|
|
|
|
LOOP
|
|
|
|
CRLF
|
|
|
|
;
|