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

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)
	ISAVE=IZFA
	IZFA=-2016
	ISEI=0
	IWEIC=1
	K0=0
	IZAEH=25
	IF (IANF-149)30,30,20
20	DO 25 K1=1,148
	DO 25 K2=1,11
25	I(K2,K1)=I(K2,K1+148)
	K0=148
30	DO 35 K1=149,296
35	I(1,K1)=0
	IF (LANF-148)40,40,60
40	CALL IOPEN ('DTA1',FILEN)
	DO 45 K1=149,296
	DO 45 K2=1,11
45	READ (4,50)I(K2,K1)
50	FORMAT (A2)
60	DO 100 K3=IANF,296
	IF (K3-149)110,105,110
105	CALL IOPEN ('DTA1',FILEE)
	DO 106 K1=1,148
	DO 106 K2=1,11
106	READ (4,50)I(K2,K1)
	K0=148
110	INDEX=K3-K0
	IF (IZAEH-25)140,120,120
120	IZAEH=0
	WRITE (3,121)
121	FORMAT (1H1)
	MAX=148
	IF (INDEX-124)125,130,130
125	MAX=INDEX+24
130	ISEI=ISEI+1
	WRITE (3,131)IFORM,IHALB,ISEI,I(1,INDEX),I(1,MAX)
131	FORMAT (1H0,//' KLASSENSTUFE 'A2'  HALBJAHR 'A1,32X'SEITE'I3
	1,//' SCHUELERNUMMER 'I3'  BIS 'I3///)
140	IF (IABS(IZAEH-15)-5)150,145,150
145	WRITE (3,146)
146	FORMAT (1H )
150	N1=I(2,INDEX)
	N2=I(3,INDEX)
	N3=I(4,INDEX)
	N4=I(5,INDEX)
	N5=I(6,INDEX)
	N6=I(7,INDEX)
	N7=I(8,INDEX)
	N8=I(9,INDEX)
	N9=I(10,INDEX)
	N10=I(11,INDEX)
	ITEST=-2016
	IF (I(12,K3))155,160,155
155	ITEST=-1376
160	DO 161 K4=149,296
	IF (I(1,INDEX)-I(1,K4))161,170,161
161	CONTINUE
	IF (IWEIC-2)165,165,163
163	PAUSE
165	CALL IOPEN ('DTA1',FILEM)
	DO 166 K1=149,296
	DO 166 K2=1,11
166	READ (4,50)I(K2,K1)
	IWEIC=2
	GOTO 160
170	WRITE (3,171)ITEST,(I(K2,K4),K2=1,11),N(N1),N(N2),N(N3)
	1,N(N4),N(N5),N(N6),N(N7),N(N8),N(N9),N(N10),N(1),
171	FORMAT (1H ,A1,I3,1X,10A2,10(1X,A2,1X),A1)
	ITEM=I(12,K3)
	DO 185 IFEHL=1,9
	IF (ITEM-2**(9-IFEHL))185,180,185
180	WRITE (3,181)IFEHL,
181	FORMAT (I1)
	ITEM=ITEM-2**(9-IFEHL)
185	CONTINUE
	WRITE (3,186)
186	FORMAT (/)
	IZAEH=IZAEH+1
100	CONTINUE
	WRITE (3,121)
	DO 200 K1=1,148
	DO 200 K2=1,11
	I(K2,K1+148)=I(K2,K1)
200	I(K2,K1)=0
	IF (IANF-148)210,210,220
210	CALL IOPEN ('DTA1',FILED)
	DO 215 K1=1,148
	DO 215 K2=1,11
215	READ (4,50)I(K2,K1)
220	IZFA=ISAVE
	CALL CHAIN ('KUR3S')
	END