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

C						SEITE 1
C	KUWA2D
C
C	KURSWAHL - STATISTIK - SPEICHERN DATEN
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),IFE(227)
C	STATISTIK
	NUM = 149-IANF+IZFA
	IZFA= 0
	DO 710 K1=IANF,148
	IF(I2(K1))720,710,720
720	IZFA=IZFA+1
710 	CONTINUE
	IANZAH=149-LANF
	FNUMP=100.*(FLOAT(NUM)/FLOAT(IANZAH))
	FEHLP=100.*(FLOAT(IZFE)/FLOAT(IANZAH))
	FALCOP=100.*(FLOAT(IZFA)/FLOAT(NUM))
	IAUSGE=IANZAH-IZFE-IZFA
	AUSGEP=100.*(FLOAT(IAUSGE)/FLOAT(IANZAH))
	WRITE (1,400)IFORM,IANZAH
400	FORMAT(/'SCHUELER IN KLASSE ',A2,' : ',5X,I3,/)
	WRITE (1,410)NUM,FNUMP
410 	FORMAT(/'EINGELESENE KARTEN:',10X,I3,' [',F6.2,'%]',/)
	WRITE (1,420)IZFE
420	FORMAT(/'FEHLENDE SCHUELER: ',10X,I3,/)
	WRITE (1,430)IZFA,FALCOP
430	FORMAT(/'FALSCH CODIERTE KARTEN: ',5X,I3,' [',F6.2,'%]',/)
	WRITE (1,440)IAUSGE,AUSGEP
440	FORMAT(/'FEHLERFREIE DATEN: ',10X,I3,' [',F6.2,'%]',/)
C	SPEICHERN DER KURSWAHLDATEN
	ISTC=148+ISTA
	IFE(1)=ISTA
	IFE(2)=ISTB
	IFE(3)=ISTD
	IFE(4)=ISTE
	IFE(5)=ISTF
	IFE(6)=ISTG
	IFE(7)=ISTL
	IFE(8)=ISTM
	IFE(9)=LANF
	IFE(10)=IANF
	IFE(11)=IZFE
	IFE(12)=IZFA
	DO 200 K1=1,148
200	IFE(12+K1)=I2(K1)
	DO 210 K3=1,67
210	IFE(160+K3)=N(K3)
	CALL WTAPE(1,-ISTC,227,IFE)
	READ (1,403)IFRAGE
403	FORMAT('SOLLEN DIE FEHLERHAFTEN KARTEN GESUCHT WERDEN ?'A2)
	IF(IFRAGE-672)260,250,260
250	CALL CHAIN ('KUWA2E')
260	CALL CHAIN ('KUWA2F')
	END