collapseos/blk/444

17 lines
267 B
Plaintext
Raw Normal View History

: _ ( 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-04 22:30:29 -04:00
DUP 0x20 0x7e =><= NOT
IF DROP '.' THEN
EMIT
LOOP
2020-05-04 08:10:18 -04:00
NL
;