SUBROUTINE NAMLI
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)
	MAX=MAX+1
	INDEX=1
	DO 1500 I1=1,10
1500	NAME(MAX,I1)=ID(I1)
	ISYM=1
1510	IF(INDEX+1)1520,1600,1520
1520	DO 1530 I1=1,10
	IF(NAME(INDEX,I1)-ID(I1))1560,1530,1540
1530	CONTINUE
	GOTO 1600
1540	IF(LZEIG(INDEX)+1)1543,1545,1543
1543	INDEX=LZEIG(INDEX)
	GOTO 1590
1545	LZEIG(INDEX)=MAX
	ISYM=MAX
	INDEX=-1
	GOTO 1590
1560	IF(IRZEIG(INDEX)+1)1563,1565,1563
1563	INDEX=IRZEIG(INDEX)
	GOTO 1590
1565	IRZEIG(INDEX)=MAX
	ISYM=MAX
	INDEX=-1
1590	LZEIG(MAX)=-1
	IRZEIG(MAX)=-1
	GOTO 1510
1600	IF(INDEX+1)1605,1620,1605
1605	IF(MAX-1)1606,1620,1606
1606	ISYM=INDEX
	MAX=MAX-1
1620	CONTINUE
	RETURN
	END