home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / libF77 / s_stop.c < prev    next >
Encoding:
C/C++ Source or Header  |  1979-01-10  |  216 b   |  19 lines
  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. }
  19.