FILE-FLUSH ( file-id -- )
simulate : FILE-FLUSH DUP FILE-SAVE-BUFFERS FILE-EMTPY-BUFFERS ;
reference: p4_file_flush in ../src/misc.c:1014, export CO FILE-FLUSH