File KUWA0A.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"07A"J7C*JCC* B * B 7KKU3SGW+HCL6-N 7E+T+ECN7DKE2 GF3C;H3AWMN*MC*M2I?C3M?M3N& 7FKO3M&,3H3A3B&,3SGT6,OI+T3B7ISS3D&,3SWT6,OI+T3F7ISS3G&,3S3T6,OIT7M2JRI3IWM3N	S+OCN3FOA/HJ(.,J4")*M* B * B 2 Z 3AC*(21.16)2	WD7UOTC6	*JB * B * B 
FOA/HJ(*,&12="	* B * ^ *MBJ* B * B 2 GF+CH.1J,*)^=3E
N7LOI"	*M* B * B 2 Z 3AC*(22.26)2	C* B " 6	*JB * B * B 3FOA/HF(*,&32=Z	3R;A+Z^.*MBJ* B * B 2 GF+CH.2N,*)^=2-?F+R;T"	*M* B * B 2 Z 3AC*(21.46)2	GL3T	EN6	*JB * B * B 3FOA/HJ(*,&4*=6	7FKO+T^.*MBJ* B * B 2 GF+CH.1V,*)^=7ROU+S6."	*M* B * B 2 Z 3AC*(22.56)2	?F+
;T" 6	*JB * B * B 3FOA/HF(*,&62=Z	3R;A+Z^.*MBJ* B * B 2 GF+CH.2Z,*)^=2-WN+UB "	*M* B * B 2 Z 3AC*(21.76)2	GL3T	EN6	*JB * B * B 3FOA/HJ(*,&7*=6	7NWE* ^ "M&J3FOA/HF(*,&86=J	7UOS+I
S*MBJ* B * B 2 GF+CH.2",*)^=+C7H7NWE"	*M* B * B 2 Z 3AC*(21.96)6	WM3S/I" 6	*JB * B * B 3FOA/HJ(*,&9*=B	* B * ^ *MBJ* B * B 2 GF+CH.1F,.06)6	WK7NSS" 6	*JB * B * B 3FOA/HJ(.,B1*)^=* B * B "	*M* B * B 2 Z 3AC*(21*1&12=2	3IWT+R
A*MBJ* B * B 2 GF+CH.2F,.16)6	WT+RB " 6	*JB * B * B 3FOA/HF(.,J1*)^=3E
N7LOI"	*M* B * B 2 Z 3AC*(22*1&22=N	3HF-+N
G"M&J3FOA/HF(.,N1*)^=3SGP7NOI"	*M2IGF+CH.2F,.36)2	C* B " 6	2JZI3AC*(21*1&42=^	3RWI+C
H"M&J3FOA/HJ(.,R1*)^=3IOS+HB "	*M* B * B 2 Z 3AC*(21*1&52=^	3EOS+H
I*MBJ* B * B 2 GF+CH.2F,.56)2	C+TCE" 6	*JB * B * B 3FOA/HF(.,Z1*)^=3ESR3K;U"	*M* B * B 2 Z 3AC*(22*1&62=R	+EB * ^ *MBJ* B * B 2 GF+CH.1F,.76)2		W7ROTC6	*JB * B * B 3FOA/HJ(.,^1*)^=7H^.+I;S"	*M* B * B 2 Z 3AC*(21*1&86=N	3O	Z+O
L*MBJ* B * B 2 GF+CH.2F,.86)2	
O+ICE" 6	*JB * B * B 3FOA/HF(.,&1*)^=3PWA3D
A"	*M* B * B 2 Z 3AC*(22*1&92=>	3G/I* ^ *MBJ* B * B 2 GF+CH.1J,.06)2	P3I?LS6	*JB * B * B 3FOA/HJ(.,B2*)^=3OP+ICE"	*M2IGF+CH.1J,.16)6	OP3YCO6	2JZI3AC*(22*2&12=2	3O	G+E^ *MBJ* B * B 2 GF+CH.1J,.26)2	GM3TWHM6	*JB * B * B 3FOA/HJ(.,J2*)^=3A	T+KB "	*MC*MC&I"I&
2IWS3IWT" 62"J7C*JB * B * B 3FOA/HF(.,N2*)^=7P	H3S/I"	*M* B * B 2 Z 3AC*(22*2&3*=B	* B * ^ *MBJ* B * B 2 GF+CH.1J,.46)2	C3E	ME6	*JB * B * B 3FOA/HJ(.,R2*)^=* B * B "	*M* B * B 2 Z 3AC*(21*2&52=J	3I3O+O
G*MBJ* B * B 2 GF+CH.2J,.56)2	WI* B " 6	*JB * B * B 3FOA/HF(.,Z2*)^=3I[N3O7R"	*M* B * B 2 Z 3AC*(22*2&62=F	3T/I* ^ "M&J3FOA/HF(.,^2*)^=7U
M3AE"	*M2IGF+CH.2J,.76)2	WL+NF!"!6	2JZI3AC*(21*2&82=6	3AT+E^-"M&J3FOA/HJ(.,"2*)^=3A
N+LB."	*M* B * B 2 Z 3AC*(21*2&92=V	7VJ.+E
L*MBJ* B * B 2 GF+CH.2J,.96)2	
I3I;O" 6	*JB * B * B 3FOA/HF(.,B3*)^=7KSA2.WR"	*M* B * B 2 Z 3AC*(22*3&02=2	3I	G+O
N"M&J3FOA/HF(.,F3*)^=3R3E3I	G"	*M2IGF+CH.2N,.16)2	;O* B " 6	*JB * B * B 3FOA/HF(.,J3*)^=3S?P+RCT"	*M* B * B 2 Z 3AC*(22*3&2*=B	* B * ^ "M&J3FOA/HF(.,N3*)^=3ROE7HOT"	*M2IGF+CH.2N,.36)6	WK3NWD" 6	2JZI3AC*(21*3&42=J	3UC+F
U"M&J3FOA/HJ(.,R3*)^=7EKH3U
N"	*M2IGF+CH.1N,.56)6	SS3A	TS6	2JZI3AC*(22*3&56=R	+ICK* ^ "M&J3FOA/HF(.,Z3*)^=7FSO+OB "	*M2IGF+CH.2N,.66)*	B * B " 6	2JZI3AC*(21*3&72=N	7HKO* ^ "M&J3FOA/HF(.,^3*)^=* B * B "	*M2IGF+CH.1N,.86)6	KO3CWHS6	2JZI3AC*(22*3&86=R	+ECR* ^ "M&J3FOA/HF(.,&3*)^=3TWH3A
T"	*M2IGF+CH.2N,.96)*	CR* B " 6	"J	C3A[U7BWA2 WD3RZ 3AC3N7A3ESN3AWTI*M6IOI3T;F*=.17ISSA*M2IGC+LCL3WGT+PE21&,3S[T/NJ,*5223FOAH6)2JNI3A3L2 C3A;I* ^(7K
U3AJ0"	6)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