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

C						SEITE 1
C	KUWA2B
C
C       KURSWAHL - DEFINITION DRUCK - UNWICHTIGE DATEN UEBERPRUEFEN
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),KAUFL(106)
C       DEFINITION DER DRUCKVARIABLEN
        DO 1 K3=1,67
1       N(K3)=-2016
        N(2)=-32
        N(11)=288
        N(12)=334
        N(13)=390
        N(14)=774
        N(15)=1158
        N(16)=398
        N(17)=782
        N(21)=1166
        N(22)=853
        N(23)=725
        N(24)=788
        N(25)=836
	N(26)=339
	N(27)=466
        N(31)=480
        N(32)=331
        N(33)=1495
        N(34)=1231
        N(35)=1025
        N(36)=1033
	N(37)=1043
        N(41)=864
        N(42)=1032
        N(43)=200
        N(44)=137
        N(45)=582
	N(46)=1357
        N(51)=1157
        N(52)=1163
        N(54)=1232
	N(55)=661
	N(56)=149
	N(57)=1236
	N(61)=399
	N(62)=210
	N(63)=601
	N(64)=1288
C
C						SEITE 2
C
C       UEBERPRUEFEN KLASSENSTUFE UND HALBJAHR
        DO 30 K1=IANF,148
        I2(K1)=0
        IF (I(4,K1)-(IFORM+922))20,10,20
10      IF (I(5,K1)-(IHALB+992)/64)20,30,20
20      I2(K1)=1
30      CONTINUE
	CALL RTAPE(1,ISTB,106,KAUFL)
40      CALL RTAPE(1,-ISTD,1628,I)
C       FALSCHER KURSNAME
	IKURA=KAUFL(106)
        DO 100 K1=IANF,148
        K4=1
        DO 110 K2=2,11
        K3=I(K2,K1)
        IF (K3)120,115,14
14      IF (K3-10)125,125,15
15      IF (K3-67)130,130,120
130     IF (N(K3)+2016)110,125,110
125	IF(K2-IKURA)120,120,110
120     I(K2,K1)=2
        K4=2
        GOTO 110
115     I(K2,K1)=1
110     CONTINUE
        IF (K4-1)700,700,140
140     I2(K1)=I2(K1)+4
700     IF (IFORM+911)100,710,100
710     DO 720 K2=2,3
        IF (I(K2,K1)-41)740,730,730
730     IF (I(K2,K1)-44)100,100,740
740     IF (I(K2,K1)-12)720,750,750
750     IF (I(K2,K1)-21)100,100,720
720     CONTINUE
        I2(K1)=I2(K1)+2
100     CONTINUE
        CALL CHAIN ('KUWA2C')
        END