SUBROUTINE FEHL (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,1000)IFEHL
1000	FORMAT('EINFACHER FEHLER NR. ',I4)
	NERR=NERR+1
	IERRS(NERR,1)=IFEHL
	IERRS(NERR,2)=LC
	IERRS(NERR,3)=ICC
	IF (IERRS-60) 2000,1500,1500
1500	CALL FATAL (255)
2000	RETURN
	END