FILE-FLUSH FILE-EMPTY-BUFFERS FILE-LIST
FILE-FLUSH ( file-id -- )  
<PFE-MISC>
 simulate      : FILE-FLUSH DUP FILE-SAVE-BUFFERS FILE-EMTPY-BUFFERS ;

reference: p4_file_flush in ../src/misc.c:1014, export CO FILE-FLUSH