(* routines for interactive opening of files in PASCAL *)

 Function OPENFORREAD(var filnam:line; var f:text):integer; extern;
 Procedure OPENFORWRITE(var filnam:line; var f:text); extern;