C						SEITE 1
C	KUWA0
C
C	KURSWAHL - UEBERTRAGEN DER BASISDATEIEN
C	VON EINEM HALBJAHR ZUM NAECHSTEN
C
        COMMON IFORM,IHALB,ISTA,ISTB,ISTD,ISTE,ISTF,ISTG,ISTL,ISTM
        DIMENSION L(149),I3(4,148),I1(6,148),IEXT(6,148)
        ISPAC=-2016
C	EINLESEN DER NEUEN DATEN
130     FORMAT(A1)
170	WRITE(1,140)ISPAC,
140	FORMAT(/'NEUE KLASSENSTUFE:',A1)
	READ (1,275)IFORM
	WRITE (1,150)ISPAC,
150	FORMAT('NEUES HALBJAHR:   ',A1)
	READ (1,130)IHALB
C	BERECHNUNG DER ALTEN UND NEUEN DATEIADRESSEN
	IF(IFORM+910) 100,110,120
120	ISTA=4
	GOTO 160
110	ISTA=2
	GOTO 160
100	ISTA=0
160	IF(IHALB+928) 170,180,190
190	ISTA=ISTA+1
180	ISTA=200*(ISTA-1)
	ISTL=26+ISTA
	ISTM=38+ISTA
	IF(ISTA+200)210,210,200
210	ISTL=ISTL+200
	ISTM=ISTM+200
	ISTA=ISTA+200
	STOP
275	FORMAT(A2)
C	UEBERTRAGEN DER GRUNDDATEIEN
200	ISTF=ISTA+61
	DO 900 I0=1,148
900	I1(1,I0)=0
	CALL RTAPE(1,-ISTF,888,I1)
	ISTF=ISTF+200
	CALL RTAPE(1,-ISTF,888,IEXT)
	DO 700 K=1,8
	DO 700 K0=1,6
	K1=149-K
	IEXT(K0,K)=IEXT(K0,K1)
700	IEXT(K0,K1)=0
	IEX=0
	DO 950 I0=1,148
	IF(I1(1,I0))920,920,910
910	I1(4,I0)=13
	I1(5,I0)=1
	GOTO 950
920	IF(IEX-7)930,930,950
930	IEX=IEX+1
	DO 960 I7=1,6
960	I1(I7,I0)=IEXT(I7,IEX)
950	CONTINUE
	CALL RTAPE(1,-ISTL,149,L)
	CALL WTAPE(1,-ISTF,888,I1)
	END