File KUWA0B.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"07B"J7C"J	C3E;I3GKA3ER +ECR7KKU3SGW3HGL3U3F3AWGN*MC*M2I?C3M?M3N& 7FKO3M&,3H3A3B&,3SGT6,OI+T3B7ISS3D&,3SWT6,OI+T3F7ISS3G&,3S3T6,OIT7M2JRI3IWM3N	S+OCN3K/A+BE*52)3K/S+BE.5",2):,3O3N/KF(*52)7KWA+FG.3F,*52)7KWA+FL.1Z0")*M6IOI3P
A+EB=.-B2"166"J	C3LWO3SC+ECN7DKE6 KA3B	E3T[S3ESLE7R2J&I/Z6 " 602J&I+ZB1.=B "M&J+DCO21. .1F=",652J.I3AKK3E.(*1B).=B "M&J+DCO21. .2F=",68"J&13K/S+BE+K21+K&2* B="0*M2I?D* B2/K61.1N,"M&J+DCO22. .2F=.,V1"M&J3N;O+LK+K&2* B="0*M22.I3A[U3G.(21.,*2B).=B "M&J3W	R+T
E*(21.4B0")*M.4B02I?F3RGM+T>(2	WG3B;E2 	S3ER +ICE3WA7LWA3FGL3G;E2 ;A* ^!")*M6IKW3IWT. F(.,F4"06).JF420ZI3O7R+AT2/F	3B?S7LSU6 WZ2 WB3L
E3ESN3EZ 3AOE7HKE* ^!")*M25&I3Z&=/ZF+.MFJ60JI3ESA. F(.,N720.)3AKK3E&(Z6)2J&I+F" 3K/A+BE+I	Z*-&1*520*121"5*M"1&1/I7Z+I7Z"1*M2I?G+TCO"160.JB56I+I"=606J^I7RSI+E" .1R,*4&0.MRJ"4&07FKO7MSA*(^/3SKU3S	T3T	U3EKR3AWR2 GF3C
H7RCU3P;E* ^!")*M"6&0/IGZ6=+I.1F+"M&J3W	R+TE.1R,*5&0/IGZ.MRJ"5&07FKO7MSA*(^/3FOA7HKG7UCP+EB:2	&,"16).JB76I+I6=+I"+61.JB82IWR+ACD*(21.7B36)OK3KWB6(+I21&,Z6).JZ420ZI3O7R+AT+I&2"M&J+IF3K/S+BE/IGZ6,+I.)F-.)B1.0",.1^,"0*M"8&1/I7Z+I7Z"1*M2I?G+TCO"860.JB160^I7RS
+E" .1R,*7&07ICS3AWC",*M.4B72I?F3RGM+T>(2	GW3RR 7IOE2 	D3E2 7E+T+TCE3FOA7HKG7UCP/E> 2	F,"16).J^520ZI3O7R+AT+A&2.MFJ"1&03RGE+D" .1V,*7&07IKF3AWG"M&J+ICF2([I3R
A/EZ-*7&2*620.1B2.,B6.MFJ"2&03W	R+TCE*(21.7B0")*M.7B02I?F3RGM+T>(2		E3NWT7IWL+NCG7DKE2 GF3EC+ECR+ICN3A[U3GKA3E[N3ESL+ECR*!>	")*MC*MC&I"I&I2IWS3IWT" 62"J7C2JRI/O^ *2B0/IGZ*=21"3*M6I+I"=606J^I7RSI+E" .1^,*1&0/IGZ.M^J"1&07FKO7MSA*(>/+I21*	B.3A[U3GKA3E[N3ESL"
6).J^720&I3Z&=/ZF+.M^J"6&03RGE+D" .1^,*3&07KWA+FG/IGZ6,+I")*M.7B32I?F3RGM+T^(3FOA+HB:* 2	+I&2"M&J+ICF2(GK3U
F6(+I21&,+Z6).1^)*220.7B5.,^7"0*M.7B56I+I6=+I"-612J^I3O?T. Z7"0*M.7B22I?C3N	T3NWU"M&J3W	R+TCE*(21.5B16)OI3POAE6,.JF520ZI3O7R+AT6/^	7I[E3I3E3E. 7UOR3E6 7UOE3S;E2 	M3NWD3SWT+NCS3B3E7ESG2 WS+ICN*?2	+A&1"M&J3RGE+D" .1R,*6&07IWKR7A2J&I/ZB="M&J3W	R+TCE*(21.5B2"
*M.5B22I?F3RGM+T>(2	WW3LC3EZ 3AOE7HKE2 	S+NCD3NOI+HCT7AOL2 /L7S* 3UWG7LOA3S;E* ^?")*M.2V96I+I6=+I"+612J^I3O?T. B3"5*M.3B06I+I6=+I"-61.JB365JI3ESA. F(.,N720:)3O3N3K&(Z6)2J&I+F" 3N;O+LK+I	Z*-&1.3B2.,B3.0J,"965"J	C3SWP3IC3E;R2 WD3R. 7UOR3WA7LWA3FGL3G;E.MNJ"2
07ISS/BF=25&+3SGT"M&J+DCO.1V96 +I*=21"5*M.1V92IGK3U3F6(+I2).=3AKK3E&(Z6)2J&I/HV="M&J+DCO.2B06 +I.1F=",652JRI/OJ *0B0/I7Z.1","M&J/I7H+I/H"1*M.2B02IGK3U3F2(I2).=3SKK3E&(+Z21+I	Z"M&J+DCO.2B16 +I.1F=",632JRI/OJ *1B0/I7Z.1F,"5*M2II2=I"+61.JF220.I3A[U3L&(/H6)7K
A+FG/IGZ6,+I")*M2I?D. J220& /ZF=.,V1"M&J/I7H+I/H"1*M.2B22IGK3U3F2(I2):=3O3N3K&(Z6)2J.I3A[U/LF(*0&62=/I3UGR"M&J3C3A7L^ 7TCA/EF(2,&-3SKT.,B126.,3A[UL6)2JVIN7D&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