FILE-STATUS
* FILE-STATUS ( str-adr str-len -- sub-code code )

check the named file - if it exists
the status code is zero. The sub-code
is implementation-specific.

file ordinary primitive