SUBROUTINE FATAL (IFEHL)
C  PASCAL-S PARSER  VERSION VOM 20.12.80
	COMMON NERR,IERRS,LC,ICC,DIN,FIN,ICH,LL,LINE
	COMMON ISYM,LEN,IWORD,IPOINT,ID,IAL
	COMMON NAME,IRZEIG,LZEIG,MAX,IL,ISTAB
	COMMON MAXE,MINE,KMAX,NMAX,ISX,LLENG,ISLENG,ISMAX
	DIMENSION LINE(80),LZEIG(200),IRZEIG(200),NAME(200,10)
	DIMENSION IWORD(29,10),IPOINT(26,2),ID(10),LEN(29)
	DIMENSION IERRS(61,3),ISTAB(600),IZEIL(40)
	WRITE(1,10)IFEHL
10	FORMAT('FATALER FEHLER NR. ',I5)
	NERR=NERR+1
	IERRS(NERR,1)=0
	IERRS(NERR,2)=LC
	IERRS(NERR,3)=ICC
	CALL CHAIN('ERRORM')
	RETURN
	END