--- gforth/Attic/tools.fs	1994/07/08 15:01:02	1.2
+++ gforth/Attic/tools.fs	1995/06/08 15:28:28	1.3
@@ -21,20 +21,27 @@ variable maxdepth-.s
 \ DUMP                       2may93jaw - 9may93jaw    06jul93py
 \ looks very nice, I know
 
+Variable /dump
+
 : .4 ( addr -- addr' )
-  3 FOR  dup c@ 0 <# # # #> type space char+ NEXT ;
+    3 FOR  -1 /dump +!  /dump @ 0<
+        IF  ."    "  ELSE  dup c@ 0 <# # # #> type space  THEN
+    char+ NEXT ;
 : .chars ( addr -- )
-  10 bounds DO  I c@ dup 7f bl within
-                IF drop [char] . THEN emit LOOP ;
+    /dump @ bounds
+    ?DO I c@ dup 7f bl within
+	IF  drop [char] .  THEN  emit
+    LOOP ;
 
 : .line ( addr -- )
-  dup .4 space .4 ." - " .4 space .4 drop  space .chars ;
+  dup .4 space .4 ." - " .4 space .4 drop  10 /dump +!  space .chars ;
 
 : dump  ( addr u -- )
-  cr base @ >r hex        \ save base on return stack
-  $F + $10 /              \ calc number of lines
-  0 ?DO  dup 8 u.r ." : " dup .line 10 + cr  LOOP
-  drop r> base ! ;
+    cr base @ >r hex        \ save base on return stack
+    0 ?DO  I' I - 10 min /dump !
+	dup 8 u.r ." : " dup .line cr  10 +
+	10 +LOOP
+    drop r> base ! ;
 
 \ ?                                                     17may93jaw