extern int getpid(void), isatty(int), pause(void);
extern VOID
f_exit(Void
);
static VOID
waitpause(Int n
)
int s_paus(s
, n
) char *s
; ftnlen n
;
int s_paus(char *s
, ftnlen n
)
fprintf(stderr
, "PAUSE ");
fprintf(stderr
, " statement executed\n");
if( isatty(fileno(stdin
)) )
fprintf(stderr
, "To resume execution, type go. Any other input will terminate job.\n");
if( getchar()!='g' || getchar()!='o' || getchar()!='\n' )
fprintf(stderr
, "STOP\n");
fprintf(stderr
, "To resume execution, execute a kill -%d %d command\n",
signal(PAUSESIG
, waitpause
);
fprintf(stderr
, "Execution resumes after PAUSE.\n");
return 0; /* NOT REACHED */