FILE-LIST
FILE-FLUSH
FILE-LOAD
FILE-LIST
*
FILE-LIST
( x file-id -- )
FORTH/FORTH
file_misc
ordinary primitive