procedure pheader(    ftype:file_type;
		  var fp:file_blk_ptr );extern;

function ofile( ftype:file_type ):file_blk_ptr;extern;

procedure cfile( var fp:file_blk_ptr );extern;

procedure jsys_err( halt:boolean;
		    error_code:integer;
		    myfbp:file_blk_ptr );extern.