\ tools 05.3.21 NAB
\ dump 98.6.8
\ copyleft: Christophe.Lavarenne@inria.fr

module tools

base @ hex
: .w ( n --) base @ >r hex
  0 <# # # # # #> type r> base ! ;
: .a ( c --) dup 20 < over 7E > or
   if drop 2E then emit ;
base !

public:

: dump ( @ # --) over + swap
  do cr i .w ." : "
  i 8 + i do i @ .w space 2 +loop
  i 8 + i do i c@ .a loop
  8 +loop ;

: ? @ . ;

end-module