--- gforth/simp-see.fs 2001/03/28 09:06:57 1.1 +++ gforth/simp-see.fs 2002/12/13 21:20:39 1.2 @@ -22,7 +22,7 @@ require see.fs : simple-see-range ( addr1 addr2 -- ) swap u+do - cr i hex. i cell+ i @ .word drop + cr xpos off i hex. i cell+ i @ .word drop cell +loop ;