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

C       KURSWAHL - DEF. DATEIEN - EINLESEN KARTEN
        COMMON IFORM,IHALB,FILEB,FILED,FILEE,FILEF,FILEL,FILEM,FILEN
        COMMON LANF,IANF,I
        DIMENSION I(12,296),I1(6,296)
        ISPAC=-2016
C       EINLESEN: KLASSENSTUFE,HALBJAHR
        WRITE(1,200)ISPAC,
200     FORMAT(/'KLASSENSTUFE:',A2)
        READ(1,210)IFORM
210     FORMAT(A2)
        WRITE(1,220)ISPAC,
220     FORMAT(/'HALBJAHR:    ',A1)
        READ(1,230)IHALB
230     FORMAT(A1)
C       BERECHNEN DER DATEINAMEN
        FILEB=0
        FILED=0
        FILEE=0
        FILEF=0
        FILEL=0
        FILEM=0
        FILEN=0
S       TAD \IHALB
S       AND (7700
S       7102
S       TAD (200
S       DCA \FILEB
S       TAD \FILEB
S       TAD (200
S       DCA \FILED
S       TAD \FILED
S       TAD (100
S       DCA \FILEE
S       TAD \FILEE
S       TAD (100
S       DCA \FILEF
S       TAD \FILED
S       TAD (1000
S       DCA \FILEL
S       TAD \FILEL
S       TAD (100
S       DCA \FILEM
S       TAD \FILEM
S       TAD (100
S       DCA \FILEN
S       TAD \IFORM
S       DCA \FILEB#
S       TAD \IFORM
S       DCA \FILED#
S       TAD \IFORM
S       DCA \FILEE#
S       TAD \IFORM
S       DCA \FILEF#
S       TAD \IFORM
S       DCA \FILEL#
S       TAD \IFORM
S       DCA \FILEM#
S       TAD \IFORM
S       DCA \FILEN#
C       FELDER LOESCHEN
        DO 1 K1=1,296
        I(1,K1)=0
1       I1(1,K1)=0
C       KARTENEINLESEN
        N=1
5       READ (3,10)I(1,N),I1(2,N),I1(3,N),I1(4,N),I1(5,N),I1(6,N)
        1,I(2,N),I(3,N),I(4,N),I(5,N),I(6,N),I(7,N),I(8,N),I(9,N)
        2,I(10,N)
        IF (I(1,N))20,30,20
20      I1(1,N)=I(1,N)
        N=N+1
        GOTO 5
30      NUM=N-1
        WRITE (1,40)NUM
10      FORMAT (I3,2I1,I2,2I1,10I2)
40      FORMAT (/I3,' KARTEN EINGELESEN'/)
        CALL OOPEN  ('DTA1',FILEF)
        DO 100 K1=1,296
        DO 100 K2=1,6
100     WRITE (4,210)I1(K2,K1)
        CALL OCLOSE
        CALL CHAIN ('KUR2A')
        END

#