From: Erich W. <ew....@na...> - 2009-04-01 18:46:13
|
Hi, > > : .s ( -- ) > depth 0> if > depth sp@ swap 0 > do i . 1+ 1+ dup . dup @ >< . cr loop 1+ 1+ > else sp@ then 53 ( S ) emit space . ; This works for me better when removing "><" and substituting "u." for "." just me nitpicking :-) Thanks and cheers, Erich |