You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
12345678910111213 |
- : _ ( a -- a+8 )
- DUP ( a a )
- ':' EMIT DUP .x SPC
- 4 0 DO DUP @ 256 /MOD SWAP .x .x SPC 2+ LOOP
- DROP ( a )
- 8 0 DO
- C@+ DUP 0x20 0x7e =><= NOT IF DROP '.' THEN EMIT
- LOOP NL ;
- : DUMP ( n a -- )
- LF
- SWAP 8 /MOD SWAP IF 1+ THEN
- 0 DO _ LOOP
- ;
|