10 extern int getpid (void), isatty (int), pause (void);
12 extern void f_exit (void);
25 "To resume execution, type go. Other input will terminate the job.\n");
27 if (getc (fin) != 'g' || getc (fin) != 'o' || getc (fin) != '\n')
29 fprintf (stderr, "STOP\n");
38 s_paus (char *s, ftnlen n)
40 fprintf (stderr, "PAUSE ");
42 fprintf (stderr, " %.*s", (int) n, s);
43 fprintf (stderr, " statement executed\n");
44 if (isatty (fileno (stdin)))
48 #if (defined (MSDOS) && !defined (GO32)) || defined (_WIN32)
50 fin = fopen ("con", "r");
53 fprintf (stderr, "s_paus: can't open con!\n");
61 "To resume execution, execute a kill -%d %d command\n",
63 signal1 (PAUSESIG, waitpause);
68 fprintf (stderr, "Execution resumes after PAUSE.\n");
70 return 0; /* NOT REACHED */