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

C						SEITE 1
C	KUKOR
C
C       KURSWAHL -  KORREKTURUNTERPROGRAMM
C
	SUBROUTINE KUKOR(I1)
        COMMON IFORM,IHALB,ISTA,ISTB,ISTD,ISTE,ISTF,ISTG,ISTL,ISTM
        COMMON LANF,IANF,I,I2
        DIMENSION I(11,148),I1(6,148),I2(148)
        ISPAC=-2016
210	FORMAT(A2)
8	WRITE (1,300)
300	FORMAT(/'KORREKTUREN FOLGENDERMASSEN EINGEBEN:',/'1.SCHUELER
	1NUMMER'/'2.CODE FUER DIE KORREKTURSTELLE')
31	WRITE (1,310)
310	FORMAT(/'K O R R E K T U R C O D E S :',/'ZUBRINGERSCHULE:'
	1,3X,'11',/'EINTRITT IN 11:',4X,'12',/'JAHRGANGSSTUFE:',4X,'13',
	2/'HALBJAHR:',10X,'14',/'ABITURFACHWECHSEL: 15',/'LK1:16',3X,
	3'LK2:17',3X,'3.A:18',3X,'4.A:19',3X)
	WRITE (1,320)
320	FORMAT('GK1:20',3X,'GK2:21',3X,'GK3:22',3X,'GK4:23',3X,'GK5:
	124',3X,'GK6:25')
	WRITE(1,330)
330	FORMAT('DATENSATZ LOESCHEN:99')
40	WRITE (1,405)ISPAC,
405	FORMAT(/'SNR:',6X,A1)
 	READ (1,506)ISNR
	IF (ISNR) 41,2,41
41	IZAEHL=1
	ISNR0=0
	ISNR1=0
	DO 220 K1=1,148
	IF (I1(1,K1)-ISNR) 225,230,225
230	ISNR1=K1
	IZAEHL=IZAEHL+1
	GOTO(225,225,240),IZAEHL
225	IF(I(1,K1)-ISNR) 220,215,220
215	ISNR0=K1
	IZAEHL=IZAEHL+1
	GOTO(220,220,240),IZAEHL
220	CONTINUE
	IF(ISNR0+ISNR1) 240,40,240
240	WRITE(1,406)ISPAC,
406	FORMAT('CODE:',5X,A1)
	READ (1,504)IFECO
	IF(IFECO-99) 46,45,240
45	IF(ISNR0) 48,49,48
49	I1(1,ISNR1)=0
	GOTO 50
C
C						SEITE 2
C
48	IF(ISNR1) 47,51,47
51	I(1,ISNR0)=0
	GOTO 50
47	I(1,ISNR0)=0
	I1(1,ISNR1)=0
50	WRITE(1,400)ISNR
400	FORMAT('DATEN VON SCHUELER ',I3, ' GELOESCHT')
	GOTO 40
46	IF(IFECO-25) 600,600,240
600	IF(IFECO-10)240,240,610
610	IFECO=IFECO-10
	IF (IFECO-6) 85,110,110
85	IF(ISNR1)80,40,80
80	GOTO(101,102,103,104,105),IFECO
101	WRITE (1,501)I1(2,ISNR1)
	WRITE (1,507)ISPAC,
501	FORMAT('FALSCH:    ',I1)
	READ (1,502)I1(2,ISNR1)
502	FORMAT(I1)
	GOTO 40
102	WRITE (1,501)I1(3,ISNR1)
	WRITE (1,507)ISPAC,
507	FORMAT('RICHTIG:  ',A1)
	READ (1,502)I1(3,ISNR1)
	GOTO 40
103	WRITE (1,503)I1(4,ISNR1)
	WRITE (1,507)ISPAC,
503	FORMAT('FALSCH:    ',I2)
	READ (1,504)I1(4,ISNR1)
504	FORMAT(I2)
	GOTO 40
104	WRITE (1,501)I1(5,ISNR1)
	WRITE (1,507)ISPAC,
	READ (1,502)I1(5,ISNR1)
	GOTO 40
105	WRITE (1,501)I1(6,ISNR1)
	WRITE (1,507)ISPAC,
	READ (1,502)I1(6,ISNR1)
	GOTO 40
110	IF(ISNR0) 115,40,115
115	IFECO=IFECO-4
	WRITE (1,505)I(IFECO,ISNR0)
505	FORMAT('FALSCH: ',3X,I3)
	WRITE (1,507)ISPAC,
	READ (1,506)I(IFECO,ISNR0)
506	FORMAT(I3)
	GOTO 40
2	RETURN
	END