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