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

C       EINGABE DER KURSWAHLAUFLAGEN
        COMMON KAKBE,KSKBE,NONLK,KAUFG
        DIMENSION KAKBE(5),KSKBE(5,8),NONLK(15),KAUFG(3,15)
        ISPACE=-2016
        READ (1,401)IFORM
401     FORMAT ('KLASSENSTUFE:'A2)
        READ (1,402)IHALB
402     FORMAT ('HALBJAHR:     'A1)
        FILEB=0
S       TAD \IHALB
S       AND (7700
S       7102
S       TAD (200
S       DCA \FILEB
S       TAD \IFORM
S       DCA \FILEB#
C       LOESCHEN DER ARBEITSFELDER
        IZ=0
        IZ1=0
        DO 1 K1=1,5
        DO 1 K2=1,8
        KAKBE(K1)=0
1       KSKBE(K1,K2)=0
        DO 2 K1=1,3
        DO 2 K2=1,15
        NONLK(K2)=0
2       KAUFG(K1,K2)=0
        WRITE (1,400)
400     FORMAT (/'GEBEN SIE DIE WAHLAUFLAGEN AN!')
        WRITE (1,410)
410     FORMAT (/'ABSOLUT ZU BELEGENDE FAECHER!')
5       IZ=IZ+1
10      READ (1,730)KAKBE(IZ)
        IF (KAKBE(IZ)-1)50,11,5
11      IZ=IZ-1
        GOTO 10
50      IZ=0
        WRITE (1,440)
440     FORMAT (/'SUBSTITUIERBARE FACHGRUPPEN!')
60      IZ1=IZ1+1
        WRITE (1,450)IZ1
450     FORMAT (/'FACHGRUPPE: ',I1)
70      IZ=IZ+1
80      READ (1,730)KSKBE(IZ1,IZ)
460     FORMAT (I2)
        IF (KSKBE(IZ1,IZ)-1)100,81,70
81      IZ=IZ-1
        GOTO 80
100     WRITE (1,470)ISPACE,
470     FORMAT(/'WAR DIES DIE LETZTE FACHGRUPPE?',A1)
110     READ (1,570)IFRAGE
        IF (IFRAGE-672)60,120,60
120     WRITE (1,700)
700     FORMAT (/'EINTEILUNG DER FAECHER IN AUFGABENFELDER!'/)
        DO 720 IZ1=1,3
        IZ=0
        WRITE (1,710)IZ1
710     FORMAT (//I1'. AUFGABENFELD')
770     IZ=IZ+1
760     READ (1,730)KAUFG(IZ1,IZ)
730     FORMAT ('FACH:  ',I2)
        IF (KAUFG(IZ1,IZ)-1)720,750,770
750     IZ=IZ-1
        GOTO 760
720     CONTINUE
        WRITE (1,510)ISPACE,
510     FORMAT (/'WIEVIELE KURSE MUESSEN MINDESTENS BELEGT SEIN?',A1)
        READ (1,460)IKURA
        IZ=0
        WRITE (1,520)
520     FORMAT (/'WELCHE FAECHER SIND NICHT ALS LKS ZUGELASSEN?')
295     IZ=IZ+1
        GOTO 305
300     IZ=IZ-1
305     READ (1,730)NONLK(IZ)
        IF (NONLK(IZ)-1)320,300,295
C       SPEICHERN DER KURSWAHLAUFLAGEN
320     CALL OOPEN ('DTA1',FILEB)
        DO 195 IZ=1,5
195     WRITE (4,570)KAKBE(IZ)
        DO 200 IZ1=1,5
        DO 200 IZ=1,8
200     WRITE (4,570)KSKBE(IZ1,IZ)
        DO 210 IZ1=1,3
        DO 210 IZ=1,15
210     WRITE (4,570)KAUFG(IZ1,IZ)
        DO 220 IZ=1,15
220     WRITE (4,570)NONLK(IZ)
        WRITE (4,570)IKURA
570     FORMAT (A2)
        CALL OCLOSE
        END

#