File KAWA2F.FT (FORTRAN source file)

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

2MNJ"I&I"I&I3S	E+TCE"1*M3C.I3UGW"27F"J7C*JCC* B * B 7KKU3SGW+HCL2-F 3USS3ROU3KR +ECR3WA3LGM3T	R3Z;E6 WA3FZ 3O	LE*MC*M* B * B 2 N 3O7M+OCN3I?F+R3M3IGH+L3B7ISS3A&,3SKT6,OI+T3D7ISS3E&,3S[T6,OI+T3G7ISS3L&,3S7T*MBJ* B * B 2 ?C3M?M3N2 3A[N2,GI+N3F3I&,22&,3ZWF6,
I+F3AN*M* B * B 2 R 3IWM3N	S+OCN/IF(.3F,*4&8.,KI.(R1*82)/NZ(*72)7MSA7RI.(V1.,B12)&,3Z	E+LE.1"4")*M2I	D3M;E3S?I3N& 3SGP/LF(*4&82MNJ* B * B 2 WS3TWZ3NR 3ROU3K?K7NSS7ASNE*M6IOI7TKE+N6=.1^3"6*M2IWI/N7D.1&42-GIN7F2J&I3Z	E/Z7A2(WI+N/D*9>)"1602J2I7EKE.=Z16-+I7E+
A*M2I?D* B1/K7Z21&,3Z	EZ7A2JRI/OF 6 OK*=21"160"J&17MSA7RI6(+K6,OK.)B="M&J+DCO*1B0/KF=2,WIN7D2J&I3Z	E+LE/K6)*(7K*1>)*1.0"1*M6IOI3P3A*(	K*=7K*1*06(+I3E3I3E.(.)F-")*M6I+K6=+I3E3I3E.(")*M6IOK6=OI3P3A*(	K"M&J/K603K&+3A[N"-61.JB12IGM3T	R3X.(3Z.,/S6)/IF(.,CK")*M
CRI3ROU3KR +ECR3SC3U3E3E7R7AKTI7X6J^I7RSI/EF(.,J2"06).JJ220ZI3O7R+AT*/>/./B4*(6	*	>)*	^!*/F	.	N,+X^,3SC3U3E3E7R7AKT+I
X*/"8*	^!*/&)"M&J+DCO.2B36 +K*=213IWZ3IGZ.MJJ"3&03W	R+TE.1J,*4&02(GM3T	R3X.(3Z.,+S2)/K7S.1F,"06).JR220ZI3O7R+AT*43X*1"0*23X+I&3*/>/")*M2I?D. V2202 *=213LWER*M6IKW3IWT*(21.2B1")*M.2B52I?C3N	T3NWU2MNJ2IWS3TWZ3NF 3NGF7NOG7WKET7E2J.I/AJ="M&J+IF3I?F+R/M.9F1.)J
.0N,.0J,"0*M"3&0+IF3IGH+L/B.9"2.)J .0R,.0J,"0*M"4&0/K7E"1632J.I7UOR.=V4"9*M2I?G+TCO"560.JB22IWK"=632J.I7UOR.=^7"9*M"5&0+DCO*6B0/K63*121"6672J&I3F:(.(OK.)J+.0Z1.)^ .0Z,.0^,"0*M"7&0+DCO*8B0/K7Z21&,3Z	EZ7A2JRI/O" 20. /SF=.,B1.M"J206I7AKT+IX+K3Z+K	S.=J-.0Z1"M
J+DCO*9B0/K613I;A/FF,"4682JRI/O& 20. 22.=3A.,E*M.ICK.=GK2-GI+N/F"1*M2I[I.(OK*-I+K22+K&1.)& .0F,*020"960.JB120&I3Z&=3Z	E+LE+K&0"M&J/I7S7ICS+AL+K&0"M&J7MSA7RI6(+I6,OI2)&=3SWTR7N.JB92I?C3N	T3NWU"M&J3W	R+TE.1J,*0&07KKU3S:,.(OK")*M.2B02I?F3RGM+T>(*/>/*4"0*	^-*
^/*!>	*	^!6,"3.,KA*,3X+A>2*8^(*!>	")6)2JRI/OF *1B0/K7Z21&,3Z	EZ7A.JF160^I7RSI/EF(.,J1*0")7MSA7RI6(+K6,OK2).,/SF=.,B1")*M.1B22I?F3RGM/TN(/XF,.0R(3XF,*1>)*/&/"M&J+DCO.2B6. 7L212,7EKE"M&J3W	R+TE.1J,*1&0.MJJ"1&07FKO7MSA*("4*/&).MJJ"6&03C;O3T;IU7E.JB62I?C3N	T3
WU"M&J+IF+K7E*3B).1B3.,R1.0F,"360.JR120.I/AR="M&J/K7E"1632J.I7UOR.=V4"9*M2I?G+TCO"560.JN160NI7TCO"M&J3ESN"M2JBZ

Note: Lines longer than 256 characters were wrapped



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