extern int pausesw;
extern int serialsw;
extern char *progsw;
-extern int nolist;
extern int nomore; /* flags for moreproc/header display */
extern char *formsw;
done=freects_done;
-#ifdef LOCALE
setlocale(LC_ALL, "");
-#endif
invo_name = r1bindex (argv[0], '/');
/* read user profile/context */