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

C						SEITE 1
C	KUWA3A
C
C	AUSDRUCK DER WAHLLISTEN
C
	COMMON IFORM,IHALB,ISTA,ISTB,ISTD,ISTE,ISTF,ISTG,ISTL,ISTM
	COMMON LANF,IANF,I,I2,IZFE,IZFA,N
	DIMENSION I(11,148),I2(148),N(67),IH(11),NKU(10)
	CALL RTAPE(1,ISTG,1628,I)
	WRITE (1,100)
100	FORMAT(//80('-'))
	ISEI=0
	DO 110 K1=IANF,149,20
	ISEI=ISEI +1
	MAX=148
	IF (K1 - 129) 112,114,114
112	MAX=K1+19
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,19,10
	DO 140 K3=0,9
	L1=K1+K2+K3
	IF(L1-148) 150,150,110
190	FORMAT(2X)
150	IF (K2+K3-19)151,151,130
151	ITEM=L1
	NR=I(1,ITEM)
	N1=I(2,ITEM)/10
	N2=I(3,ITEM)/10
	N3=I(4,ITEM)/10
	N4=I(5,ITEM)/10
	N5=I(6,ITEM)/10
	N6=I(7,ITEM)/10
	N7=I(8,ITEM)/10
	N8=I(9,ITEM)/10
	N9=I(10,ITEM)/10
	N10=I(11,ITEM)/10
	NKU(1)=I(2,ITEM)-10*N1
	NKU(2)=I(3,ITEM)-10*N2
	NKU(3)=I(4,ITEM)-10*N3
	NKU(4)=I(5,ITEM)-10*N4
	NKU(5)=I(6,ITEM)-10*N5
	NKU(6)=I(7,ITEM)-10*N6
	NKU(7)=I(8,ITEM)-10*N7
	NKU(8)=I(9,ITEM)-10*N8
	NKU(9)=I(10,ITEM)-10*N9
	NKU(10)=I(11,ITEM)-10*N10
C
C						SEITE 2
C
	DO 605 J=1,10
	IF(NKU(J)) 615,615,625
625	NKU(J)=NKU(J)-2000
	GOTO 605
615	NKU(J)=-2016
605	CONTINUE
	ITEST=-2016
	IF (I2(L1))20,20,180
180	ITEST=-2006
20	CALL RTAPE(1,ISTM,1628,I)
	DO  620 L4=1,148
	IF(I(1,L4)-NR) 620,630,620
420	FORMAT(A2)
630	LZ=L4
	GOTO 610
620	CONTINUE
610	WRITE (1,30)ITEST,(I(L5,LZ),L5=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),
30	FORMAT (/A2,I3,2X,10A2,10(2X,A2),A2)
	ITEST=I2(L1)
	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)
	WRITE (1,500)(NKU(J),J=1,10)
500	FORMAT(27X,10(2X,A2)/)
	CALL RTAPE(1,-ISTG,1628,I)
140	CONTINUE
	WRITE (1,160)
160	FORMAT (2X)
130 	CONTINUE
	WRITE (1,170)
170	FORMAT(80('-'))
110	CONTINUE
510	CALL RTAPE(1,-ISTD,1628,I)
520	CALL CHAIN ('KUWA3S')
	END