C						SEITE 1
C	KUWA3S
C
C	KURSWAHL - SAMMELHAUPTPROGRAMM
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)
	WRITE (1,400)
400	FORMAT(/'SAMMELHAUPTPROGRAMM')
	WRITE (1,410)N(1),
410	FORMAT(/'BENOETIGEN SIE NAEHERE INFORMATIONEN?',A1)
	READ (1,420)IFRAGE
420     FORMAT(A2)
	IF (IFRAGE - 672) 100,10,100
10	WRITE (1,430)
430	FORMAT(/'           1  BRINGT EINEN AUSDRUCK DER GESAMTEN')
	WRITE (1,440)
440	FORMAT('              KURSWAHLEN: NR,NAME,WAHL,FEHLERCODE!')
	WRITE (1,450)
450	FORMAT('           2  DRUCKT DIE KURSBELEGUNGEN FUER DIE')
	WRITE (1,460)
460	FORMAT('              EINZELNEN FAECHER AUS!')
	WRITE (1,470)
470	FORMAT('           3  IST EIN SPEZIELLES KARTENSUCHPROGRAMM,')
	WRITE (1,480)
480	FORMAT('              FUER DIE WAHLDATEN!')
	WRITE (1,490)
490	FORMAT('           4  WIE 3, FUER PERSOENLICHE DATEN!')
	WRITE (1,495)
495	FORMAT('           5  STARTET DIE VERARBEITUNG NEU!')
	WRITE (1,505)
505	FORMAT('           6  ZAEHLT DIE FAECHER AUS!')
	WRITE(1,515)
515	FORMAT('           7  BRINGT EINEN AUSDRUCK DER WAHLEN')
	WRITE(1,525)
525	FORMAT('              FUER DAS 3.SCHRIFTLICHE FACH !')
	WRITE (1,520)
520	FORMAT('           0  BEENDET DAS PROGRAMM!')
100	WRITE (1,500)N(1),
500	FORMAT(/'WAEHLEN SIE:',A1)
	READ (1,425)IWAHL
425	FORMAT(I1)
	IF (IWAHL - 8)110,100,100
110	IWAHL=IWAHL+1
	GOTO(120,121,122,123,124,125,126,127),IWAHL
120	STOP
121	CALL CHAIN ('KUWA3A')
122	CALL CHAIN ('KUWA3B')
123	CALL CHAIN ('KUWA3D')
124	CALL CHAIN ('KUWA3E')
125 	CALL CHAIN ('KUWA2')
126	CALL CHAIN ('KUWA2F')
127	CALL CHAIN ('KUWA3C')
	END