FILE-LOAD FILE-LIST FILE-POSITION
FILE-LOAD
* FILE-LOAD ( x file-id -- )

FORTH/FORTH file_misc ordinary primitive