UNIX 7th Ed. - /usr/src/libF77/s_stop.c

   1: #include <stdio.h>
   2: 
   3: s_stop(s, n)
   4: char *s;
   5: long int n;
   6: {
   7: int i;
   8: 
   9: if(n > 0)
  10:     {
  11:     fprintf(stderr, "STOP ");
  12:     for(i = 0; i<n ; ++i)
  13:         putc(*s++, stderr);
  14:     fprintf(stderr, " statement executed\n");
  15:     }
  16: f_exit();
  17: exit(0);
  18: }

Defined functions