File KUKOR.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.I3U?KR*MC*M+CB * B 2 . 7UOR3WA+L6 2 . 7OKR7ESK7UWR3NWT7RKP7OKG3A7M2MNJ"M&J3SKU7RWO3T;I3E. 3U?K3R&("16)*JB * B * B 3C7O3M;O2 [I3O7R2,I3AKL6,OI+T3A7ISS3B&,3SST6,OI+T3E7ISS3F&,3S
T6,OI+T3L7ISSM*M* B * B 2 N 3O7M+OCN3L;A3F&,3A[N*,3II62*JB * B * B 3D7I7EON3I;O* I*121.1"42)&,.1Z(.,R1*82)+I"2.1"4")*M* B * B 2 & 3SGP+C6=.2F0"6*M.2B12I?F3RGM3TF("26)"J&83W	R+TCE*(21.3B0")*M.3B02I?F3RGM+T>(2	?K3RWR7KWT3R;E2 ?F3LWG3NWD3RGM3SWS3NV 3I
N3EWB+N^:*,^/61N.7CWH3EWLR*M2I:13U7M+E
R./J	2.?C+DCE3FWU3RR +ICE7KKO3R/E7TKU3SWT3LWL"	6).JF36IKW3IWT. F(.,F3"06).JF320ZI3O7R+AT2/.	* CO7RJ * CE7KR * CU3RN * CO3DV * CS*:2	6/*	7UKB3I
N7EOR7CWH/L+E"	*M*I21*33X.	F1*	>,2		E7NKT7IST2 ;I. F1*:2	*43X.	J1*	>,2	GJ3H
R3A
N7SSS3UWF*:2	*43X.	N1"	6,.JJI2/"	3AKL3JA+R^:.,B1+X^,*1^4*,^/3A	B7TKU3FOA3HWW7COH/E+L. V1*	>,2	/L.1F:*62	*33X"M&J232	/K*2*1^76,"3.,N	..+A*1^86,"3.,R	..+A*1^96,"3")*M6IKW3IWT. F(.,J3"06).JJ320ZI3O7R+AT2	/G.1J:*02	*33X2	/G.2J:*12	*33X2	/G.3J:*22	*33X2	/G.4J:
32	*33X2	/G"56:.JFI*2^46,"32,^	/K*6*2^5")*M6IKW3IWT*(21.3B3")*M.3B32I?F3RGM+T^(7DSA7EON7A+T2 ?L3EOS3H;E.:&9"	6).JB46IKW3IWT. F(.,B425&)3SGPC6,.JB425ZI3O7R+AT6/N	/N+R.	Z,3XF,"16)"J& 3RGE+D" .1V,*0&63I;SR*M2I[I2 &(7SKN.)R .1J,.,F4.MRJ21&I3ZWA/H7L"1*M6IOI/NC
"=602J&I7SKN.1B="M&J+DCO.2B2. GK*=21.1"4"M&J+ICF.(GI*(21+K&16-OI+N	R. J2.5J,*320.2V2.MJJ"3&03I;S/R61K612J&I3ZWA/H7L3IGZ3E3H"+612J^I3O?T.(J2.5J,*225.2B42)&,3ZWAH7L.JJ225&I3F&(*(21+K&16-OI+N	R. J2.0J,*125.2B2.MJJ"1&53I;S/R60K612J&I3ZWA/H7L3IGZ3E3H"+612J^I3O
T.(J2.0J,*220.2B42)&,3ZWAH7L.JJ220NI7OSN7IWNE*M2I[I6(OI/NCR6+OI/NGR.)J *420*420.2B4.MJJ"4&03W	R+TE.1R,*0&67ICS+A3C.MRJ"0&67FKO7MSA2(N	3OWD*:2	*53X+A&1"M&J3RGE+D" .1V,*0&43IWFC7O2J&I3F&(3FOE/O&-*9B)*426*425.2B4.MRJ25&I3F&(7SKN*0B)*428*429"468.J&4.IGI*(213I
S+R&1"=602J^I3O?T. B52MNJ2MNJ"I&I"I&I3S	E+TCE"2*MC*M"4&8+IF3I;S+R&1. ^4.,F5.,^4.MVJ21&I*(213I;S+R&0"=602J^I3O?T. B5.MRJ27&I*(213I;S+R&0"=602J&I.1F(6,OI/NGR.)B=.MVJ60^I7RSI/EF(.,B420&)7SKN.MRJ"0&07FKO7MSA2(R	3AWT7NZ +OCN3SC3U3E+ECR2	&,*3B,2	^ 3E?L3EOS+H
T")*M2I?G+TCO"460.JZ42I[I2([I3E?C.-V2.)Z *020.6B0.,R2"0*M.6B02I[I2([I3E?C.-B1.)R2.0J,*420.6B1.MZJ"1&03IWF/C7O3IWF+C7O"1602J&I+F" 3IWF+C7O*6B)*825.1B1.,F1"0*M"8&5+IF3I;S+R&1*820*420"860.JB82I?G+TO.1F0.,B1.2F,*023.1R0.,B1*52)3IWFC7O.JB161^I7RSI+E" .1V,*0&1+
"122&,7SKN"16)6J^I7RSI+E" .1V,*0&77ICS+A3C.MVJ"0&17FKO7MSA2(Z	7AOL/C+H* B * 2	+I&1"M&J3RGE+D" .1V,*0&2+I"122&,7SKN"16).JB522ZI3O7R+AT+I&1"M&J7GSO/OR "0*M.1J06IKW3IWT. F(.,B521&).1N(6,OI/NGR")*M6IKW3IWT. F(.,B527&)3SGPC6,.JB527ZI3O7R+AT2		R7CSH/I+G* ^ .,GA
)*M2IWR+ACD*(21.5J0.)GI*(233I;S+R&1"M&J7GSO/OR "0*M.1N06IKW3IWT. F(.,B523&).1R(6,OI/NGR")*M6IKW3IWT. F(.,B527&)3SGPC6,.JB523ZI3O7R+AT2	GF3LOS+HB:* B 2	&,"26)6JJI3ESA. F(.,B524&).1R(6,OI/NGR")*M.5R02I?F3RGM3T&("26)2J^I3O?T. B4.MFJ"0&43W	R+TCE*(21.5F0.)GI*(
53I;S+R&1"M&J3W	R+TCE*(21.5^06)OI3POA",*M2IWR+ACD*(21.5J0.)GI*(253I;S+R&1"M&J7GSO/OR "0*M.1V06IKW3IWT. F(.,B521&).1Z(6,OI/NGR")*M6IKW3IWT. F(.,B527&)3SGPC6,6JJI3ESA. F(.,B522&).1Z(6,OI/NGR")*M2I?G+TCO"460.JF120&I3F&(7SKN*0B).1V1.,B4.,F1"5*M.1V12I[I3E?C2=[
3E?C"-646J^I7RSI+E" .1V,*0&53I&(3FOE3O&,7SKN"06).JB525ZI3O7R+AT2	GF3LOS+HB:.	N,3X&,"36)6J^I7RSI+E" .1V,*0&77ICS+A3C"M&J3RGE+D" .1V,*0&63I&(3FOE3O&,7SKN"06).JB526ZI3O7R+AT+I&3"M&J7GSO/OR "0*M62JI7EWTR7N2JVIN7D&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