Directory of image this file is from
This file as a plain text file
IF (IWEI2 - 1)460,460,450
450 IANF1=1
IWEI1=1
GOTO 99
460 IWEI1=3
K0=148
GOTO 150
135 WRITE (1,190)
190 FORMAT(2X,/)
GOTO 140
150 IF (K2+K3-24)151,151,130
151 ITEM=L1-K0
N1=I(2,ITEM)
N2=I(3,ITEM)
N3=I(4,ITEM)
N4=I(5,ITEM)
N5=I(6,ITEM)
N6=I(7,ITEM)
N7=I(8,ITEM)
N8=I(9,ITEM)
N9=I(10,ITEM)
N10=I(11,ITEM)
ITEST=-2016
IF (I(12,L1-K0))20,20,180
180 ITEST=-2006
20 DO 600 L3=149,296
IF (I(1,L1-K0)-I(1,L3))600,610,600
600 CONTINUE
CALL IOPEN ('DTA1',FILEM)
DO 620 L4=149,296
DO 620 L5=1,11
READ (4,420)I(L5,L4)
620 CONTINUE
GOTO 20
610 WRITE (1,30)ITEST,(I(K,L3),K=1,11),N(N1),N(N2),N(N3)
1,N(N4),N(N5),N(N6),N(N7),N(N8),N(N9),N(10),N(1),
30 FORMAT (A2,I3,2X,10A2,10(2X,A2),A2)
ITEST=I(12,L1-K0)
DO 300 IFEHL=1,9
IF (ITEST-2**(9-IFEHL))300,310,310
310 WRITE (1,320)IFEHL,
320 FORMAT(I1)
ITEST=ITEST-2**(9-IFEHL)
300 CONTINUE
WRITE (1,190)
140 CONTINUE
WRITE (1,160)
160 FORMAT (2X)
130 CONTINUE
WRITE (1,170)
170 FORMAT(//////'-------')
110 CONTINUE
IF (IWEI1-2)500,399,540
399 IWEI2=2
GOTO 400
540 IANF1=L1-K0
IWEI1=1
GOTO 99
500 DO 505 K1=1,148
ITEM=I(12,K1+148)
I(12,K1+148)=I(12,K1)
I(12,K1)=ITEM
DO 505 K2=1,11
I(K2,K1+148)=I(K2,K1)
505 CONTINUE
IF (IANF-148)510,510,520
510 CALL IOPEN ('DTA1',FILED)
DO 530 K1=1,148
DO 530 K2=1,11
READ (4,420)I(K2,K1)
530 CONTINUE
520 CALL CHAIN ('KUR3S')
END
C AUSDRUCK DER WAHLLISTEN
COMMON IFORM,IHALB,FILEB,FILED,FILEE,FILEF,FILEL,FILEM,FILEN
COMMON LANF,IANF,I,IZFE,IZFA,N
DIMENSION I(12,296),N(67)
WRITE (1,100)
100 FORMAT(//'-------')
ISEI=0
IWEI1=1
IWEI2=1
IANF1=IANF
IF (IANF - 148)50,50,60
50 IWEI1=2
GOTO 95
60 DO 90 K1=1,148
ITEM=I(I2,K1)
I(I2,K1)=I(I2,K1+148)
I(I2,K1+148)= ITEM
DO 90 K2=1,11
I(K2,K1)= I(K2,K1+148)
90 CONTINUE
IANF1=IANF-148
95 DO 96 K1=149,296
I(1,K1)=0
96 CONTINUE
IF (LANF - 148)10,10,99
10 CALL IOPEN ('DTA1',FILEN)
DO 12 K1=149,296
DO 12 K2=1,11
READ (4,420)I(K2,K1)
12 CONTINUE
99 K0=0
DO 110 K1=IANF1,149,25
ISEI=ISEI +1
MAX=148
IF (K1 - 124)112,114,114
112 MAX=K1+24
114 WRITE (1,120)IFORM,IHALB,ISEI
WRITE (1,121)I(1,K1),I(1,MAX)
120 FORMAT(////,'KLASSENSTUFE ',A2,' HALBJAHR ',A2,32X,'SEITE',I3)
121 FORMAT(/' SCHUELERNUMMER ',I3,' BIS ',I3////)
DO 130 K2=0,20,10
DO 140 K3=0,9
L1=K1+K2+K3
133 IF (L1 - 148)150,150,400
400 IF (IWEI - 2)135,410,150
410 CALL IOPEN ('DTA1',FILEE)
DO 430 K4=1,148
DO 430 K5=1,11
READ (4,420)I(K5,K4)
420 FORMAT(A2)
430 CONTINUE
DO 440 K4=1,148
ITEM=I(I2,K4+148)
I(I2,K4+148)=I(I2,K4)
I(I2,K4)=ITEM
440 COOOOOOOOOOOUE