C						SEITE 1
C	KUWA2F
C
C       KURSWAHL - AUSDRUCK DER ERGEBNISSE
C
        COMMON IFORM,IHALB,ISTA,ISTB,ISTD,ISTE,ISTF,ISTG,ISTL,ISTM
        COMMON LANF,IANF,I,I2,IZFE,IZFA,N
        DIMENSION I(11,148),I2(148),N(67)
C       SETZEN ANFANGSWERTE
        K11=0
        KK=4
        KDRUCK=5
        KW=2
        IZZAEH=0
        WRITE (1,401)
401     FORMAT (///'LK-BELEGUNGEN'/)
        DO 100 K3=11,67
        IF (N(K3)+2016)111,100,111
111     M=0
        DO 110 K1=IANF,148
        DO 110 K2=2,3
        IF (I(K2,K1)-K3)110,120,110
120     M=M+1
110     CONTINUE
        IF (M)100,100,130
130     WRITE (1,460)N(K3),M,
S       JMS DRUCK
100     CONTINUE
        IZZAEH=0
460     FORMAT (2X,A2,'='I3)
        IF (IFORM+911)10,30,10
10      WRITE (1,410)
410     FORMAT (///'3.ABITURFACH'/)
        DO 300 K3=11,67
        IF (N(K3)+2016)311,300,311
311     M=0
        DO 310 K1=IANF,148
        IF (I(4,K1)-K3)310,320,310
320     M=M+1
310     CONTINUE
        IF (M)300,300,330
330     WRITE (1,460)N(K3),M,
S       JMS DRUCK
300     CONTINUE
        IZZAEH=0
        WRITE (1,430)
430     FORMAT (///'4.ABITURFACH'/)
        DO 600 K3=11,67
        IF (N(K3)+2016)611,600,611
C
C						SEITE 2
C
611     M=0
        DO 610 K1=IANF,148
        IF (I(5,K1)-K3)610,620,610
620     M=M+1
610     CONTINUE
        IF (M)600,600,630
630     WRITE (1,460)N(K3),M,
S       JMS DRUCK
600     CONTINUE
        IZZAEH=0
30      WRITE (1,420)
420     FORMAT (///'GK-BELEGUNGEN'/)
        DO 700 K3=11,67
        IF (N(K3)+2016)711,700,711
711     M=0
        DO 710 K1=IANF,148
        DO 710 K2=KK,11
        IF (I(K2,K1)-K3)710,720,710
720     M=M+1
710     CONTINUE
        IF (M)700,700,730
730     WRITE (1,460)N(K3),M,
S       JMS DRUCK
700     CONTINUE
        IZZAEH=0
        WRITE (1,435)
435     FORMAT (///'LK-KOMBINATIONEN'/)
        KDRUCK=4
	KWE=3
135     DO 210 K3=11,67
        IF (N(K3)+2016)125,210,125
125     DO 210 K4=11,K3
        IF (N(K4)+2016)126,210,126
126     IF (K3-K4)136,210,136
136     LK=0
        DO 220 K1=IANF,148
	KWE1=KWE-1
	DO 220 KV1=KW,KWE1
	KW1=KV1+1
	DO 220 KV2=KW1,KWE
        K5=I(KV1,K1)
        K6=I(KV2,K1)
        IF (K5-K6)150,160,160
150     K2=K5
        K5=K6
        K6=K2
C
C						SEITE 3
C
160     IF (K5-K3)220,170,220
170     IF (K6-K4)220,190,220
190     LK=LK+1
220     CONTINUE
        IF (LK)210,210,205
205     WRITE (1,440)N(K3),N(K4),LK,
440     FORMAT (2X,A2,'-',A2,'=',I3)
S       JMS DRUCK
210     CONTINUE
        IF (K11-1)240,500,500
240     IF (IFORM+911)250,500,250
250     KW=4
	KWE=11
        K11=1
        IZZAEH=0
        WRITE (1,450)
450     FORMAT (///'GK-KOMBINATIONEN'/)
        GOTO 135
SDRUCK, 0
        IF (IZZAEH-KDRUCK)810,810,820
820     WRITE (1,470)
470     FORMAT (/)
        IZZAEH=-1
810     IZZAEH=IZZAEH+1
S       JMP I DRUCK
500     CALL CHAIN ('KUWA3S')
        END