#include File *_out_file; open_back( filename) char *filename; { if ( filename == (char *) '\0') return( 0); else return( sys_open( filename, OP_WRITE, &_out_file)); }