/*
* Copyright (c) 1980 Regents of the University of California.
* All rights reserved. The Berkeley software License Agreement
* specifies the terms and conditions for redistribution.
*
* @(#)s_stop.c 5.1 6/7/85
*/
#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);
putc('\n', stderr);
}
f_exit();
_cleanup();
exit(0);
}