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

C						SEITE 1
C	DATF3
C
	SUBROUTINE DATF3(IFRAGE,I3)
	COMMON IFORM,IHALB,ISTA,ISTB,ISTD,ISTE,ISTF,ISTG,ISTL,ISTM
	COMMON LANF,IANF,I,I2,IZFE,IZFA,N
	DIMENSION I(11,148),I3(4,148),I2(148)
	ISPAC=-2016
	IF(IFRAGE-672)810,75,810
C	EINGABE DER FACHNUMMERN
810	DO 100 K1=1,148
	WRITE(1,40)ISPAC,
40	FORMAT(/'SCH.NR:      ',A1)
	READ(1,50)ISNR
50	FORMAT(I3)
	IF(ISNR) 55,75,55
55	I3(1,K1)=ISNR
	I2(K1)=1
	WRITE(1,60)ISPAC,
60	FORMAT('F1:',A1)
100	READ(1,70)(I3(K2,K1),K2=2,4)
70	FORMAT(I1,' F2: ',I1,' F3: ',I2)
75	WRITE(1,505)ISPAC,
505	FORMAT(/'IST DIE EINGABE RICHTIG ?',A1)
	READ(1,20)IFRA
	IF(IFRA-672) 95,85,95
95	WRITE(1,10)
10	FORMAT(//'K O R R E K T U R C O D E :'/'FACH 1:  1',5X,'FACH',
	1' 2:  2',5X,'FACH 3:  3'/'LOESCHEN EINES DATENSATZES:  99')
130	WRITE(1,40)ISPAC,
	READ(1,50)IFAL
	IF(IFAL) 90,85,90
90	DO 105 K7=1,148
	IF(IFAL-I3(1,K7)) 105,510,105
510	READ(1,80)ICODE
80	FORMAT('CODE:         'I2)
	IF(ICODE) 510,510,120
120	IF(ICODE-3)110,110,520
520	IF(ICODE-99) 510,530,510
530	I3(1,K7)=0
	I2(K7)=0
	WRITE(1,540)IFAL
540	FORMAT('DATEN VON SCHUELER ',I3,' GELOESCHT')
	GOTO 130
110	K2=ICODE+1
	I2(K7)=1
	WRITE(1,550)ICODE,I3(K2,K7)
550	FORMAT('FACH ',I1,' (ALT): ',I3)
	WRITE(1,30)ICODE,
30	FORMAT('FACH ',I1)
	READ(1,35)I3(K2,K7)
35	FORMAT(' (NEU): 'I3)
	GOTO 130
105	CONTINUE
	GOTO 130
85	RETURN
20	FORMAT(A2)
	END