* 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
CREATE-BLOCKFILE
( n "filename" -- )
w32for
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
FORTH/FORTH block_misc ordinary primitive