perm filename BUG.SAI[OK,TES]1 blob sn#116587 filedate 1974-08-21 generic text, type T, neo UTF8
00100	begin "BUG"
00200	external integer !errp! ;
00400	INTERNAL SIMPLE INTEGER PROCEDURE ERROR (INTEGER LOC);
00500		BEGIN "ERROR"
00600		INTEGER CHAR;
00700		IF LOC OR NOT CHAR THEN RETURN(CHAR)
00800		ELSE	BEGIN
00900			!ERRP! ← LOCATION(ERROR) ;
01000			RETURN(0) ;
01100			END ;
01200		END "ERROR";
01300	END "BUG"