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

C						SEITE 1
C	KUWA0B
C
C	EINGABE DER KURSWAHLAUFLAGEN
C
	COMMON IFORM,IHALB,ISTA,ISTB,ISTD,ISTE,ISTF,ISTG,ISTL,ISTM
	DIMENSION KAKBE(5),KSKBE(5,8),NONLK(15),KAUFG(3,15),KAUFL(106)
	ISPACE= -2016
C	LOESCHEN DER ARBEITSFELDER
	IZ = 0
	IZ1 = 0
	DO 1 K1=1,5
	KAKBE(K1) = 0
	DO 1 K2=1,8
1	KSKBE(K1,K2) = 0
	DO 2 K1=1,3
	DO 2 K2=1,15
	NONLK(K2) = 0
2	KAUFG(K1,K2) = 0
	WRITE (1,400)
400	FORMAT(/'GEBEN SIE DIE WAHLAUFLAGEN AN !')
	WRITE (1,410)
410	FORMAT(/'ABSOLUT ZU BELEGENDE FAECHER !')
5	IZ=IZ+1
10	READ (1,730)KAKBE(IZ)
	IF (KAKBE(IZ)-1)50,11,5
11	IZ=IZ-1
	GOTO 10
50	IZ=0
	WRITE (1,440)
440	FORMAT(/'SUBSTITUIERBARE FACHGRUPPEN !')
60	IZ1=IZ1+1
	WRITE(1,450)IZ1
450	FORMAT(/'FACHGRUPPE: ',I1)
70	IZ=IZ+1
80	READ (1,730)KSKBE(IZ1,IZ)
460	FORMAT(I2)
	IF(KSKBE(IZ1,IZ)-1)100,81,70
81	IZ=IZ-1
	GOTO 80
100	WRITE (1,470)ISPACE,
470	FORMAT(/'WAR DIES DIE LETZTE FACHGRUPPE ?',A1)
570	FORMAT(A2)
110	READ (1,570)IFRAGE
	IF (IFRAGE-672)60,120,60
120	WRITE (1,700)
700	FORMAT(/'EINTEILUNG DER FAECHER IN AUFGABENFELDER !'/)
C
C						SEITE 2
C
	DO 720 IZ1=1,3
	IZ=0
	WRITE (1,710)IZ1
710	FORMAT(//I1,'. AUFGABENFELD')
770	IZ=IZ+1
760	READ (1,730)KAUFG(IZ1,IZ)
730	FORMAT('FACH:  ',I2)
	IF (KAUFG(IZ1,IZ)-1)720,750,770
750	IZ=IZ-1
	GOTO 760
720	CONTINUE
	WRITE (1,510)ISPACE,
510	FORMAT(/'WIEVIELE KURSE MUESSEN MINDESTENS BELEGT SEIN ?',A1)
	READ (1,460)IKURA
	IZ=0
	WRITE (1,520)
520	FORMAT(/'WELCHE FAECHER SIND NICHT ALS LKS ZUGELASSEN ?')
295	IZ=IZ+1
	GOTO 305
300	IZ=IZ-1
305	READ (1,730)NONLK(IZ)
	IF (NONLK(IZ)-1)320,300,295
C	SPEICHERN DER KURSWAHLAUFLAGEN
320	ISTB=15+ISTA
	DO 195 IZ=1,5
195	KAUFL(IZ)=KAKBE(IZ)
	IH=5
	DO 200 IZ1=1,5
	DO 200 IZ=1,8
	IH=IH+1
200	KAUFL(IH)=KSKBE(IZ1,IZ)
	DO 210 IZ1=1,3
	DO 210 IZ=1,15
	IH=IH+1
210	KAUFL(IH)=KAUFG(IZ1,IZ)
	DO 220 IZ=1,15
	IH=IH+1
220	KAUFL(IH)=NONLK(IZ)
	KAUFL(106)=IKURA
	CALL WTAPE(1,-ISTB,106,KAUFL)
	END