INTEGER D1(80,5),D2(80,2),D3(80,5),D4(80,5),D5(80,2),D6(80,5)
INTEGER TITEL(20),PARBUF(16,21),X,Y
INTEGER IDENT,SPACE,UNIT,P1,P2,P3,P5
INTEGER ONE,ALL,CR,PR
LOGICAL ALLFLA,NONFLA,ALGFLA
DATA SPACE/4H /
DATA ONE,ALL/4H ONE,4H ALL/
CR = 5
PR = 6
NONFLA = .FALSE.
ALLFLA = .FALSE.
ALGFLA = .FALSE.
READ(CR,100) D1
READ(CR,101) D2
READ(CR,100) D3
READ(CR,100) D4
READ(CR,101) D5
READ(CR,100) D6
IDENT = SPACE
WRITE(PR,109)
READ(CR,105) TITEL
READ(CR,104)IE,IDENT,UNIT,LIST
IF(ID