/********************************************************************** * Copyright (c) Digital Equipment Corporation 1984, 1985, 1986. * * All Rights Reserved. * * Reference "/usr/src/COPYRIGHT" for applicable restrictions. * **********************************************************************/ /* * SCCSID: @(#)s_stop.c 3.0 4/22/86 */ #include <stdio.h> s_stop(s, n) char *s; long int n; { int i; if(n > 0) { fprintf(stderr, "STOP "); for(i = 0; i<n ; ++i) putc(*s++, stderr); fprintf(stderr, " statement executed\n"); } f_exit(); exit(0); }