/* $Id$ */

/* error takes an error value in the range of 0-255 */
/* and generates a trap */

char *errortable[255]={
/* 0  */	"",
/* 1  */	"RETURN without GOSUB",
/* 2  */	"Out of data",
/* 3  */	"Illegal function call",
/* 4  */	"Overflow",
/* 5  */	"Out of memory",
/*  6 */	"Undefined line ",
/*  7 */	"Subscript out of range",
/*  8 */	"Redimensioned array",
/*  9 */	"Division by zero",
/* 10 */	"Illegal indirect",
/* 11 */	"Type mismatch",
/* 12 */	"Out of string space",
/* 13 */	"String too long",
/* 14 */	"String formula too complex",
/* 15 */	"Can't continue",
/* 16 */	"Undefined user function",
/* 17 */	"No resume",
/* 18 */	"Resume without error",
/* 19 */	"Unprintable error",
/* 20 */	"Missing operand",
/* 21 */	"Line buffer overflow",
/* 22 */	"FOR without NEXT",
/* 23 */	"WHILE without WEND",
/* 24 */	"WEND without WHILE",
/* 25 */	"Field overflow",
/* 26 */	"Internal error",
/* 27 */	"Bad file number",
/* 28 */	"File not found",
/* 29 */	"Bad file mode",
/* 30 */	"File already open",
/* 31 */	"Disk IO error",
/* 32 */	"File already exists",
/* 33 */	"Disk full",
/* 34 */	"Input past end",
/* 35 */	"Bad record number",
/* 36 */	"Bad file name",
/* 37 */	"Direct statement in file",
/* 38 */	"Too many files",
/* 39 */	"File not open",
/* 40 */	"Syntax error in data",
0
};

error(index)
int	index;
{
	extern int _errsym;
	extern int _erlsym;

	_setline();
	if( index<0 || index >40 )
		printf("LINE %d:ERROR %d: Unprintable error\n",_erlsym,index);
	else 	printf("LINE %d:ERROR %d: %s\n",_erlsym,index,errortable[index]);
	_errsym= index;
	_trap();
}