SUBROUTINE GETSYM
	COMMON NERR,IERRS,LC,CC,DIN,FIN
	COMMON SYM,IDENT,INUM,RNUM,SLENG,CH,STRING
	COMMON STACK,BOTTOM,TOP,KITUM,KZEIGER,NIDEK,NZEIGER
	COMMON IC0,RC0,SC0,P0,I0,T0,GPUNKT
	COMMON ICZEIGER,RCZEIGER,PZEIGER,IZEIGER,TZEIGER,SCZEIGER
	COMMON ICTAB,RCTAB,SCTAB,SCZ,PTAB,PZ,ITAB,IZ,TTAB,TZ
	INTEGER PUNKT,GPUNKT,NPUNKT,INKITUM,INKI,INKI0,INKI1
	INTEGER NERR,IERRS(61,3),LC,CC
	INTEGER SYM,IDENT,INUM,SLENG,CH,STRING(80)
	INTEGER STACK(200),BOTTOM(10),TOP(10),KITUM(200,4)
	INTEGER NIDEK(100,2),NZEIGER,IC0,RC0,SC0,P0,I0,T0
	INTEGER ICZEIGER,RCZEIGER,PZEIGER,IZEIGER,TZEIGER,SCZEIGER
	INTEGER ICTAB(200),SCTAB(200),SCZ(50),PTAB(100),PZ(50)
	INTEGER ITAB(100),IZ(50),TTAB(400),TZ(50)
	REAL RNUM,RCTAB(50)
	LOGICAL LEER,DD,B
50	FORMAT(80A1)
40	FORMAT(E18.6)
30	FORMAT(I8)
20	FORMAT(I6)
100	READ(4,20)CC
	READ(4,20)SYM
	IF (CC.EQ.-1)
	  LC=SYM
	  GOTO 100
	ENDIF
	IF (SYM.EQ.1)
	  READ(4,20)IDENT
	ELSE
	  IF (SYM.EQ.2)
	    READ(4,30)INUM
	  ELSE
	    IF (SYM.EQ.3)
	      READ(4,40)RNUM
	    ELSE
	      IF (SYM.EQ.4)
		READ(4,50)CH
	      ELSE
		IF (SYM.EQ.5)
		  READ(4,20)SLENG
		  READ(4,50)(STRING(I),I=1,SLENG)
		ENDIF
	      ENDIF
	    ENDIF
	  ENDIF
	ENDIF
	RETURN
	END