/**************************************************************************** * * C F I L E O P E N R O U T I N E * ------------------------------------- * * The "open" routine opens a "C" file and returns a file id. * * Calling Sequence: * * fid = open(fname,mode,type); * * Where: * * fname is the address of a null terminated file name. * mode is the open mode: * * 0 => READ access only * 1 => WRITE access only * 2 => Both READ and WRITE * type is 0 for ASCII files, 1 for BINARY * * *****************************************************************************/ #include /* */ WORD xopen(fname,mode,xtype) /****************************/ BYTE *fname; /* -> File name */ WORD mode; /* Open mode */ WORD xtype; /* File type */ { /****************************/ return(_open(fname,mode,xtype)); /* Call clib routine */ } /****************************/ e,xtype)); /* Call clib routine */ } /****************************/ e,xtype)); /* Call clib routine */ } /****************************/ e,xtype)); /* Call clib routine */ } /****************************/