CREATE-FILE
* CREATE-FILE ( str-adr str-len mode -- file code )

create the file with the given name and open
it - returns the file id and a status code.
A code of zero means success. An existing file
of the same name is truncated upon open.

file ordinary primitive