![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to tools.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to tools.fs CVS log | Up to [gforth] / gforth |
| version 1.1, 1994/02/11 16:30:47 | version 1.2, 1994/07/08 15:01:02 |
|---|---|
| Line 6 hex | Line 6 hex |
| \ .S CORE / CORE EXT 9may93jaw | \ .S CORE / CORE EXT 9may93jaw |
| variable maxdepth-.s | |
| 9 maxdepth-.s ! | |
| : .s ( -- ) | : .s ( -- ) |
| \ depth 0= IF ." <empty> " THEN | ." <" depth 0 .r ." > " |
| depth 0 ?DO I pick . LOOP ; | depth 0 max maxdepth-.s @ min |
| dup 0 | |
| ?do | |
| dup i - pick . | |
| loop | |
| drop ; | |
| \ DUMP 2may93jaw - 9may93jaw 06jul93py | \ DUMP 2may93jaw - 9may93jaw 06jul93py |
| \ looks very nice, I know | \ looks very nice, I know |