ack/lang/basic/lib/hlt.c

/* $Id$ */

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

_goto_err()
{
	error(3);
}
Header --> Id 1994-06-24 11:31:16 +00:00			`/* $Id$ */`
* 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);`
			`}`