SUBROUTINE PLIST
	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
C$	WRITE(1,1)
C$1	FORMAT('IN PLIST')
C$	CALL STEST
	I1=PUNKT(6)	@ZETA
	CALL AUSKELLERN(6)
	I2=PUNKT(3)	@EPSILON ENTHAELT INKI
	CALL AUSKELLERN(3)
C$	WRITE(1,1)
	IF (I2.LE.31)	@STANDARD-PROCEDURE
	  WHILE(I1>0)
	    CALL AUSKELLERN(7)
	    I1=I1-1
	  ENDWHILE
	  RETURN
	ENDIF
	B=KITUM(I2,4).NE.I1
	IF (B) CALL FATAL(126)
	K=I1-1
	DO 111 L=0,K
	CALL EINKELLERN(KITUM(I2+I1-L,3),5)	@TAU
	CALL EINKELLERN(PUNKT(7),5)	@TAU
	CALL AUSKELLERN(7)
C$	CALL STEST
C$	WRITE(1,2)
C$2	FORMAT('VERGLEICH')
	CALL VERGLEICH
C$	WRITE(1,2)
111	CONTINUE
	RETURN
	END