home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / forth / fifth.arc / TREE.FIV < prev    next >
Encoding:
Text File  |  1984-11-19  |  455 b   |  40 lines
  1. CREATE TREE
  2. CREATE DDD
  3. EDIT
  4. ( EXEC -> )
  5. : DDD
  6.   i->d
  7.   <#
  8.   begin
  9.     dup c@@
  10.   while
  11.     dup c@@ hold
  12.     1-
  13.   repeat
  14.   #> drop count type
  15. ;
  16. ~UP
  17. CREATE LEVEL
  18. EDIT
  19. variable level
  20. ~UP
  21. CREATE TREE.ALL
  22. EDIT
  23. : tree.all
  24.   dup 0= if drop exit endif
  25.   cr level @ 2 * spaces
  26.   dup ddd
  27.     1 level +!
  28.   dup child tree.all
  29.     -1 level +!
  30.   next tree.all
  31. ;
  32. ~UP
  33. EDIT
  34. : tree
  35.   ' dup ddd
  36.   1 level !
  37.   child tree.all
  38. ;
  39. ~UP
  40. ABORT
  41.