FILE-FLUSH
* FILE-FLUSH ( file-id -- )
 simulate      : FILE-FLUSH DUP FILE-SAVE-BUFFERS FILE-EMTPY-BUFFERS ;

FORTH/FORTH file_misc ordinary primitive