File DRUFA.FT (FORTRAN source file)

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


C						SEITE 1
C	DRUFA
C
C       AUSDRUCK DER FACHBELEGUNGSLISTEN
C
	SUBROUTINE DRUFA(FACH,I3)
	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),I3(4,148),IKN(148),FACH(2,42)
	DIMENSION N(67)
        WRITE (1,570)
100     FORMAT (A2)
C       BEGINN SCHLEIFE: DRUCK DER LISTEN
99	DO 300 IFA=3,67
        IF (N(IFA)+2016)120,300,120
120     IFA1=(IFA/10-1)*7+(IFA-10*(IFA/10))
C       SUCHEN DER SCHUELER FUER EIN FACH
        DO 130 K1=1,148
	IKN(K1)=0
130     I2(K1)=0
        K0=1
        DO 180 K1=IANF,148
        DO 180 K2=2,4
        IF (I3(1,K1))180,180,140
140     IF (I3(K2,K1)/10-IFA)180,150,180
150     I2(K1)=I3(1,K1)
	IKN(K1)=K2
        K0=K0+1
180     CONTINUE
        IF (K0-1)300,300,205
C	BERECHNEN DER KURSUNTERNUMMERN
205	DO 210 K1=IANF,148
	IF(I2(K1)) 210,210,230
230	IKN(K1)=I3(IKN(K1),K1)
	IKN(K1)=IKN(K1)-(IKN(K1)/10)*10
210	CONTINUE
	K0=K0-1
	DO 350 M=1,4
	IZA1=0
	DO 470 K1=IANF,148
	IF(IKN(K1)-M) 470,480,470
480	IZA1=IZA1+1
470	CONTINUE
	IF(IZA1) 350,350,370
C       AUSDRUCK KOPFTEXT
370	WRITE(1,450)IFORM,IHALB
450     FORMAT(///'KLASSENSTUFE: ',A2,'  HALBJAHR: ',A1)
	WRITE (1,420)(FACH(K1,IFA1),K1=1,2),M,
420     FORMAT (//'FACH:  ',2A6,2X,I1)
C
C						SEITE 2
C
429	WRITE (1,433)IZA1
433     FORMAT (2X,'SCHRIFTLICHES (3.)FACH',3X,'('I4' SCHUELER)',///)
C       DRUCK DER NAMEN
	IZA2=0
501	DO 500 K1=IANF,148
        IF (I2(K1))505,500,505
505     DO 515 K2=LANF,148
        IF (I(1,K2)-I2(K1))515,520,515
515     CONTINUE
520	IF (IKN(K1)-M)500,526,500
526     WRITE (1,525)(I(K3,K2),K3=1,11)
525     FORMAT (I3,2X,10A2)
	IZA2=IZA2+1
	IF(IZA2-IZA1) 500,500,510
500     CONTINUE
510	WRITE (1,570)
570     FORMAT (/////80('-')/////)
350	CONTINUE
300	CONTINUE
C       ENDE SCHLEIFE: DRUCK DER LISTEN
	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