File KUWA3S.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"37S"J7C"J	C7KKU3SGW+HCL6-N 3A7M3EL7ACU7TKP7OKG3A7M2MNJ"M&J3C7O3M;O2 [I3O7R2,I3AKL6,OI+T3A7ISS3B&,3SST6,OI+T3E7ISS3F&,3S
T6,OI+T3L7ISSM*M2I?C3M?M3N2 3A[N2,GI+N3F3I&,22&,3ZWF6,+I+F3AN*M2I	D3M;E3S?I3N& .(F1.,R1*82)+I"2.1"42):,.(^6")*M6IKW3IWT. F(.,B4"06).JB420ZI3O7R+AT6/N	3A7M3EL7ACU7TKP7OKG3A7M"	6)6J^I7RSI+E" .1R,*1&0/NF(")6,.JF420ZI3O7R+AT2/J	3E?N3E	T3G;E2 	S3E: 3AE3EWR2 ;I
FKO7MSA3I;O/E?N2	F,"16)6JJI3ESA. F(.,J420&)3FGRG7E.JJ4*0B * B 7FKO7MSA.(KA")*M2I[I2 &(3FGR+GCE.-Z *7&2. B1.0F,.0F,"060.JB16IKW3IWT. F(.,N4"06).JN420ZI3O7R+AT*/B	* B * B * B * B16 KB3I
N3TV 3IWN3NF 3USS3ROU3KR +ECR7GOE7ASM+E
N")*M6IKW3IWT. F(.,R4"06).JR420ZI3O7R+AT*	B * B * B * B * B 7KKU3SGW3HWL+NB:+N3R3N7A7E^,3A3H2,WF3HWL3R?C+DGE"	6)6J^I7RSI+E" .1R,*5&0.MRJ"5&07FKO7MSA*(B	* B * B * B * B26 KD3U/C3TR +ICE7KKU3SWB3L
E3U
N+ECN3FWU3RR +I
E")*M6IKW3IWT. F(.,Z4"06).JZ420ZI3O7R+AT*	B * B * B * B * B 3E;I3Z3E3N;E2 GF3EC+ECR7AOU*!&	"M&J3W	R+TCE*(21.4B7")*M.4B72I?F3RGM+T^(* B * B * B . N 2 & +SCT3E;I6 CS3E	Z3E3L+ECS7KKA3T;E3SOU7HKP7OKG3A7M*,&	"M&J3W	R+TCE*(21.4B8")*M.4B82I?F3RGM+T^(* B * B * B 
 B 2 Z 7UKE2 	D7E^ 3A3H7DSA+EGN"	6)6J^I7RSI+E" .1R,*9&0.MRJ"9&07FKO7MSA*(B	* B * B * B * B42 	W/EN 2,Z 7UKE2 WP3R?S3E3N3IC3ER 3AWT+N^!")*M6IKW3IWT. F(.,&4"56).J&425ZI3O7R+AT*	B * B * B * B *5B 3SGT3RWT3TR +ICE7VKE3AKR7ESI3U
N2 WN+U^!")*M6IKW3IWT. F(.,B5"56).JB525ZI3O7R+AT*	B * B * B * B *6B 3ZWA7HSL2 	D3EZ 3AOE7HKE6 WA+S^!")*M6IKW3IWT*(21.5V1")*M.5V12I?F3RGM+T^(* B * B * B . ^ 2 J 3R;I+GCT3E;I+ECN7AOU7DWR+CCK7DKE2 GW3HWL+N&	"M&J3W	R+TE.1V,*2&5.MVJ"2&57FKO7MSA*(B	* B * B * B 
 B 6 WF+ECR7DOA* :33SC3R[I3T	L3CWH2 GF+CCH*!&	"M&J3W	R+TCE*(21.5B2")*M.5B22I?F3RGM+T^(* B * B * B . B 2 J 3E;E7DSE2 GD7SB 3R
O3R7A+M^!")*M.1B06IKW3IWT. F(.,B520:)*(&1",*M.5B02I?F3RGM+T>(2	GW3E3H+ECN3SWI*:2	+A&1"M&J3RGE+D" .1R,*2&53IGWH7L.JJ425ZI3O7R+AT+I&1"M&J+ICF6(
I3A3H* B-.8F)*120.1B0.,B1"0*M.1B16I
I3A3H6=
I3A3H"+612J^I3O?T.(J1.0F,*221.1J2.,J1.3F,*224.1V2.,J1.6F,*2&76,
I3A3H.MFJ"2&03S?TP*M.1F22IGC+LCL3CGH+ICN2(.	3UGW*3
A")*M.1J22IGC+LCL3CGH+ICN2(.	3UGW*3
B")*M.1N22IGC+LCL3CGH+ICN2(.	3UGW*3
D")*M.1R22IGC+LCL3CGH+ICN2(.	3UGW*3
E")*M.1V22 NI3A3L2 C3A;I* ^(7K
U+A^2")*M.1Z22IGC+LCL3CGH+ICN2(.	3UGW*2
F")*M.1^22IGC+LCL3CGH+ICN2(.	3UGW*3
C")*M2I;ED*MBLBZ

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