File KIND.FT (FORTRAN source file)

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

3COC3COC3COC3COC3COC3COC2MNJ2MNJ6IWF7NSC3I;O2 	K+ND3RGE7LN,3T	R+N	G2MNJ2MNJ2IWR7AOD2 WN+XCT2	T3I
N2	Z 3R7O2 ?F7RKT+ACN3U	N/TR 2MNJ2I[I6 R	3H;I+GB	+ICS7AJ 3E3A6 WN3MWB+RB,7RSE3U;RS*M3C.I3ISN*=212 WR/A7L3TWH6 WN3MWBR*MC*M3C&I+F^ 3T	H+N
G2 GW3SF 6 F	7USO+ECD7SKT3I
N*	B,7RSE3U;RS*M3C.I3ISN*=6 *1B,7SKT3I
N*=^ 3TWH6 SS3R;I+GB	+ICN.2[A2 ?F3RGMT6."J7C"J	C+ICF2	T3I
N6	^ +ACS+ACN3ESN2 [O2 	L+N3E2 WR7TKUN7S"J	C3K;I/DB=6,N 3T	R+NCG3ASN2 WR+ACL3AWR2 ;U3D[E3IWND*MC*M3C&I+F^ 3T	H+N
G2 GW3S: +OCT3A2 3EGG3L: 3UKM+ECR+OCR3Q?U3TSE6 SS3R;I+GB,7RSE3U;RS*M3C.I3ISN.=F-6,J 3E3A2=;U3D[E3IWN+DB,7SKT3I
N2=C3AGR3CWT+RCS+UCP+TCO7NE7TN 3POAE*M7CNI3T	R+NG.16)3CGH3ROA7TKE2 ;I. GA2 ?F3RGMT*MC*M3COC3COC3COC3COC3COC3COC3COCC7C2J?S3PWD3F*I3M	P.IR5"0602J?S3PWD7FRI3A	D.IR1"0602JZI3UON3T?I3N. 3ISN2(WR+A3L7ISS3R
N")*M2I	D3M;E3S?I3N& 7SKT+NG*62)3L;I/EF("26)6JJI3E3A*=:0"0*M6IOI3I;G"=612J.I3R;U/C7H"0*M2I	D/VB=".616J3S.1B0"1&,7JOM2ICA7R*J+C****2IC3E/C2 ?F7RF 7USOE*M2I[I2(OI.-&3.)B1*929*920.1&0"9*M.1&029&I3F&(/CR-.3F).0J0.,B1*021.1B0"2*M.1B022&I3F&(/CR-.5R)*,23"4*M23&
3S
I+N6=3I	SG7N2J^I7OR /OF .0F0.MRJ2I[I2(OI.-J3*)25.1B0.1V,6MNJ/\F12,*IM	S3CGHR*M25&I3F&(/CR-.6Z).,B1*027"6*M26&I3F&(/CR-.8&).9",",68"J&8+IF+I7C*5&8.1B0.9&,.9&,"9*M+C**2*&I7TN	* CA3D
I+IGT"!*M.1B069JI3E3A2=WR+A+L*1:020Z+3LGO3T&(/CR-"86)2J.I3R;U/C7H"1*M2I?G2 ?T. F12MNJ2MNJ****2IGP+SCT3DOE3IGM7LB 3O;I+T* "*6*"J7C6J3S.1B0"7&,7JOM2ICA7R2J&I3F&(/CR-.8&).9F,.5F,"5*M"1&5+IF+I7C*5&8*126*929"969*J+C"*&*3D
I+IGT.MFJ66JI3E3A2=WR+A/L2(	D3VZ*3LGO3T&(/CR-*8&)"M&J7D[I2=	D/VF/.0B."M&J7KWR3NC"=612J^I7OR /OF .0^02MNJ2MNJ2I;E3D> 3F: 3UKM+E3R2 	F7XCU2 	SG7N"J7C*J+C****2IWS3E& 7F^ 3EF 7CWC3M3U3AWT3DF 7NSY3H;IG*M"9&9+IF7KWR3NC.)R7.7^,*427.9J9.M&J"9&2+IF3I	S+G	N.1B0.,B1
1F,"061.JB160JI3E3A6=J-3E3A.MFJ"0&13K;I/DF="M&J7RSE3U;R2MNJ****2I;U3Q?U3TSE6 SS3R;IG*M.7^42IWI+NCD.=N "2*M.I7I"0*M2I?G+TCO.9Z32MNJ2MNJ****6*NI3C;A6 WQ3OWT7DN 3T	RN7G"J7C.JB92IWI+NCD.=N "9*M.9&7.I7I"0*M/S	\"1&,7JOM2ICA	R2/WG3TF 2 CA7R.JN926&I3F&(3C&-3ESN.)
9.,V9.,R9.M&J24&I*=/I"1*M2I[I*(7I*1&2*923*923"9616J3S*9232IGT7D2II7C"J	S3ASN.I^("7*M3SRIC	A3\OI"M&J3L;I3E&(2)&=C*M2I?G+TCO"961"J*M"9&53J&="+612JRI/O& 26& *=3J"162.JZ92I	L+NE/I6)"0*M2I?D. J9. 7I.1Z,"M&J3J&="+7I.JJ96IOI3T;R3G&(2)2=3IWN*(7J*1*)*6.43L;I3E*(")
M2I	K/N7D"-616JJI3E3A*=:0"0*M2IWR7TKUN*M7CNI7UKB7OSU3IWN2 N	7HKA*	B:/I3C*-B-3E	D3TSE2 CA7R"J	C3I;G3OWR3SN 7OSN3R3O2 C7AOR6MNJ3CGHR&,*0>I7ESN+R7Y3E	XT*M.9"92IGC+LCL7CKH+IO*-24+I	C6MNJ2IGT7D2II7C"J	S3ASN.IF("767"J	S3DGC2I	\C*M2I[I2(OI.-Z2.)"9.1&,*822.9F8.M&
"8&1+IF+I7C*1&0.9V9.,F9.9&,"965.J&925&I3F&(/CF-.3&)*926.9^9.,&9"6*M.9Z92I[I2(OI.-J3.)&9.8&,*924.9R9.M&J"9&73C;O3T;IU7E2J&I/CN="2*M/S	\*9242I7J3P& 2ICA	R2/WR7TKUN*M2MNJ****2*2I3IWN2 WF+ECD7FWO+N;D6.J 7EWT+RCN3E3O.M&J"1&93K;I/DB="M&J3RGE/LB=".606JJI7EWTR7N*
+C****6I+^2 ?F3USN2,^ 3O?T6 E+ICT3P	O+NCT+ICF3OWN6 OI2 OA7T[IE*M.9J82I?C3N	T3NWU6MNJ2IGT7DJI3T3F+D>I7RSE3U;R2 OA7T[IE6?"J	S3SGN2 3CA*M2I?G+TCO.7^46MNJ3R[T+L3D"I&06IJ/7EWT+RCN3C[D2 	C3FZ 3I3ED*M3S*I3M	P6ISR7AKD6I&/+E3S2 ?G2 ?T6 E+ICT7RWO3T;IE*M7SSR7AKD.,BI
MNJ2MNJ****2*VI/O+F2 WS3TV +OCF3E	X3TF 7DKD7EOS2MNJ2IGCL	L21V,O7F"J	C3A
R*IO\*N2MNJ"I&I2	T3I
N2	V 7XSI7SR 3O2 3IWN6 WN3MWB+RN "6"J	C6I^I3H;E6 SI2 ;E7CWO3NWT+RCS3ESN2-[O2-	F+LCEO7N"J	C2IZI7OSR3R;A2 ;U+ICT"4*MC*M3SVI7NKT3YVIO7F"J	S3CGPG	E"2626JOS",*M3S?EF&,.0B;6MNJ2IGT7DNI6MNJ2IOD7A2IF7L6J3S+F3L2I3HT*M7SRI3A	D*IOS6MNJ2IGIC&I2/GM+KCE3AN +DCF3C[I6MNJ
IOD7AJI3T3F+D>I7GSE2 WR7TKU3NZ 3I3ED*M3S&IN	CS6"J	S3TSA7INI"*M3S&IN	CS6"J	S3DGC6ISR7AKD6IN/3AWV2 WR7TKU3NF 7DKD7EOS6MNJ2IWR3T;R2I?EF*M2I;ED*M"L2BZ

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