open-blockfile:block_misc — ordinary primitive
FORTH
OPEN-BLOCKFILE ( "filename" -- )w32for(
)
w32for-implementation: close-blockfile parse-word r/w open-file abort" failed to open block-file" set-blockfile empty-buffers