File GETNEU.FT (FORTRAN source file)

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

6IWS3B?R3U	T+NCE7GSE3S7Y"M&J3C7O3M;O2 WN+R3R3L;I3E2,3L&,+C3C3IC2,OL6,OI+Y3M3L;E6,
I3OSR6,CI3O;I3T&,3D&,A7L2JNI3O7M+OCN3N7A3E&,3RWZ+I3G3LWZ+I3G7MA2,3I6,OI3TKA"M&J3C7O3M;O2 GM+X3E3M;I3E.,7MA2,7N+A3X7IS2,3L3E
N6,OI3L;E3G&,3SGMX*M2I	D3M;E3S?I3N& 7WKO/DJ(.9F,*02)3I?P7ISN.(Z2*,&22,SI.(B12)2,+EN*2&9"M&J3D7I7EON3I;O2 	L+NE*8&02,GN+ME.2B0.,B12)&,3RWZ+IG.2B02)2,3Z	E/GJ(*0&0"M&J3D7I7EON3I;O6 OI3TKA.(B6"06)2J&I/BB=.MVJ2I[I2(OI/HJ+.0Z1.)V1.,B1.,V1.MFJ20NI7OSN7IWNE*M3S*I
MCS7GSEC7H2J^I3O?T" 65.JV12I[I2(OI/HF+.5R0.)B4.,B2.,B4.MJJ20NI7OSN7IWNE*M3S*I+MCS7GSEC7H2J&I3F&(+C/H.1^3.6J).5N,.0J,"5*M"2&5/I7B"1*M2IOI3C&=+C7C"1*M2I?G+TCO"5*M"3&03IC7VKO2=OIH*M3S*I+MCS7GSEC7H2J&I3F&(7C[H+O/R.1^3.6N).0N,.5N,"0*M"3&5+IF3IC.+R1*4&0*320*327
360.J^32I?C3N	T3NWU6MNJ2I7J3S^ 3EOTH*M2I?G+TCO"5*M"4&03W	R+TE.4Z,*5&03IOC.MZJ"5&07FKO7MSA.(SI*,B	"	6)2J&I3F&(/BF-.)N4.,J4.,N4.MRJ22&I/C7H.-V1"064.JN42I[I2(OI/H&-.6F)*020*425"465.JV42I[I2(OI/HF-.6Z9.)B5.,B5.,B1"0*M"5&0/I7L"0*M"5&2+IF3I3A2-3I.)R5.,R5.,N5.MV
23&I3L&=/LF+"M&J+ID+I	L2=OIH*M"5&43C;O3T;IU7E"J	S7JOM2 WG3TC"M&J+IF*9663IC.)V5.,V5.,"5.MVJ25&I3F&(+C7H.1&6.6V).2V,.2V,"8*M"5&8+IF3IC.+&9.2R).7V,.9V,"9*M"5&9+IF3IC.+F4.6V).2V,.2R,"7*M"4&7/I61+I/L"1*M2I?D. F3. 7I+I21"160.JF32ISI*(	I.=J-.0Z1"M&J+J"=+ID*16)*3
2./R6"M&J3M&=3P	O+NT/JF,")*M.I7N3I?P7ISN*(3J"26)2JRI/OZ 20& *=3MN*M2I[I2(3I2-WL3N&(.)Z).0&,.8Z,"0*M"9&8+DCO*7B0/I61.2F,"0*M2I[I2(SI.(GI2)&-7WKO3D&(.,GI.)Z).0^,.0Z,"0*M"7&03C;O3T;IU7E2J&I3S7Y.=B5"+7I6JJI7EWTR7N.JB62I?C3N	T3NWU"M&J7I	S/MF="M&J7RSE3U;R.MFJ"0
0+IF3IC.+&9.2F)*820.1V0.,B1"5*M.1V02I[I2(OI/HR+*1&6.1Z0.,B1.6F,"860.JB126.I"=602J&I3N7U"=602J&I3S7Y"=62.JB128&I3N7U2=;I+U+M*1.02(OI/H&+*9&2./R6"M&J3K.="+61"J	S7JOM2 WG3TC"M&J+IF3IC.+&9.2F)*125.1B1.,F1"0*M.1B12I[I2(OI/HR+*1&6.1"0.,B1.8F,"165.JF125&I3F.(2-7
+A	X.1Z1.,F1.6F,"260.JF126&I3F&(3N7U2-7N+A	X.1^1.,F1.7F,"260.JJ120NI3A3L2 WF+HL*2&1"M&J7IWN/MB="M&J/KB=.MFJ"1&77RWN3MZ=3LGO3T&(3N7U")*M2I[I2(OI/HF+.1B2.)R1.0F,*221.1B4.MFJ"2&13C;O3T;IU7E"J	S7JOM2 WG3TC"M&J+IF3IC.+F1*2&0.1R2.,J1.3F,"264.JJ123&I/C7C3IOC"-61
J^I3O?T. R1"0*M.1R26IOI/Y7M"3*M.I7K"0*M.1^22I[I2(OI/H&+*9&2.1B4.,J1.8F,"268.JJ128&I3F&(+C/H.4Z1.)N1.0F,*320.1B4.MFJ"3&03K.="-616JJI3N7U.=B16.J*3N7U2+3F7OSA2(&(+C/H.9J9.)Z/"46)"J	S7JOM2 WG3TC"M&J7GSO/OF "267.JR120&I3F&(+C7H.3J5.)^1.0F,*421.1B7.MFJ"4&17I	S/
N=6MNJ2I7J3S^ 3EOTH*M2I[I2(OI/HF+.3J1.)V1.0F,*422.1B5.MFJ"4&23C;O3T;IU7E"J	S7JOM2 WG3TC"M&J7GSO/OF "565.JV120&I3F&(+C/H.1"1.4F)*525.1F5.,V1"5*M.1F52I?C3N	T3NWU6MNJ2I7J3S^ 3EOTH*M.I7I"-61.JV125&I3F&(+C/H.9J9.)Z1.0F,*526.1Z5.MFJ"5&6+IF3IC.+F4.6F)*527.1^5.,Z
"0*M.1^5.I7J/JF**0"+3IC.+&9*2>)"664"J	S7JOM2 WG3TC"M&J7GSO/OF "565.JZ120*I*=+J3I.+"M&J+IF3J6-3AWX.)Z1.1F,*621.1V6.MFJ"6&1+IF3J6-3IWN.)Z1.5F,*720.1B7.MFJ"6&53C3A3LZ 3E3H.(F2")*M.I7J"0*M.1B72I;R/U7M7RWN/MF**0*."*7J6J^I7RSI/ER(.,V625&)3S7Y.MZJ"5&57FKO7MSA.([
*,B	"	6)2J&I/S7X"0*M2I?G+TCO.(^1.6F,*726.1^72)&,3S7Y.MFJ"7&63W	R+TE.4Z,*5&57IWNM*M2IWR7TKUN*M.1^76IKW3IWT*(24.6B62);RU7M.JZ620ZI3O7R+AT21V8*4^,* &	"M&J7RSE3U;R.MFJ"8&03ISN/E7X2-&(+C/H*3&2./R6"M&J+IF3ISN+E/X*2&8.1J8.,"1.4F,"866.J"122&I3F&(3NWD/XN+.0F)*920.
"8.,&1"0*M.1"86IOI/Y7M"1692J^I3O?T. B5"0*M.1R86IOI/Y7M"1682J^I3O?T. B5"0*M.1B92IGC+LCL7FSA+AL"06)2J^I3O?T. B5"0*M.1Z82I[I2(;I7DE.-Z1.)&1.5J,*820.3B0.MFJ"9&5+IF3ISN+E	X.1B9.,&1.0J,"260.JJ220^I3O?T. J(*320.2B4.,V2.0J,*620.2B72)&,3NWDX*M.2B32I?C3N	T3NWU6MNJ2
7J3S^ 3EOTH*M2I[I2(OI/HF+*6&0.2J3.,N2.1J,"362.JN221&I3S7Y.=V1"M&J7GSO/OV "060.JN222&I3S7Y.=R1"M&J7RSE3U;R.MJJ"4&07I	S/MF="6*M2I?G+TCO.5B0.MJJ"5&03C;O3T;IU7E"J	S7JOM2 WG3TC"M&J+IF3IC.+Z1.0J)*522.2F5.,V2"2*M.2F56IOI/Y7M"1632J^I3O?T. B5"0*M.2J52I[I2(OI/H&+.6
)*525.2N5.,V2"5*M.2N56IOI/Y7M"1672J^I3O?T. B5"0*M.2V56IOI/Y7M"1626JJI7EWTR7N.JZ220&I3S7Y.=N2"M&J7GSO/OV "060.J^220NI7OSN7IWNE*M3S*I+MCS7GSEC7H2J&I3F&(+C/H.1B6.)^2.3J,*721.2N7.MJJ"7&17I	S/MJ="0*M2I?G+TCO.5B0.MJJ"7&37I	S/MJ="4*M2IWR7TKUN*M.2B86IOI/Y7M"2622J
I3O?T. B5"0*M.3B02I[I2(;I7DE.-&2.)B3.5R,*020.1B9.MNJ"0&5+IF3ISN+E7X*1&7.1B9.,F3.0N,"260.JF320NI7OSN7IWNE*M3S*I+MCS7GSEC7H2J&I3F&(+C/H.1J1.0N)*122.3F1.,F3"2*M.3F16IOI/Y7M"2652J^I3O?T. B5"0*M.3J16IOI/Y7M"2616JJI7EWTR7N.JJ320&I3S7Y2=;I7DE.-J1"M&J7GSO/OV "060
JB420.I"=602J&I/BF="M&J7I	S/MV=6MNJ2I7J3S^ 3EOTH*M.4V0.I7K/KF+"M&J+IF3K2-3L;E/GR)*027.4^0.,B4"6*M.4Z02IGC+LCL7FSA+ACL*(&8.MRJ"0&7+IF3K&-3SGM/XR)*125.4V1.,F4"0*M.4B12IGC+LCL7FSA+ACL*(&7.MRJ"1&5+IF3IC.+"1*8&8.4"1.,F4.6R,"168.JF426NI7OSN7IWNE*M3S*I+MCS7GSEC7
2J&I3F&(+C/H.1"8.8R)*129.4"1.,F4"9*M.4"16IOI3TKA*(	K2=OIH*M3S*I+MCS7GSEC7H2J^I3O?T. J4"0*M.4&12IKI"=60.JJ420&I3F&(/BR)*025.4V2.,B4"5*M.4V26IOI3L;E3G.="-612J&I3F&(3SWL+N	G.4B4.,N4.0R,"460.JN420NI3A3L2 WF+HCL.(Z3"56)2J&I3S7Y.=V6"M&J7RSE3U;R.MRJ"4&0+IF3I3S3E
N*-&1.4B5.,R4.1R,"560.JR421&I3S7Y"=64.JV460^I7RSI/ER(.,V625&)3S7Y"M&J7IS"=602J&I3F&(3S7Y*-&5.4V4.,R4.2R,"465.JR462^I7RSI/ER(.,V625&)3SWLN7G.JR465^I7RSI/ER(.,B1*3&16(OI3TKA*(	I.,7I21&,3SWL+N	G"M&J7RSE3U;R.MVJ"0&03C;O3T;IU7E"J	S7JOM2 WG3TC"M&J7RSE3U;R6MNJ7G
E+C3H"I602J&I3F&(+C7C+L	L.1B1.0F,.0B2.,B1"260.JB1"2&0+IF3L;I3E2(+L.).1J1.0F).0B3.,B1*225.1N0"0*M.1J025&I3S7Y.=F2"M&J7RSE3U;R.MFJ.0B32IOI/CB="M&J/L7L"8602J2I3C2=/CF+"M&J3W	R+TE.4F,.1B52)OL.MFJ.1B52I?F3RGM+T^(*-B12	&/*4^,* &	"M&J3RGE/DR(.,B1*3&12(	L+NE+I2)/
F=.,B8")*M.1N021ZI3O7R+AT28F0"16).JB1"4&9+IF3L;I3E2(+L.).2F0.6F).1B0.,B1*520.1B1"0*M.1V0202I3L2=/LF-"M&J7GSO/OF .0&4.MFJ.1B02IOI3C&=+C/C"1*M2IOI3H2=3IWN2(OIC6)"J	S7JCM* CI7GSEC7H2JVIN7D&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