1\ #if FICL_WANT_FILE 2\ ** 3\ ** File Access words for ficl 4\ ** submitted by Larry Hastings, larry@hastings.org 5\ ** 6\ 7\ $FreeBSD$ 8 9: r/o 1 ; 10: r/w 3 ; 11: w/o 2 ; 12: bin 8 or ; 13 14: included 15 r/o bin open-file 0= if 16 locals| f | end-locals 17 f include-file 18 else 19 drop 20 endif 21 ; 22 23: include parse-word included ; 24 25\ #endif 26