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