SUBROUTINE FERTIG(IHYP,IB,IBA) COMMON LANF,NAME,IDAT,IPU,IQU DIMENSION NAME(11,148),IDAT(23),IPU(4),IQU(4),IHYP(4) C UEBERGABE VON IHYP(X) HYPOTHETISCHE PRUEFUNGSPUNKTE IM C X-TEN FACH ( 1=< X <= 4) C DAS DREI-STELLIGE ERGEBNIS IB ENTHAELT FOLGENDE INFORMATIONEN C (1) HUNDERTERSTELLE: 100-PUNKTE-BEDINGUNG ERFUELLT C (2) ZEHNERSTELLE: ANZAHL L-FAECHER UEBER 24 PUNKTE C (3) EINERSTELLE: ANZAHL G-FAECHER UEBER 24 PUNKTE C (4) IB > 110 : PRUEFUNG BESTANDEN C IB=0 IHYPT=IHYP(1)+IHYP(2)+IHYP(3)+IHYP(4) IF(IHYPT-100) 10,20,20 20 IB=IB+100 C AUSREICHENDE L-KURSE 10 IF(IHYP(1)-25) 30,40,40 40 IB=IB+10 30 IF(IHYP(2)-25) 50,60,60 60 IB=IB+10 C AUSREICHENDE G-KURSE 50 IF(IHYP(3)-25) 70,80,80 80 IB=IB+1 70 IF(IHYP(4)-25) 90,100,100 100 IB=IB+1 90 IBA=0 IF(IB-110) 110,110,120 120 IBA=1 110 RETURN END