/BUILT-IN ERROR MESSAGES FOR LAB-FOCAL		-JVZ-

	FIELD 1
	*ERRX+1
	CDI L
	JMP I .+1	/PRINT EXPLANATION
	ERLOOP-1
/////
	FIELD 0
	*400
	TAD ER00
ERLOOP,	DCA AUTO
	TAD GOSW	/SAVED BY 'RESTORE'
	CIA
	TAD I AUTO
	SNA CLA
	JMP MATCH
	TAD I AUTO	/ERROR MESSAGES ARE LINKED
	SZA
	JMP ERLOOP	/JUST LIKE THE TEXT BUFFER

ERROUT,	CLA IAC		/NOT THERE - GO TO 'START'
	JMP I .+1	/AFTER FINAL CR
	DIREND

MATCH,	TAD I AUTO
	CIA
	TAD AUTO	/COMPUTE LENGTH
	DCA GOSW
	TAD I AUTO
	JMS I ERPRNT
	ISZ GOSW
	JMP .-3
	JMP ERROUT	/RETURN TO COMMAND MODE
ERPRNT,	NPACK

	G=200		/GROUP MULTIPLIER
/ERROR MESSAGES ARE IN A LINKED LIST

	DECIMAL
ER00,	ER01-1
ER01,	G^1+50;ER02-1
TEXT	"GROUP NUMBER > 31"
ER02,	G^1+60;ER03-1
TEXT	"OUTPUT BUFFER FULL"
ER03,	G^3+30;ER04-1
TEXT	"UNKNOWN COMMAND"
ER04,	G^3+40;ER05-1
TEXT	"LINE IS MISSING"
ER05,/	G^1+94;ER06-1
/TEXT	"MODIFY LINE MISSING"	/REMOVED V5B
ER06,	G^4+30;ER07-1
TEXT	"IMPROPER 'FOR' SYNTAX"
ER07,	G^6+43;ER08-1
TEXT	"SYMBOL TABLE FULL"
ER08,	G^6+89;ER09-1
TEXT	"NUMBER OR FUNCTION IN Y/Z"
ER09,	G^7+45;ER10-1
TEXT	"BAD RELATIONAL OPERATOR"
ER10,	G^8+45;ER11-1
TEXT	"MISSING OPERATOR OR WRONG '=' SIGN"
ER11,	G^8+65;ER12-1
TEXT	"VARIABLE NAME BEGINS WITH 'F'"
ER12,	G^9+45;ER13-1
TEXT	"UNMATCHED PARENTHESES"
ER13,	G^8+75;ER14-1
TEXT	"UNKNOWN FUNCTION OR DOUBLE OPERATORS"
ER14,	G^11+50;ER15-1
TEXT	"TEXT BUFFER FULL"
ER15,/	G^12+65;ER16-1		/REMOVED V5E
/TEXT	"TOO MANY DIGITS IN NUMBER"
ER16,/	G^13+05;ER17-1		/NOT PRINTED ANYWAY
/TEXT	"ERROR IN BATCH FILE"
ER17,/	G^13+59;ER18-1		/-8/E (REMOVED V5C)
/TEXT	"INPUT OVERRUN"
ER18,	G^17+32;ER19-1
TEXT	"FRA INDEX ERROR"
ER19,	G^17+65;ER20-1
TEXT	"FRA MODE ERROR: NOT 0,1,2,4"
ER20,	G^18+41;ER21-1
TEXT	"FCOM INDEX ERROR"
ER21,	G^18+50;ER22-1
TEXT	"STOP! NEED MORE MEMORY!"
ER22,	G^21+15;ER23-1
TEXT	"'ZERO' SIZE TOO BIG"
ER23,	G^22+55;ER24-1
TEXT	"UNKNOWN DEVICE"
ER24,	G^22+37;ER25-1
TEXT	"NO ROOM FOR NEW HANDLER"
ER25,	G^23+25;ER26-1
TEXT	"O-A OR O-C SIZE TOO BIG"
ER26,	G^23+65;ER27-1
TEXT	"O-O ERROR: FILE OPEN, NO ROOM, OR <#>"
ER27,	G^23+39;ER28-1
TEXT	"OUTPUT FILE TOO BIG: SAVE WITH 'O O ...;O A FLEN()'"
ER28,	G^23+84;ER29-1
TEXT	"NO OUTPUT FILE TO RESTART"
ER29,	G^24+10;ER30-1
TEXT	"FILE MISSING"
ER30,	G^24+70;ER31-1
TEXT	"NO INPUT FILE AVAILABLE"
ER31,	G^25+10;ER32-1
TEXT	"STACK OVERFLOW"
ER32,	G^24+83;ER33-1
TEXT	"I-F/0 ERROR: OUTPUT OPEN"
ER33,	G^25+50;ER34-1
TEXT	"NO OUTPUT FILE AVAILABLE"
ER34,	G^26+20;ER35-1
TEXT	"UNKNOWN 'L' COMMAND"
ER35,	G^26+35;ER36-1
TEXT	"NO FILE TO ERASE"
ER36,	G^26+40;ER37-1
TEXT	"BAD PROGRAM - RELOAD FOCAL!"
ER37,	G^26+55;ER38-1
TEXT	"PROGRAM MISSING"
ER38,	G^26+67;ER39-1
TEXT	"NO ROOM OR WRITE-LOCKED"
ER39,	G^29+38;ER40-1
TEXT	"DEVICE ERROR"
ER40,	G^27+10;ER41-1
TEXT	"DEVICE HAS NO DIRECTORY"
ER41,	G^27+25;ER42-1
TEXT	"UNKNOWN 'I/O/U' COMMAND"
ER42,	G^27+90;ER43-1
TEXT	"ZERO DIVISOR"
ER43,	G^19+71;ER44-1
TEXT	"LOGARITHM OF ZERO"
ER44,	G^30+75;ER45-1
TEXT	"SQUARE ROOT OF NEGATIVE #"
ER45,			/USER ERRORS
ER50,	127;0		/THE END
	OCTAL
IFNZRO	2000-.&4000	<REDUCE LENGTH OF MESSAGES!>