SUBROUTINE PARAMETERLISTE
	COMMON NERR,IERRS,LC,CC,DIN,FIN
	COMMON SYM,ID,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,ID,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
	IF (SYM.NE.11)	@"("
	  KITUM(KZEIGER-1,3)=1
	  RETURN
	ENDIF
	CALL GETSYM
1	IF (SYM.EQ.78) CALL GETSYM	@"VAR"
	IF (SYM.NE.1) CALL FATAL(2)	@IDENT
	INKI=KZEIGER
	WHILE (SYM.EQ.1)	@IDENT
	  KITUM(KZEIGER,1)=IDENT
	  KITUM(KZEIGER,2)=5
	  KZEIGER=KZEIGER+1
	  IF (KZEIGER.GE.200) CALL FATAL(520)	@KMAX
	  IF (SYM.EQ.7)	@","
	    CALL GETSYM
	    IF (SYM.NE.1) CALL FATAL(2)
	  ENDIF
	ENDWHILE
	IF (SYM.NE.24) CALL FATAL(5)	@":"
	CALL GETSYM
	IF (SYM.NE.1) CALL FATAL(2)
	INKI1=INKITUM(IDENT)
	IF (INKI1.EQ.0) CALL FATAL(104)
	IF (KITUM(INKI1,2).NE.3) CALL FATAL(103)
	KZEIGER=KZEIGER-1
	DO 555 K=INKI,KZEIGER
	KITUM(K,3)=KITUM(INKI1,3)
555	KITUM(K,4)=KITUM(INKI1,4)
	KZEIGER=KZEIGER+1
	IF (SYM.EQ.23) 
	  CALL GETSYM
	  GOTO 1
	ENDIF
	IF (SYM.NE.10) CALL FATAL(4)
C  EINTRAG IN PTAB
	PZEIGER=PZ(0)
	PTAB(PZEIGER)=KZEIGER-INKI0
	PZEIGER=PZEIGER+1
	IF (PZEIGER+KZEIGER-INKI0.GE.200) CALL FATAL(526)	@PMAX
	KZEIGER=KZEIGER-1
	DO 666 K=INKI0,KZEIGER
	PTAB(PZEIGER)=KITUM(K,3)
666	PZEIGER=PZEIGER+1
	INKI0=INKI0-1
	KITUM(INKI0,3)=P0
	P0=P0+1
	IF (P0.GE.50) CALL FATAL(526)	@PZMAX
	PZ(P0)=PZEIGER
	RETURN
	END