CREATE-BLOCKFILE
* CREATE-BLOCKFILE ( n "filename" -- ) w32for

w32for-implementation:
 close-blockfile
 parse-word r/w create-file abort" failed to create block-file"
 set-blockfile
 dup b/buf m* blockhandle resize-file
 abort" unable to create a file of that size"
 empty-buffers
 0 do i wipe loop 
 flush
pfe does not wipe the buffers

FORTH/FORTH block_misc ordinary primitive