File KUWA3.FT (FORTRAN source file)

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


C						SEITE 1
C	EINSTIEG: KUWA3
C
	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),N(67),IFE(227)
	ISPACE=-2016
	WRITE (1,10)ISPACE,
10	FORMAT(/'KLASSENSTUFE:',A1)
	READ (1,20)IFORM
20	FORMAT(A2)
240	WRITE(1,30)ISPACE,
30	FORMAT('HALBJAHR:',A1)
	READ(1,40)IHALB
40	FORMAT(A1)
	IF(IFORM+910) 220,210,200
200	ISTA=4
	GOTO 230
210	ISTA=2
	GOTO 230
220	ISTA=0
230	IF(IHALB+928) 240,260,250
250	ISTA=ISTA+1
260	ISTA=200*ISTA
	ISTB=15+ISTA
	ISTC=148+ISTA
	ISTD=124+ISTA
	ISTE=101+ISTA
	ISTF=61+ISTA
	ISTG=78+ISTA
	ISTL=26+ISTA
	ISTM=38+ISTA
	DO 140 K1=1,148
	DO 140 K2=1,11
140	I(K2,K1)=0
	CALL RTAPE(1,-ISTC,227,IFE)
	CALL RTAPE(1,ISTD,1628,I)
	LANF=IFE(9)
	IANF=IFE(10)
	IZFE=IFE(11)
	IZFA=IFE(12)
	DO 120 K1=1,148
120	I2(K1)=IFE(K1+12)
	DO 130 K3=1,67
130	N(K3)=IFE(160+K3)
	CALL CHAIN ('KUWA3S')
	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