C       KURSWAHL - WAHLAUFLAGEN UEBERPRUEFEN
        COMMON IFORM,IHALB,FILEB,FILED,FILEE,FILEF,FILEL,FILEM,FILEN
        COMMON LANF,IANF,I,IZFE,IZFA,N
        DIMENSION I(12,296),N(67),KAKBE(5),KSKBE(5,8),NONLK(15)
        DIMENSION KAUFG(3,15)
C       EINLESEN WAHLAUFLAGEN
        CALL IOPEN ('DTA1',FILEB)
        DO 10 IZ=1,5
10      READ (4,400)KAKBE(IZ)
        DO 20 IZ1=1,5
        DO 20 IZ=1,8
20      READ (4,400)KSKBE(IZ1,IZ)
        DO 30 IZ1=1,3
        DO 30 IZ=1,15
30      READ (4,400)KAUFG(IZ1,IZ)
        DO 40 IZ=1,15
40      READ (4,400)NONLK(IZ)
        READ (4,400)IKURA
400     FORMAT (A2)
        DO 800 K1=IANF,296
C       IKURA UEBERPRUEFUNG
        IZ=0
        DO 100 K2=2,11
        IF (I(K2,K1))100,100,110
110     IZ=IZ+1
100     CONTINUE
        IF (IKURA-IZ)130,130,120
120     I(12,K1)=I(12,K1)+8
C       NONLK UEBERPRUEFUNG
130     DO 140 K3=1,15
        IF (NONLK(K3))160,160,145
145     DO 140 K2=2,3
        IF (NONLK(K3)-I(K2,K1))140,150,140
150     I(12,K1)=I(12,K1)+16
        GOTO 160
140     CONTINUE
C       DOPPELTES ABITURFACH
160     DO 200 K3=2,4
        K5=K3+1
        DO 200 K2=K5,5
        IF (I(K3,K1)-I(K2,K1))200,220,200
220     I(12,K1)=I(12,K1)+32
        GOTO 305
200     CONTINUE
C       ABDECKUNG DER AUFGABENFELDER
305     IF (IFORM+911)306,440,306
306     DO 320 K3=1,3
        IF (KAUFG(K3,1))320,320,307
307     DO 300 K5=1,15
        IF (KAUFG(K3,K5))321,321,302
302     DO 300 K2=2,5
        IF (I(K2,K1)-KAUFG(K3,K5))300,320,300
300     CONTINUE
321     I(12,K1)=I(12,K1)+64
        GOTO 440
320     CONTINUE
C       ABSOLUTE FACHBELEGUNG
440     DO 420 K3=1,5
        IF (KAKBE(K3))500,500,405
405     DO 410 K2=2,11
        IF (I(K2,K1)-KAKBE(K3))410,420,410
410     CONTINUE
        I(12,K1)=I(12,K1)+128
        GOTO 500
420     CONTINUE
C       SUBSTITUIERBARE FACHGRUPPEN
500  
C       KURSWAHLA - AUSDRUCK DER ERGEBNISSE
        COMMON IFORM,IHALB,FILEB,FILED,FILEE,FILEF,FILEL,FILEM,FILEN
        COMMON LANF,IANF,I,IZFE,IZFA,N
        DIMENSION I(12,296),N(67)
C       SETZEN ANFANGSWERTE
        K11=0
        KK=6
        KDRUCK=5
        KW=2
        IZZAEH=0
        WRITE (1,401)
401     FORMAT (///'LK-BELEGUNGEN'/)
        DO 100 K3=11,67