\ falderal.txt  Leo Wong 3 April 02003 fyj +
\ Folderol with ALLOCATE
\ See usage example at the end of this file
\ See folderol.txt for sample input and output

include from.txt

from all2all.txt
from folderol.txt

: Allocate-Tree ( u -- )  Allocate-Space node ;

: Falderal  ( tree -- )  TRUE ?Allocate  Folderol ;

\ Usage example testing Falderal and Folderol
   2000000 Allocate-Tree Atop
   Atop Falderal dir.dat
   Atop .Tree
   Atop .Nodes
   FALSE ?Allocate
   tree Top
   Top Folderol dir.dat
   Top .Tree
   Top .Nodes