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	COOOOOOOOOOO
UE