ref: 46fbdcae1e954e4809eb0c67c0180f71fd618a8d
dir: /softwords/fileaccess.fr/
\ #if FICL_WANT_FILE \ ** \ ** File Access words for ficl \ ** submitted by Larry Hastings, larry@hastings.org \ ** : r/o 1 ; : r/w 3 ; : w/o 2 ; : bin 8 or ; : included r/o bin open-file 0= if locals| f | end-locals f include-file f close-file drop else drop endif ; : include parse-word included ; immediate \ #endif