Directory of image this file is from
This file as a plain text file

	DIMENSION IWORD(29,10),IPOINT(26,2),ID(10),LEN(29)
	IAL=10
	CALL IOPEN('DTA0','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
C
	K=I+50
	WRITE(1,7)K,(IWORD(I,J),J=1,IL)
7	FORMAT(I4,'   ',10A1)
C
5	CONTINUE
	READ(4,11)(IPOINT(I,1),I=1,26)
	READ(4,11)(IPOINT(I,2),I=1,26)
11	FORMAT(26I2)
C
	DO 20 I=1,26
	K=I*64+32
	WRITE(1,15)K,IPOINT(I,1),IPOINT(I,2)
15	FORMAT(A1,2I6)
20	CONTINUE
30	READ(1,35)(ID(I),I=1,10)
35	FORMAT('BEZEICHNER EINGEBEN'10A1)
C
	IL=IAL
31	IF(ID(IL)+2016)33,32,33
32	IL=IL-1
	GOTO 31
33	J=(ID(1)-32)/64
	M=IPOINT(J,1)
	N=IPOINT(J,2)
	DO 60 I=M,N
	IF(IL-LEN(I))60,98,60
98	DO 70 I1=2,IL
	IF(ID(I1)-IWORD(I,I1))60,70,60
70	CONTINUE
	ISYM=50+I
C
	WRITE(1,75)ISYM
75	FORMAT('SCHLUESSELWORT MIT DEM INDEX',I5)
C
	GOTO 100
60	CONTINUE
C
91	WRITE(1,92)(ID(I),I=1,10)
92	FORMAT('IDENTIFIER ',10A1,'  IST KEIN SCHLUESSELWORT')
100	IF(ID(1)-1696)30,99,30
99	STOP
	END