File KUWA0A.FT (FORTRAN source file)

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


C						SEITE 1
C	KUWA0A
C
C       KURSWAHL - SETZEN DER FACHNAMEN
C
	COMMON IFORM,IHALB,ISTA,ISTB,ISTD,ISTE,ISTF,ISTG,ISTL,ISTM
	DIMENSION FACH(2,42)
        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)='RUSS.-'
        FACH(2,5)='FORT. '
        FACH(1,6)='FRANZ.'
        FACH(2,6)='-NEU  '
        FACH(1,7)='LATEIN'
        FACH(2,7)='-NEU  '
	FACH(1,8)='RUSSIS'
        FACH(2,8)='CH-NEU'
        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)='ENGLIS'
        FACH(2,12)='CH-ANG'
	FACH(1,13)='SPANIS'
	FACH(2,13)='CH    '
	FACH(1,14)='GRIECH'
	FACH(2,14)='ISCH  '
        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,21)='PSYCHO'
	FACH(2,21)='LOGIE '
        FACH(1,22)='MATHEM'
        FACH(2,22)='ATIK  '
C
C						SEITE 2
C
        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,27)='UMWAEH'
	FACH(2,27)='LEN!!!'
	FACH(1,28)='MATHE-'
	FACH(2,28)='ANGL. '
        FACH(1,29)='EV.REL'
        FACH(2,29)='IGION '
        FACH(1,30)='KAT.RE'
        FACH(2,30)='LIGION'
	FACH(1,31)='RELIGI'
	FACH(2,31)='ON    '
        FACH(1,32)='SPORT '
        FACH(2,32)='      '
	FACH(1,33)='RECHTS'
	FACH(2,33)='KUNDE '
	FACH(1,34)='BUCHFU'
	FACH(2,34)='EHRUNG'
	FACH(1,35)='STATIS'
	FACH(2,35)='TIK   '
	FACH(1,36)='FOTO  '
	FACH(2,36)='      '
	FACH(1,37)='CHOR  '
	FACH(1,37)='      '
	FACH(1,38)='ORCHES'
	FACH(2,38)='TER   '
	FACH(1,39)='THEATE'
	FACH(2,39)='R     '
C	AUFBAU DER FACHNAMENDATEI
	ISTFN=1+ISTA
	CALL WTAPE(1,ISTFN,252,FACH)
	CALL CHAIN ('KUWA0B')
	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