File KAWA2F.FT (FORTRAN source file)

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


C						SEITE 1
C	KUWA2F
C
C       KURSWAHL - AUSDRUCK DER WAHLMATRIZEN AUF FOLIE
C
        COMMON IFORM,IHALB,ISTA,ISTB,ISTD,ISTE,ISTF,ISTG,ISTL,ISTM
        COMMON LANF,IANF,I,I2,IZFE,IZFA,N
        DIMENSION I(13,148),I2(148),N(67),MATRIX(15,10),IZEILE(148)
	DIMENSION ISPAL(148)
C       SETZEN DRUCKKONSTANTE
	ISTERN=-1376
	IEND=149-IANF
	IZEIZA=(IEND+9)/10
	LEER=16-IZEIZA
	DO 1 KZ=1,IZEIZA
	DO 1 KS=1,10
1	MATRIX(KZ,KS)=0
	DO 10 K=1,IEND
	IZEILE(K)=(K-1)/10+1
	ISPAL(K)=K-10*(IZEILE(K)-1)
	KZ=IZEILE(K)
	KS=ISPAL(K)
	K0=K+IANF-1
10	MATRIX(KZ,KS)=I(1,K0)
C	DRUCK DER SCHUELERMATRIX
	WRITE(1,220)
220	FORMAT(////40('-')/'!'/'!',3X,'SCHUELERMATRIX'/8('!'/))
	DO 230 KZ=1,IZEIZA
230	WRITE(1,240)(MATRIX(KZ,KS),KS=1,10)
240	FORMAT(4X,10(2X,I3)///)
	DO 250 L=1,LEER
	WRITE(1,210)
250	CONTINUE
C	SETZEN ANFANGSWERTE
	KA=2
	IF(IFORM+911) 20,30,20
30	IF(IHALB+928) 20,40,20
40	KE=13
	KURS=459
	GOTO 50
20	KE=3
	KURS=779
50	DO 60 K3=11,67
	IF(N(K3)+2016) 70,60,70
70	DO 80 KZ=1,IZEIZA
	DO 80 KS=1,10
80	MATRIX(KZ,KS)=-2016
	DO 90 K1=IANF,148
	DO 90 K2=KA,KE
	K0=K1-IANF+1
	IF(K3-I(K2,K1)) 90,100,90
100	IZ=IZEILE(K0)
	IS=ISPAL(K0)
	MATRIX(IZ,IS)=ISTERN
90	CONTINUE
	WRITE(1,200)KURS,N(K3)
200	FORMAT(////40('-')/'!'/'!',3X,A2,X,A2/8('!'/))
	DO 110 KZ=1,IZEIZA
110	WRITE(1,120)(MATRIX(KZ,KS),KS=1,10)
120	FORMAT(3X,10(4X,A1)///)
	DO 260 L=1,LEER
	WRITE(1,210)
210	FORMAT(4(/))
260	CONTINUE
60	CONTINUE
	IF(KE-3) 130,140,130
140	KA=4
	KE=13
	KURS=459
	GOTO 50
130	STOP
	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