File ELI1.FT (FORTRAN source file)

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

C*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ2MNJ* B * B 6 N 7UKB7OSU3IWN2 3EI61"J7C*JCC* B * B 6 WP3R?PS7E*JCC* B * B * B 2 ?C7MWP7TOE2 T3EV 3L	L3P	T3C& 3NWT3GGR3L> 3FZ 7IOR3T. 3ISN2MNJ2MNJ* B * B
6 V 3S
AE*M+CB * B * B * B 3C3A3LV /LGI2(WR7S",2,/C")*MC*M+CB * B * B 7DOE3C	R3P	T+OCN+OCF7PKA3AWM7TKES*M+CB * B * B * B 7ROE* B 6-J 7EWS+LCT3V3AU7E*JCC* B * B * B * CX* B * B-7UCP+ECR7ISN7EKG3A	T+OCN7BWO+NCD6(KA3G7U7ESN2 [O2 3E7LCI3TOI2MNJ* B * B * B * B * B * 
 2 ;I3T
E3R3A2 [O2 	F7RSS2 	K+N	D2MNJ* B * B * B 2 N +KB * 6 2 ?C3M3P3EWM3NGT+RCY3MSO7UWLS*MC*M+CB * B * B 3R7E3A/RS*M+CB * B * B * B 3MSO7UWL3S. * B=7SKQ/TF(2.N-3KN*+K:)2MNJ2MNJ* B * B 6 N 7UKB7OSU3IWN3SF +NCD3F;U3C	T+OCN3SKU3P?R3GGR+MCS7RGE7UKIE7D*JCC* B * B * 
 2 ?NN7E"J7C*JCC* B * B 2 WM3T?HD*M+CB * B * B * B 3D[E3I	N3T?IN*M+CB * B * B * B 7ROE2=;I3T
E3R3A*(>17SKQ+T"(61R+**	T.*F(2+N(7KR**)***2&)6,N 3U7ME7D*JCC* B * B * B 6 [O+ECR3TZ 3R7O* B0+TCO+X:)2MNJ* B * B * B 2 V 3Q	U3V3A7ESN6 KA7ER +HCE3D[E3I	N3T?IN7S*JCC* B * B * B 2 WR3S&=3NWT3GGR/LF(2/N(+OS+T*)7SKQ/TF(2+N(7KR*+AN+T&).*J**)2)6 WS3MWMD*M+CB * B
* B * B 3OWV7RR 6 KF+OCM60R 3OF 3T;A*(	X")6,*JCC* B * B * B 2 WR3S&=3NWT3GGR/LF(6/GS+RT*1"-7KN*+IN+T&).*J**)B,3S7U3MSE6 [OE7R*JCC* B * B * B * CT3F?R/MB 2 ?T6 SA+AN+X&)".*M+CB * B * B * B 3EGV3LGU3T?IN*M+CB * B * B * B 3L;A3D;E7SR 3R;A3S?F3RGM3T?I3N& 7SV 
SSE2 ?F3RN 3AOL3UGL3T?IN6.*JCC* B * B * B 2 WR7FKE3EONE*M+CB * B * B * B +RB.3B3U7IOR+C3H6 WN7MKE3IGC3LN 3AOL3UGL3T?I3N> 3FV 3L	L3P	T3C& 3NWT3GGR+LCS3ASN2MNJ* B * B * B * B * B * B 3E3L7ISP+ICC3F;U3C	T7OON".*M+CB * B * B * B * B * B 2 GH3NKD3O/O2 WS3RWI3S
 7FN 3POE3I3A6 WF7NSC3I;OS*M+CB * B * B * B * B * B 6 WN7MKE3IOS+HCE7MSA3H7E3A	T7KZ +O;L* 27. &1*6256 CP..^ .8&-"06."J7C*JCC* B * :.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".*MC*M* B * B 3SKU7RWO3T;I3EV /LGI2(WR
S",2,/C")*MC*M* B * B +IF/XJ)*,21"2*M* B * B17ROE*=:0*MBJ* B 6 J 7EWTR7N*JB . J 2 [I2(/C*)24.3R,*MBJ* B 63J /E7S3A?L3GF(+BS+X.)7SKQ/TF(6."+**	X")*M* B * B 7GSO/OF "3*M* B * B43A
N/L7E7AOB*(:1*/	X*MBJ* B 2 ^ /E7O7AOB2(/C")*M* B * B 3A	R*=:1*MBJ* B 6 B /I7M"06.*JB . V 6 GS3G?E6=KA3I^*E7O*JB * B 2 GA/R7I3A	R*MBJ* B 2 F /R7I3G?E6+KAI*M* B * B 3A
N/L7E6-GS3G?E2/;A3GWL2+;A3GWL*MBJ* B 6 N 3QWG7ON=7QSR6(GS3G?E")*M* B * B +IF3A
N+L	E.7Z,",67*JCC* B 2 WR3PGL+CCE20J 7YN 3M3A7LZ 7AWLE*M* B * B63A
N/L7E3S
Q+E+O21V."-68*JB . ^ 2 WT/S7T7AKA/IF**.7E"4*M* B * B +IF7AOB2(GA+R7I3G?E6)R-7ESS.)B1.,B1",68*JB . " 2 WG7ON=3QWG7ON+3QWGO*M* B * B 3P7I2=	P7MB+I7M*JB * B 2 [I2(;A3GWL*)29.5V,*MBJ* B 69B /I7M3P7I*+:3.1F4.5J9"7*M* B * B 7GSO/OV *MBJ. F 20& 3FF(3N3G/EF).1F,.
F,"2*M* B *1B13P7I2=	P/MN+..R1.1&5"267*JB . J12 WR+S"=3AGT3NF(+R?I3A
N+L	E2+	P+M>)3A	R*MBJ. F 23& 7F"(.)R1.,V1.,V1*MBJ. F 64J /E7S2-WRS*M* B *1B57RSE3U;R*MBJ* B 2 V N7D"JBZ"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B

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