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)
	ISY=0
	IRZEIG(1)=-1
	LZEIG(1)=-1
	MAX=0
	NERR=0
	LLENG=72
	ISMAX=600
	MAXE=99
	MINE=-99
	KMAX=4
	NMAX=2046
C  EINLESEN DER SCHLUESSELWOERTER
	IAL=10
	CALL IOPEN('SYS','WORD')
	DO 5 I=1,29
	READ(4,6)(IWORD(I,J),J=1,10)
6	FORMAT(10A1)
C  LAENGE DER SCHLUESSELWOERTER BESTIMMEN
	IL=IAL
45	IF(IWORD(I,IL)+2016)47,46,47
46	IL=IL-1
	GOTO 45
47	LEN(I)=IL
5	CONTINUE
	READ(4,11)(IPOINT(I,1),I=1,26)
	READ(4,11)(IPOINT(I,2),I=1,26)
11	FORMAT(26I2)
	DO 20 I=1,31
	READ(4,21)(ID(J),J=1,10)
21	FORMAT(10A1)
	CALL NAMLI
20	CONTINUE
	WRITE(1,115)
115	FORMAT('PASCAL-S PARSER VERSION VOM 20.12.80')
	READ(1,110)DIN
110	FORMAT('INPUT DEVICE:'A6)
	READ(1,111)FIN
111	FORMAT('INPUT FILENAME:'A6)
	CALL IOPEN(DIN,FIN)
	CALL OOPEN('SYS','PSFT')
	LC=0
	LINE(80)=-2016
	ICC=80
	LL=80
	ICH=-2016
120	IVSYM=ISYM
	ISX=1
	CALL GETSYM
	IF(ISYM-1)123,122,123
122	WRITE(4,211)ISYM
	CALL NAMLI
123	IF(ISX)212,200,212
212	WRITE(4,211)ISYM
200	CONTINUE
211	FORMAT(I4,' ')
	IF(ISYM-21)120,130,120
130	IF(IVSYM-60)120,135,120
135	CALL OCLOSE
	IF (NERR)  1000,1000,1200
1000	WRITE(1,1)
1	FORMAT('PHASE 0 OHNE FEHLER')
	CALL CHAIN('PHASE1')
1200	CALL CHAIN('ERRORM')
	END