File KUWA5B.FT (FORTRAN source file)

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

2I?C3M?M3N& 7FKO3M&,3H3A3B&,3SGT6,OI+T3B7ISS3D&,3SWT6,OI+T3F7ISS3G&,3S3T6,OIT7M2JNI3O7M+OCN3L;A3F&,3A[N*,3I+I223I[Z3E&,3ZGF",7N2JRI3IWM3N	S+OCN/IF(.1F,*4&8.,KI.(R1*82)/NZ(*72)7KKA+TE*1&62,[I/AF(*12)7NSO/EF("16)2JNI3A3L2 ?O3P;E6(J	/KGA*	^,3FOA+H&	"M&J+DCO*
B0/K613I;A/FF,"468.JB16IKW3IWT*(24*2&0*(I+K22+K&1.,KK*=21*1&1.MJJ20ZI3O7R+AT+I2321F0"26)2JNI3A3L2 OO7LOOE*M2IGC+LCL7ICO+EN2	/R+A^12,:	3OWT+N&	.M"J60JI3ESA*(24*3&02(GK3RWT*(	K.,7K.1F,"66).JB32I?F3RGM3T&(.3N,.(GI.,KI.)V,+I22+I21.2KI.,GI")*M2I[I2(GK3RWT*(&1.
F *020.2B0.,B1"0*M.1B02I?D. B4. GK2=GI+N3F.1"4"M&J+IF7KKA+TE*16)/IF(.,GK.)R).0V,.0R,"0*M"5&0+DCO*6B0/K62.2F,"1*M2I[I2(GK3RWT*(&5*-I+K22+K&1.)Z .0^,.0Z,"0*M"7&0+IF7KKA+TE*1&4.)^ .1^,.2^,"1*M"7&1/M7Y"1602J^I3O?T. V7.M^J226I/YF="4*M"7&53I.(22.,.16)7KKA+TE+M	
.*R6.-B1"5662J^I3O?T. B8.MZJ20NI7OSN7IWNE*M6IKW3IWT*(21*9&0/IF(.,GK2):,2(GK3RWT*(&5")*M"9&07FKO7MSA6(N	7CWH3EWL+R2	+I242	" +ACT3K	E+N^ .,KA")*M2I?G+TCO"860.JB42I?C3N	T3NWU"M&J3W	R+TE.1F,*1&07KKA+TE"16).JF120ZI3O7R+AT2	WK+ICN3SC3U3E+ECR7MSI6 KN2	&,*4^,7VKO
H;A3D;E"	6)2J^I3O?T. B8.MJJ"0&03C3A3L& 3OWP+N^(3RGK*12	2	GF+C
H")*M2I?D. F220. 21&=3A[N.,R1"8*M2IWR+AD.4J,*0")3IGF*(	L.,7L.1F,"16)2JRI/OJ *1B0/K62.2F,"1*M2I[I*(I+K22+K&12-[I3A.(*2&).2B1.,N2.0J,"160.JN220&I.(KK.,GK*)6="362.JF220NI7OSN7IWNE*M2IGC+LCL7OCO+EN2	/R+A^12,2	7ISS+E&	"M&J+DCO.3B1. GK2=GI+N3F.1"4.MNJ"1&03W	R+T
.4N,*2&0*(I+K22+K&1.,KK*=21*1&1.MNJ"2&07FKO7MSA.(OI.,B1+A&1"M&J3C3A3L> 3C?LS7E"J	C7DWR7CKK7OSU3IWN"M&J3C3A7LJ 7TCA/EF(2,&-3S7T.,Z1*228I6)2JRI/OR *1B03L2=3A[N.,R1"8*M2IGC+LCL7ICO+EN2	/R+A^12,Z	3AC"	6)2JRI/OR *2B0/K623I;A/FF,"4686JJI3ESA*(24*2&02([I3A6(2)6,
=21*1&1"M&J+IF3IGF*(&1*-I21.,*1&). J4.0R,*320.4B2.MRJ"2&03C;O3T;IU7E6JNI7TCO.MRJ"3&03C3A3L& 3OWP+N^(3RGK*12	2		L3SWT"	6)2JRI/OR *4B0/K623I;A/FF,"4686JJI3ESA*(24.3B22):(3OWT*(	M.,7M.1F,"16)2J&I3F:(3OWT*(&1*-I21.,*1&). R4.0R,*520.4B4.MRJ"4&03C;O3T;IU7E2J^I3
?T. B9"9*M.4B56IKW3IWT*(21.5B02)&(.(KK*,	L.,KK*=21*1&1.MVJ"0&07FKO7MSA*(>/./OI6,"2.,B1+A&2"M&J3W	R+TE.1V,*1&02([I3A6(2)6,*=22*1&1.MVJ"1&07FKO7MSA*(^/3FOA+HB:.	J,/XF,20F(.2J,+X&)"M&J3W	R+TE.1V,*2&02(?N+TE+M2)/MJ=.,F1")*M.5B22I?F3RGM+T^(7NSO+EB:.	J,/XF,60"(
,GA6,"2")6).JF420NI7OSN7IWNE*M.9&06ISSO7P2JVIN7D&J*L

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