FILE-BLOCK FIG-WORD FILE-BUFFER
FILE-BLOCK
* FILE-BLOCK ( a file-id -- c )

FORTH/FORTH file_misc ordinary primitive