C CRA = DATENEINGABE (CARD READER ALTERNATE)
C PRA = DRUCKAUSGABE(PRINTER ALTERNATE)
C FL1 = DATENFILE AUF TROMMEL ODER PLATTE
C FL2 = DATENFILE AUF TROMMEL ODER PLATTE
C PR = DRUCKAUSGABE(ERGEBNIS KONTROLLE)
C IP0 LAUFENDE NUMMER DES PROGRAMMES
C IP1 ANZAHL EINZUGEBENDER DATENSAETZE FUER INTEGERZAHLEN
C IP2 ANZAHL EINZUGEBENDER DATENSAETZE FUER EINFACHE GLEITKOMMAZAHLEN
C IP3 ANZAHL EINZUGEBENDER DATENSAETZE FUER DOPPELTE GLEITKOMMAZAHLEN
C IP5 GIBT AN,WIEOFT DAS PROGRAMM EINGAB DURCHLAUFEN WIRD
C IP6 GIBT AN,WIEOFT DAS PROGRAMM AUSGAB DURCHLAUFEN WIRD
C IP7 GIBT AN,WIEOFT DAS PROGRAMM FILEOP DURCHLAUFEN WIRD
C IP8 GIBT AN,WIEOFT DER BAUSTEIN FUER GLEITKOMMAARITHMETIK
C EINFACHER LAENGE DURCHLAUFEN WIRD
C IP9 GIBT AN,WIEOFT DER BAUSTEIN FUER GLEITKOMMAARITHMETIK
C DOPPELTER LAENGE DURCHLAUFEN WIRD
C IP10 GIBT AN,WIEOFT DER BAUSTEIN FUER KONVERTIERUNGEN
C DURCHLAUFEN WIRD
C IP11 GIBT AN,WIEOFT DER BAUSTEIN FUER INTEGERARITHMETIK
C DURCHLAUFEN WIRD
C IP12 GIBT AN,WIEOFT DER BAUSTEIN FUER INDEX-ARITHMETIK
C DURCHLAUFEN WIRD
C IP13 GIBT AN,WIEOFT DER BAUSTEIN FUER LOGISCHE OPERATIONEN
C DURCHLAUFEN WIRD
C IP14 GIBT AN,WIEOFT DER BAUSTEIN FUER UNTERPROGRAMMSPRUENGE
C DURCHLAUFEN WIRD
C IP15 GIBT AN,WIEOFT DAS PROGRAMM ARITOP DURCHLAUFEN WIRD
C IP16 GIBT AN,WIEOFT DAS GESAMTPROGRAMM DURCHLAUFEN WIRD
INTEGER CRA,PRA,FL1,FL2,PR
COMMON B1,B2,B3,B4,B5,B6,B7,B8,B9,B10,B11,B12,B13
COMMON D1,D2,D3,D4,D5,D6,D7,D8,D9,D10
COMMON E1,E2,E3,E4,E5,E6,E7,E8,E9,E10
COMMON IFA(10),IFB(50),IFC(100),IFD(10,10),IFE(50,50),
1 IFF(10,10,10)
COMMON IP0,IP1,IP2,IP3,IP5,IP6,IP7,IP8,IP9,IP10,IP11,IP12,IP13,
1 IP14,IP15,IP16
COMMON I1,I2,I3,I4,I5,I6,I7,I8,I9,I10,I11,I12,I13,I14,I15,I16,
1 I17,I18,I19,I20,I21,I22,I23,I24,I25,I26,I27,I28,I29,I30,
2 I31,I32,I33,I34,I35,I36,I37,I38,I39,I40
COMMON L1,L2,L3,L4,L5,L6,L7,L8,L9,L10
COMMON R1,R2,R3,R4,R5,R6,R7,R8,R9,R10
COMMON S1,S2,S3,S4,S5,S6,S7,S8,S9,S10
COMMON CRA,PRA,FL1,FL2,PR
DOUBLE PRECISION D1,D2,D3,D4,D5,D6,D7,D8,D9,D10
DOUBLE PRECISION S1,S2,S3,S4,S5,S6,S7,S8,S9,S10
LOGICAL B1,B2,B3,B4,B5,B6,B7,B8,B9,B10,B11,B12,B13
CRA = 10
PRA = 11
FL1 = 12
FL2 = 13
PR = 6
IT=0
1 READ(CRA,20) IP0,IP1,IP2,IP3,IP5,IP6,IP7,IP8,IP9,IP10,IP11,
1 IP12,IP13,IP14,IP15,IP16
IF(IT-IP16) 2,19,19
2 IC=0
3 IF(IC-IP5) 4,5,5
4 CALL EINGAB
IC=IC+1
GOTO 3
5 DO 8 I=1,10
IFA(I)=I
DO 6 II=1,5
III=(I-1)*5+II
6 IFB(III)=III
DO 8 J=1,10
IFD(I,J)=I+J
DO 7 II=1,5
III=(I-1)*5+II
DO 7 JJ=1,5
JJJ=(J-1)*5+JJ
7 IFE(III,JJJ)=III+JJJ
DO 8 K=1,10
8 IFF(I,J,K)=I+J+K
B1=.TRUE.
B2=.FALSE.
B3=.TRUE.
B4=.FALSE.
B5=.TRUE.
B6=.FALSE.
IC=0
11 IF(IC-IP15) 12,13,13
12 CALL ARITOP
IC=IC+1
GOTO 11
13 IF(IP7) 15,15,14
14 CALL FILEOP
15 IC=0
16 IF(IC-IP6) 17,18,18
17 CALL AUSGAB
IC=IC+1
GOTO 16
18 IT=IT+1