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

	COMMON RN,RN1,P,GN,GN1,A,IZ
	DIMENSION RN(7,10),GN(7),RN1(10),P(8),A(7)
	CALL IOPEN('IN','GESSTT.DA')
	GN1=0.
	GN(1)=0.
	READ(4,100)GN
	DO 10 J=2,7
10	GN1=GN1+FLOAT(J-1)*GN(J)
	IF(GN(1))20,20,30
30	GN1=GN1/GN(1)
	DO 40 J=2,7
40	GN(J)=GN(J)/GN(1)*100.
20	DO 50 J=1,7
50	P(J)=GN(J)
	P(8)=GN1
	J=0
	WRITE(1,500)
	WRITE(1,600)
	WRITE(1,200)J,P
	WRITE(1,300)
	WRITE(1,600)
	DO 60 I=1,2
	IZ=10*I
	CALL LESEN
	CALL RECHNEN
	CALL DRUCKEN
60 	CONTINUE
	WRITE(1,400)
	WRITE(1,600)
	DO 70 I=1,4
	IZ=10*I
	CALL LESEN
	CALL RECHNEN
	CALL DRUCKEN
70 	CONTINUE
	WRITE(1,700)
	WRITE(1,600)
	DO 80 I=1,7
	IZ=10*I
	CALL LESEN
	CALL RECHNEN
	CALL DRUCKEN
80 	CONTINUE
	CALL EXIT
100	FORMAT(7F4.0)
200	FORMAT(I3,F5.0,7F7.2)
300	FORMAT(/'FACH'//)
400	FORMAT(/'KLASSE'//)
500	FORMAT(/'GESAMT'//)
600	FORMAT('NR.',' ANZ.','  1(%) ','  2(%) ','  3(%) '
	1,'  4(%) ','  5(%) ','  6(%) ','   MW. ')
700	FORMAT(/'LEHRER'//)
	END