?FILE ?EXEC ?LEAVE
?FILE
* ?FILE ( file-id -- )

check the file-id otherwise (fixme)

FORTH/FORTH tools_misc ordinary primitive