FILE-BUFFER FILE-BLOCK FILE-CHECK
FILE-BUFFER
* FILE-BUFFER ( a file-id -- c )

FORTH/FORTH file_misc ordinary primitive