/* $Header$ */
#include <pc_file.h>
extern int *_extfl;
extern char *_hbase;
extern _wrs();
extern _wln();
procexit(name) char *name; {
struct file *f;
f = EXTFL(2);
_wrs(5,"exit ",f);
_wrs(8,name,f);
_wln(f);
}
