CREATE for.txt  \ Leo Wong  21 June 02004 02003 fyj +
\ fexit fleave for next

include from.txt
from tools.txt

macro for " ( +u -- )  BEGIN ?DUP WHILE 1- >R" 
macro next " ( -- )   R> REPEAT"
macro fexit  " ( -- )  R> DROP EXIT" 
macro fleave " ( -- )   R> DROP 0 >R"