ack/lang/basic/lib/hlt.c

/* $Header$ */

_hlt(nr)
int nr;
{
	exit(nr);
}

_goto_err()
{
	error(3);
}
Now using correct RCS identification 1985-01-21 12:47:04 +00:00			`/* $Header$ */`
* empty log message * 1984-11-29 14:22:02 +00:00
			`_hlt(nr)`
			`int nr;`
			`{`
			`exit(nr);`
			`}`
several fixes for new basic compiler 1988-07-01 17:30:06 +00:00
			`_goto_err()`
			`{`
			`error(3);`
			`}`