File LILI.FT (FORTRAN source file)

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

7CR 3E3I3P?R3GGR+MCM3L3I7IZ +OCN7KKU3V;E2MNJ2 ?K3OSR3IGN3T;E* B:7AOB7ZOI+SCE2:2 3IWN+ACR2/> 3R	D7NSA/E* 2 	L3NGER*M3CZ 7OSR3R;A2 	I* B/7OSP3I;O2 &(")*M7CN /R* 6 KE3AWS6.SF* B/7ACL+H;A+FCT2/" 3OWM6.SF* B/3F	D3SZ.+T> 2 GK+K;OF7T*JCC+CCH2:6 3RGV6.[S* B/+N;PS
V2JNI3O7M+OCN+N3O+N21+N3G3IWT+X3T+X3A+X3E+Y3AY7E2JRI3IWM3N	S+OCN+NG*9&96,SI7ESX*(23*1&52,KA+ZW*9&9*,M"46)6JJI3ESA*(21.1B02)SI.MFJ"0&07FKO7MSA2(6	7EOS7WKE+TCE*(&12 SO+ECR3SGT7TOI3T/I2-WW3RWT. J(.)* 2 &	"16)2J&I3F&(/DF-*)24.4J,.MJJ6IKW3IWT*(21.1F0")*M.1F02I
F3RGM+T>(2	KA3S	Z3SWS7N^-7ESR3ER +ECR7MOE3SWR3IWH+N&	"M&J+DCO23& *=21N616J^I7RSI/EF(.,B122:)3G&(2)2,7EKE",*M.1J02I?F3RGM+T^(2 6 +RN 2 &	*2B	*:^ +I&0"M&J3RGE/DF(.,B123F)7B
Z*(	I.MFJ"0&37FKO7MSA.(GF.5Z.")*M23NI7OSN7IWNE*M6IKW3IWT*(21.1R0")*M.1R02I?F3RGM+T>(2	F 7U
S3A3H6 SS3A	T3S	T7K^-7ESR+E" /J7A21:,3E;I*=&0* ^:")*M2IWR+AD.1F,*0&5*(M+J2)/JF=*,&4.MFJ"0&57FKO7MSA*(B	6 KA3IT7MSE3IOS7HKE2 	M3TWT3LWW+RCT*:^ +I>1"M&J*1B	* B * B 2 GM3X7I+UCM3USN2 	M3N7I+UCM*:^ +I>1"M&J*2B	* B * B * B +X/M62N*2 ;U7D" /MJ-**CS*:^ +I>1"M&J*
B	* B * B * B +X/M63N*2 ;U7D" /MN-**CS*:^ +I&1.MRJ2I;A/ZB=".*M2IGC+LCL3K/A7O"(7A",7E&,7A&,E6)6JBI7AOUE*M2I?D. F2. 7I21:,"1*M2I/I"=612J&I3G:=3G&(")*M3S*I+MCS3NST2MNJ2 GN+MCE7DKE2 GD3T	E* B:3T7E7UX"M&J/IGN.=J1"8652J&I/N62.0V8"3*M2I;I23&=E*M25NI3A3L2 ?I3P;E6
B	*12	/IGN")*M2IWR+AD.4F,*0&97ICO3T.,Z*M.1&02I?F3RGM3TF("26)6JJI3ESA*(24.1B12)	F3ZV,3FV,F*M.1B12I?F3RGM3TF("66)6JJI3ESA*(24.1&02)&(3L.,*=21+K	Z"M&J7GSO/OJ(.0Z,2)&,D*M26^I3O?T*(27*1&02,/I.M^J2I?C3N	T3NWU6MNJ2I7J3SF 3MKW"M&J/I7K"2*M2I?G+TCO"5*M"1&03C;O3T;IU
E"J	S7JOM6 SSR7B6J^I7RSI/EF(.,F121F)7B
Z*(	I2,7Y6,OS2,7Y7I&,M7A.JF121ZI3O7R+AT.5GE.2V.")*M2I?G+TCO"261.JB22I;A3ZF=+N/Z7F+I6MNJ2I7J7SB 3KWT.MJJ21NI7OSN7IWNE*M2IGC+LCL3H7OE*M6IKW3IWT*(21.1B9*)"(3IWT+XT3I*,2)*,*=21*1&5.,7I.1N,2)F,N7Z.J&120ZI3O7R+AT.2F(.5KA*,&/.,V1+A22*	B * CN*=^ +F:9"06)6JBI7AOUE
M2IGC+LCL3EGRS7E2JNI3A3L2 C3A;I2(6	3RGV"	6).J&92IGC+LCL3CGH+IN6	CN"	6)2J;S+T3D"I60*JCC3N7U7MKE2 WD3RR 3AWTI*M6I+I2=&(/GF/*0*)"1602J&I3E&=3G&-Z*M6I+I6=+I./B16MNJ2I3C3AN L7L"J	S3TSA2 	\Z*M3SNI+LCL3R3T6;SR7LJ;T7L"J	S3TSA2 	\E*M7SRI+ACD.([K.0B66MNJ2IOD7A2 I7E
J	S7JCM* CI3NST6MNJ7PSKE&,"0*M3C6 7EOS7WKE+TCE7AOL6 WP7NSK3ER 7AOR3T3E3L;E"M&J/D7X.1B0*0>.2(WX2-GX")*M6I	D.=B7*0>.2(WY2-GY")*M.I7X"06..JB1"0&03RGE/DR(.,F160&)"M&J+IF+X7A/XF).0J0.,B1*022.1B0"6*M.1B022&I7F"(7E"-.)B1*026.1B0.3F,.0N0.MFJ.0N02I[I2(GY*-	Y.1B0.4
,.0R0.,B1"066.JB1"0&4+IF+Y7E/YF).0Z0.,B1*025.1B0"5*M.1B025ZI3XR=+X"*7X"-A6)2JZI3YR=+Y"*7Y&-A6)2J&I3XZ=X*M6I	I6=	F"M&J3C3A3LZ 7DOI.(F-6,I6,	I")*M.1B066"I*=/X"16.2JZI/I7Z7F+I*-:1"M&J+IF7F+I.)B1*027.1B0.7F,.0B0.MFJ.0^02I?C3N	T3NWU6MNJ2I7J3P& 2 /PT7E2JGS3MKW.
BI2MNJ6 KA3IT7MSE3IOS3H;E2 	M3TWT3LWW+RCT7BKE3EC3N;E"M&J/A7Z7F+I"M&J/Y7M"06..JB1"1&03RGE/DR(.,F160&)"M&J/Y7M+Y/MY*M2I	F3ZZ=+I7Z"16.2J&I3FZ(+I	Z.1F0.1F,.0F1.,B1"160.JB1"1&1/Y7M+Y?MA7Z"J	S7JCM* CI7A
MB*M7SSS+R3B"I60*JCC7SKT7EWU+NCG3USN2 7Y+A3X3Y	MN*M2I	F3ZZ=+I7Z"16.2JFI3ZZ=I7Z6JJI3ESA*(24.1B1")7Y6JNI+S"=7Y&-+M*)"*626J&I/M7IY*M2I7Y7A&=.MFJ.0J12IWR+AD.4F,*1&0Y*M6IOS6=OS6+&(2-7Y*)**"2*M2I[I*(7Y3Y	M.)B1*123.1F0.4F,.0R1.MFJ.0N12I7Y7I&=.MFJ.0R12I[I*(7Y3YGM
)B1*126.1F0.6F,.0V1.MFJ.0V12I7Y7A&=.MFJ.0Z12I	F3ZZ=+I7Z"16.2J&I3FZ(+I	Z.1F0.7F,.0^1.,B1"162.JB1"1&7/S7S7SKQ7TN(3SF/Z6)"J	S7JCM* CI7SKTB*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