SET-BLOCKFILE SEE SET-CURRENT
SET-BLOCKFILE
* SET-BLOCKFILE ( fid -- ) win32for

win32forth uses a system-filedescriptor where -1 means unused
in the BLOCKHANDLE, but we use a "FILE*"-like structure, so NULL
means NOT-IN-USE. Here we set it.

EXTENSIONS block_misc ordinary primitive