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