File GETALT.FT (FORTRAN source file)

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

6IWS3B?R3U	T+NCE7GSE3S7Y2MNJ6 B 3AOS+A7L7SB 7AOR+ECR2 WV3R	S+OCN3V7O. B2..J1..B8"M&J3C7O3M;O2 	D3NZ,+I3N7NKE3R&,7EKR3S2,3IWN2,3L2,OI3C&,+C3HL7C2JNI3O7M+OCN7I	S3M2,+E3N3I?W+R3D3I?P7ISN2,SI2,GIL*M2I?C3M?M3N: 3AWM6,KI3Z	E3G2,3Z	E3G6,+A3X+I3L7ISSA7B2JNI3O7M+O
N7MA3E6,3IWN2,7K+A3X3NGM3X&,+S3X3LWL+N3G3I3S3E
N6,OI7MA"M&J3D7I7EON3I;O2 	L+NE*8&06,+L3E
I.(B2*02)7I+R3E
I.(B2*02)3N7A/EJ(*020*1&0"M&J3D7I7EON3I;O6 
I3OSR.(&2.,B12)&,3P	O+NT*226*22)+ID*1&02,WL/NJ("96)2JRI3IWM3N	S+OCN7IKE+RS*621*32)7ISS+AB.6B02)&,3Z	E/LR("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+MCS7
SEC7H2J&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&07
KO7MSA.(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.MVJ23&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&
3N7U"=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-7K+A	X.1Z1.,F1.6F,"260.JF126&I3F&(3N7U2-7N+A	X.1^1.,F1.7F,"260.JJ120NI3A3L2 WF+HL*2&
"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"-612J^I3O?T. R1"0*M.1R26IOI/Y7M"3*M.I7K"0*M.1^22I[I2(OI/H&+*9&2.1B4.,J1.8F,"268.JJ128&
3F&(+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&13S7Y"=63"J	S7JOM2 WG3TC"M&J+IF3IC.+N1*1&2.1B5.,R1.2F,"560.JR122NI7OSN7IWNE*M3S*I+MCS7GSE
7H2J^I3O?T. V1"5*M.1B52I[I2(OI/HF+.1R8.)V1.5F,*521.1V5.MFJ"5&13C;O3T;IU7E"J	S7JOM2 WG3TC"M&J+I6="1*M.1V52I[I2(OI/H&+*9&2*620.1Z5.,V1"6*M.1Z52I[I2(OI/HR+*1&6.1^5.,V1.7F,"660.JV127*I*=+J*1.02(OI/H&+*9&2./R66MNJ2I7J3S^ 3EOTH*M2I?G+TCO.1V5.MFJ"6&03J*=**/IK*M2
[I*(7J7MA/EF)*621.1F6.,Z1"5*M.1F62I[I*(7J3M;I/EF)*625.1B7.,^1"0*M.1V62IGC+LCL3FE/LJ("16)2J*I"=60.J^160JI3N7U2=;R+U+M*1:02***"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.1"8.,&1"0*M.1"86IOI/Y7M
1692J^I3O?T. B5"0*M.1R86IOI/Y7M"1682J^I3O?T. B5"0*M.1B96IKW3IWT*(21.1F92)OIH*M.1F92I?F3RGM+T^(7U+N3UGL7EOS3IWG7S* 3EOI3H;E*:B 2	F,"16)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,*62
.2B72)&,3NWDX*M.2B32I?C3N	T3NWU6MNJ2I7J3S^ 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"
632J^I3O?T. B5"0*M.2J52I[I2(OI/H&+.6J)*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.-R2.)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.J
320&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&++S7X3I7S+A	X.4V1.,F4.5R,"160.JF420NI3A3L2 GF3T3A. ^(")*M.4V12I[I2(OI/HF+.5"6.)F4.8
,*126.4"1.MRJ"1&63C;O3T;IU7E"J	S7JOM2 WG3TC"M&J+IF3IC.+V1*6&8.4&1.,F4.8R,"169.JF428&I3SGT3B.(6+OI/X6)3IC6MNJ2I7J3S^ 3EOTH*M2I?G+TCO.4B2.MRJ"1&9/I7B"0*M.4B22I[I2(KI.)B4.5R,*225.4V0.MRJ"2&53I3S3E
N*=7K"1*M2I[I6(OI3L;E/GR)*420.4B3.,R4"0*M.4B32IGC+LCL3FE+L" .3V6")*M6IOI/Y7M"6652J^I3O?T. V4"0*M.4B42I[I6(OI3L;E/GF-.)V4.0R,*421.4B5.MRJ"4&17I	S/MR="M&J7IWN3M&=S7X2J&I/S7X7IS6+OI3L;EG*M.4B52IWR7TKUN*M.5B02I?C3N	T3NWU6MNJ2I7J3S^ 3EOTH*M2IWR7TKUN*M3SWG3TC.,
I"M&J+IF3IOC2-3L.)F1*020.1J0.0F,.0B2.MFJ.0B22I[I2(	L+NE+L	L.+F1*2&0.1N0.0F,.0V2.,B1"360.JB1"2&53I;E3D&=3ESN"+612J&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)/IF=.,B8")*M.1N021ZI3O7R+AT28F0"16)2J&I3ESN2=WI+N/D"1*M.1R029&I3F2(3IWN2(3L.)J+.0Z1.)F1*020.1V0.0F,.1B0.MFJ.0B52I3L2=3L"-612J^I3O?T. B1"469.JF1"0&03IOC2=OI/CF+"M&J3IC2=	L+NE3IOC")*M3S*I+MCP3I^ 3EOTH*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