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