FILE-POSITION FILE-LOAD FILE-R/W
FILE-POSITION
* FILE-POSITION ( file -- p.pos code )

return the current position in the file and
return a status code. A code of zero means success.

file ordinary primitive