file-flush:file_misc — ordinary primitive
FORTH
FILE-FLUSH ( file-id -- )(
)
simulate : FILE-FLUSH DUP FILE-SAVE-BUFFERS FILE-EMTPY-BUFFERS ;