ack/lang/basic/lib/hlt.c

#include <stdlib.h>

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

_goto_err()
{
	error(3);
}