File FERTIG.FT (FORTRAN source file)

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

	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



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search