File KUR3B.FT (FORTRAN source file)

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


C       AUSDRUCK DER FACHBELEGUNGSLISTEN (TEIL 1)
        COMMON IFORM,IHALB,FILEB,FILED,FILEE,FILEF,FILEL,FILEM,FILEN
        COMMON LANF,IANF,I,IZFA,IZFE,N
        DIMENSION I(12,296),FACH(2,42),N(67)
C       SETZEN DER FACHNAMEN
        FACH(1,1)='DEUTSC'
        FACH(2,1)='H     '
        FACH(1,2)='ENGLIS'
        FACH(2,2)='CH    '
        FACH(1,3)='FRANZ.'
        FACH(2,3)='-FORT.'
        FACH(1,4)='LATEIN'
        FACH(2,4)='-FORT.'
        FACH(1,5)='RUSSIS'
        FACH(2,5)='CH    '
        FACH(1,6)='FRANZ.'
        FACH(2,6)='-NEU  '
        FACH(1,7)='LATEIN'
        FACH(2,7)='-NEU  '
        FACH(1,8)='GRIECH'
        FACH(2,8)='ISCH  '
        FACH(1,9)='MUSIK '
        FACH(2,9)='      '
        FACH(1,10)='KUNST '
        FACH(2,10)='      '
        FACH(1,11)='LITERA'
        FACH(2,11)='TUR   '
        FACH(1,12)='MEDIEN'
        FACH(2,12)='KUNDE '
	FACH(1,13)='SPANIS'
	FACH(2,13)='CH    '
        FACH(1,15)='GESCHI'
        FACH(2,15)='CHTE  '
        FACH(1,16)='ERDKUN'
        FACH(2,16)='DE    '
        FACH(1,17)='WIRTSC'
        FACH(2,17)='H.WIS.'
        FACH(1,18)='SOZIOL'
        FACH(2,18)='OGIE  '
        FACH(1,19)='PAEDAG'
        FACH(2,19)='OGIK  '
        FACH(1,20)='PHILOS'
        FACH(2,20)='OPHIE '
        FACH(1,22)='MATHEM'
        FACH(2,22)='ATIK  '
        FACH(1,23)='PHYSIK'
        FACH(2,23)='      '
        FACH(1,24)='CHEMIE'
        FACH(2,24)='      '
        FACH(1,25)='BIOLOG'
        FACH(2,25)='IE    '
        FACH(1,26)='INFORM'
        FACH(2,26)='ATIK  '
        FACH(1,29)='EV.REL'
        FACH(2,29)='IGION '
        FACH(1,30)='KAT.RE'
        FACH(2,30)='LIGION'
        FACH(1,31)='PSYCHO'
        FACH(2,31)='LOGIE '
        FACH(1,32)='SPORT '
        FACH(2,32)='      '
C       UEBERTRAGUNG DER FACHNAMEN VON FACH NACH I(12,K1)
        ITEM=0
S       JMP GOON
SKONST, \FACH
SZAEHL, 0
SGOON,  TAD KONST
S       DCA ZAEHL
        DO 10 K1=1,252
S       TAD I ZAEHL
S       DCA \ITEM
S       INC ZAEHL
10      I(12,K1)=ITEM
        CALL CHAIN ('KUR3C')
        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