File LESQ.FT (FORTRAN source file)

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

C&N7LOEQ*M3C6I3E;A6 GS7UKA7EB 3R
O3R7A2MNJ2IGM3NGU3L& 3N2 7EGS2.?C2MNJ2IWR3Q	U7ROE2 WD+TB33ASN2 3L+SCQ3F?R7MN S7P"J	C7AOL7OV 7SKE6 WF7NSC3I;O"M&J3C7O3M;O2 [I+E3L+I3X+N3K+N3X/XN(*02)/YN(*02)+X"2*3&0"M&J3D7I7EON3I;O6 WA/XF(*22)+XM*62)3I	P/VZ(2)F,.("1"06)2JRI3IWM3N	S+OCN3K3O*(&5"M&J3D7I7EON
I;O* B*3&6.,KB*(26*62)+YD*72)3A
R.(B1")*M6IGE7U[I3AWL3NWC.(KB*(21*12)/BF(")6).JN1"0&07FKO7MSA.(WI*,B	7OOB7E[R3A	T7OON"	6).JV1"0&07FKO7MSA.(OI*,"/+A&6")*M.1B221ZI3O7R+AT+I2327V(*1:1*4&).MFJ.6B02I?F3RGM+T^(6 KE7RKO+SB	2,&2"46).J"1"1&07FKO7MSA.(R1/XF,+H3X61"92,"1/YF,*83X22KH/YF,*83X22SH+B>
.,R(/GB2*.&5")*M.1B727ZI3O7R+AT.6GE.3N.")*M.1B725ZI3O7R+AT6	Z +A?R7C[O*:B	")*M.1F720ZI3O7R+AT6	N03T;A7DKA3DV 3R?R/R+S*	>,2,"1. Z,/GN1*.&3.MFJ.7F02I?F3RGM+T^(2 GV/R*.*	2 */",.6GG.3N.")6).J^1"0&27FKO7MSA*(2/*	B13CSO+E^=.,WI")*M.1B720ZI3O7R+AT*	B03C;O/S+T*	2
*/",.6GG.3N.")6).JF1"1&57FKO7MSA* ^(2 > 3P	T+OCN+NCO*?2	"$6).JF1"1&67FKO7MSA*(B	3MGE3NN 3H;A+GCE*=2	/GN1*.23*	B 7MA*=2	/GN1*.>3*MBJ* B * ^12 C3A
N+EV *	2 */",.6GG.3N.")6).JB1"0&27FKO7MSA*(B	7ICN+UCT2	&,*5^,2 ?C7NSS7ASN+S&	.MFJ.0F12I?F3RGM/T^(+I&3.MFJ.0B12I?F3RGM/TJ(+I21.5OI")*M.1B020ZI3O7R+AT*/>/*/B	3K
T+G;G*.^." 6)"J&L7DSA7AR 3M;I2,7T+A?X.0F..,B5".6/"J&37R
E3ISN" 666JJI3ESA*(26.1B520:)3GF,*(&12,F(*(	I.,7I21:,G6).JF36IKW3IWT*(20.1B0"06)6JJI3ESA*(24.1F020:)3K&,7TCY2,?KL*M2I[I2(/N2.WN*.&07GSO/OV "M&J3C3A3LZ 3UON3TF(+R3G7X&,")*M2I?G+TCO"361"J&5+IF+N;K+G;T26^)3O?T. F3"M&J+ICF2(?K/LF(2)V./QB.2)?G+TCO"7*M6II"=61"J
43RGE/DZ(.,J1*0&17I",6(I6)&,6(I6)",22&(X6)2J&I3F&(6.GE*.&07GSO/O^ "M&J+DCO26* *=21"5*M2I[I2(?K3L*(2)V.3Q&.2)?G+TCO"8*M26NI7OSN7IWNE*M2I?G+TCO"4*M28&I3X&=/XF+"M&J+IF+I;X+L;T*3&17GSO/OR .M^J6IN6=I"-616J^I7RSI/EB(.,N1*0&0N7X"J&23NGV/R7V"5*M6IKW3IWT*(20.1B022
)K*M2IWR+AD.4F,.2B06)KAG*M.1B220ZI3O7R+AT21Z0*1:3"06)6JNI7MA.=B2"06.2J&I7VKA"=61"J&13IWF/LB="M&J+DCO.1B06 I*=21N7X6JNI*=Y+I	X"M&J+IF7AOB*(	S6.SG*.:1*07E*3&07GSO/OF "0*M.I7H.1B./ER-"M&J7GSO/OF "5*M"1&07HN=./B1*0:0.MFJ25NI7OSN7IWNE*M2I?D. B2. 7J.1^,"M&J/F7J
*M2IOY*=/S+H"*+F7J*4&..MJJ60&I3D*(2)Z=3UON3TF(+R3G3X&(+X2)+Y	C"M&J+IF3IWF3L:./EB.2)?G+TCO.7B9"M&J3C3A3LR /EOT*(3H+Y3D+Y3D27&,3F3E")*M2I[D/D7Y+YD"46)2J&I3FR(7F	D6.GE*.&07GSO/O^ "6602JRI/OF *0B0/JF=2,/N"M&J/A613A
R*(	J"M&J+IF7AOB.(GA2)^./TF.2.V0.-B32)?G+TCO"3602J"I*=:1*07E"4*M2I?G+TCO"365.JB3.I7H+A>1.1B0"06..JV32I?C3N	T3NWU"M&J+DCO*4B0/KF=",672JZI3J.="M&J3A
R*(	J.=GA*++H2(+F*-:4")*M"4&0+YD/K6)3F;U+CT3A
R*,X+I	X*,	S"M&J+IF3IWF3L:./EB.2)?G+TCO.7B9"M&J3C3A3LR /EOT*(3H+Y3D+Y3D27&,3F3E")*M2I[D/D7K+YD"46)2J&I23&=+X"+/JF-2):*X*M*IA+I&32=[D+D?K2([D+D+Y+S**7I	TP6).JB86IKA3G*(2)F="1*M*IB+I	X2=Z-3UON3TF(+R3G3X&(+X2)+S>)2([D+D+Y+S**7I	TP6).JB120NI7OSN7IWNE*M2I?G+TC
.(F1.0V,*0&06,[IA7R.JF120NI3A3L2 3L+SQ3AJ,6,N2,/N*,21+X3M3I	P/VF,2.V0*-273IWF3LF,+U	X"M&J/S7S7AU*(&1"M&J+IF3IWF3L:./EB.2)?G+TCO.7B8"M&J/A61"0*M.I7H"0*M2I?D. F126& *=21N7K6J&I3D&(6)"=3M&(2)F/+RG+I*).1B0"M&J/Y7C7AOB2(SY*(	I")*M.IGA2=7A/AGX.(GA2,OY")*M.I7H7H
+C*M.1Z12I7X*(	I2=7X*(	I6+KA3G&(")*M6IKW3IWT*(20.1B7*0")+XM+I2)/IF=2,/N")*M.I7H3H:/K*M6IKW3IWT*(20.1F126").,GA6,&(3D&(2)&,*=21+N	K"M&J+IF+A:1+L;E3T	M3N^)3O?T. V1"9*M2I[I.(GA2.WG2.7T+A;X+O;R3H^./TF.*.*13SGM3X^)3O?T. Z1"0*M2I7S/A7XH*M6I[N7A[R6=[N7A[R"-612J&
3F:(7VKA3V^./TB.2)?G+TCO.2B2.MFJ"6&03W	R+TE.0F,.1V1")*M2IWR+AD.4F,.0F16)[I+A3R3NGVR7V"J	C7ICO3TF "=*M/CBI6IWQ+ICT7HKEE*M/CFI2IGC7R	R2 ;O6 SI3EGR3T?IN7S"J	C22^I7OR 3OV 7NKD3U	TN7E"J	C63JI3ESA2 WN3WF 7RWG3M;ET7S"J	C64JI3ESA2 WN7W" "/7Y"J	C25FI3SZ +OCR21J +U
T3NGV+RCV7SSE. CT" 652J&I+F" 3IGV3R2./EB.2)GC+LCL3E	XT*M2I[I6([I+A;R+G;T25^)3O?T. Z1"0*M2I?G+TCO.(J2.0F,*,22.3J,*6&06,[IA7R.JV129&I7VKA"=622J^I3O?T" 61.JZ220:I7VKA/VV="M&J3IGV/RF=.MJJ"2&0+DCO.2B5. 7I21:,K*M.2B56IKA3G&(6)"=3M&(")*M2I7S/A7XH*M2I?G+TCO"1*M.5
02I?D. B620& *=21N7K2JRI/OZ *0B0/JF=2,/N"M&J/SB=".*M2I?D. J520. *=21N7X2J&I23.=2+&(*-&16*N"M&J/I64+K"+/JF-2):*X*M.5B2.I7S3SF+.(OI2)F*.(SI")*M.IKB*(3I/J6)S*M.6B0.IKB*(3J/I6)S*M7CNI2 	M+NCV3F?R7MB 7EOR3S;O"M&J/I63+N7K"1*M.IKN"=602JRI/OZ *1B1/LF=2,/N"M&J7AU2
/N.)F=*.>0+B"2.1F,")*M.IKN.=KN"+612JRI/OZ *1B2/KF=.,OI"M&J/KGP*=/K"1*M.6J16IWA3X.(2)J=.2F(6,CK*1*)7AU2(/N")*M2I?D. F623& *=21I632J&I/P61/IF+"M&J+B"23I:,/K6)6-WA3X:(+K*)+B"2/IGP*,&1"M&J+DCO.6N1. 7J21&,"3*M6ICJ21*="+61.JF623JI22&(*,	J.=KB6(CI21*,+P&16-WA3X*
2)J*22&(+P21"16)2JRI/OZ *1B1/JF=2,/N.MZJ"1&1+B"2+N3K/J6)7AU*(	J"M&J+DCO.6B1. 7I21:,K*M.6B16IKA3G&(6)"=3M&(")*M.I7S"0*M2I?D. B720& /XF=6,N"M&J/Y7B3F;U+CT3A
R*,X+I	X*,Y+I	X")*M*IA+I	X6=&(6(I6)&-B6).JB760NI*=/S+Y+B**>23Y&(+X*)6*SIY7P"J*M6IKW3IWT*(23.1B722&)7TCY"M&J3W	R+TE.3F,.7B02)F(+RG+I2)/IF=2,/N")*M2I[D/D7K+N7X+N7K"1*M6IOS7DN=3SR/3F/D"M&J3W	R+TE.3F,.7F06)OS*,3S3SSS"M&J3W	R+TE.0F,.7F06)OS*,3S3SSS.M^J"0&53W	R
TE.3F,.7V0")*M2I?D. B726& *=21N7K2JRI/O^ *0B9/JF=",7I.JB769&I3D*(2)J=22&(*,	J6*OS2/[DD7K.JB766^I7RSI/EN(.,^1*0&72(SY*(	J.,7J21&,")*M2I?D. F720& *=21N7K.JF760&I3D&(6)N=7QSR.(KB*(3I+I*)+S?S3DSFK6)6J^I7RSI/EN(.,^1*1&02(SY*(	I.,7I21:,K6)2JRI/O" *1B1/IF=6,N.M"
"1&13B&(*)"=3Y&(2)F-*(	I")*M6IKW3IWT*(23.1F8*0")3X&(6)&,*(	I*,A+I2)3B&(2)&,*=21+N	X"M&J7GSO/OF "660"J	C3DSF/YB=.M^J"6&03IWF/L62"-612J&I3F3E"=60"J	C7EKR+OCR3CSO+ECS3AWR2MNJ2I[I/EKL2I&I3F3E2MNJ.IF-*IBI3DSF/YB=2MNJ"I&16IKE7RKO3S& 3N2 7LGS2 WS7ER 7HOI.(GP*6B2
SCS")*M/CJI2IVI3R?R3R& 3NZ 3UONT*M.9&96IKW3IWT*(20.1B620&)3F3E22&,3F3E"M&J7GSO/OF "660"J	C7EKR+OCR+ICN7LOLQ*M.7B82I[I/EKL"=612J^I3O?T. &9"9*M3CVI3R?R3R& 3NZ 3UONT*M.7B92I[I/EKL"=622J^I3O?T. &9"9*M2I;ED*M"LBZN7S"J	C22^I7OR 3OV 7NKD3U	TN7E"J	C63JI3ESA2 WN3W
 7RWG3M;ET7S"J	C64JI3ESA2 WN7W" "/7Y"J	C25FI3SZ +OCR21J +UCT3NGV+RCV7SSE. CT" 652J&I+F" 3IGV3R2./EB.2)GC+LCL3E	XT*M2I[I6([I+A;R+G;T25^)3O?T. Z1"0*M2I?G+TCO.(J2.0F,*,22.3J,*6&06,[IA7R

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