File BARTLE.FT (FORTRAN source file)

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

7CR 3E3I3P?R3GGR+MCM7BKA3TWL2 ?V7NZ /AGR2MNJ6 WM3L	T3PWL7RR 2-WT+SCT3USN2 GB3R3T7EST2-WTS7T*JCC7FKO3TGR3N& +I> 6 CO3T?I+N" I6)*JCC+FCS6:B +F;T+FCT6/B 3C	H6.SF2MNJ2 C* B:3D;U3C;A6.[S"M&J3C7O3M;O2 
N.,GN2,7F6,OV6,+N2,/F3WZ,M7W2JRI3IWM3N	S+OCN+NG*4&92,7F.(&46)Z,/SR(*92)+NZ*4&92,ON.(&4")*M6ICS3AWC*=B	"	*M3C6 7USL3I3P+ECR7TR-7ESS"M&J+DCO22& *=21N61"J&2+NC/I6)+NGI6)6J^I7RSI/EF(.,B1202)7EKE",*M.1B02I?F3RGM+T^(3M3U7TCI7LKE* 7T7TOE/T> 2 *(/AF=2,WN/I7N*0B)*
^ +I&0"M&J3RGE/DF(.,B123&)D*M.1N02I?F3RGM3T&("16)2J&I3F&(/DF).2F,.2&,.M&J6IKW3IWT*(21.1R02)WLE7R.JB124ZI3O7R+AT+I&0"M&J7F
M6=GS+RT7F
M")*M2I[I2(/F/WJ-.0^4..Z)*,27"7*M26.I3W&=7FI2(/FW6)2J^I3O?T" 68"J&7/K7W.2R0"7*M28RI/OF 21& *=21N612JRI/OF 20* *=21N612J&I3F:(3C*(.)F).0F,.0N,.MNJ2I[I2(ON*(	J2-
N*(	I*)25.4V,.MRJ2ION*(	J"=602J^I3O?T. B1.MVJ2I
I2=
N*(	I6MNJ2I7J3S: T7D*JCC3N7A7ER 7EWMX7X2J&I/N61.1"2"5*M2I;I.2B=.8N5"M&J/ION2=WI"M&J3C3A3L& 3OWP+N^(+P^12,;I"16)6JJI3ESA*(24.1F02)?I+P3TK7Z.JB121ZI3O7R+AT+A&2"M&J3RGE/DR(.,B122V)+F3A3EGF2,GPR7A.JB122ZI3O7R+AT+A&6"M&J/I7G+NGJ6)"J	S7JOM6 SND*M3C: 3AWM2 WT7MU
*M2I;I.1F=.2V8"M&J/IKN.="0"5632J&I/N63I7E2JNI3A3L2 ?I3P;E6(B	*12	/IGN")*M2IWR+AD.4F,*0&1+K3ZK7Z6JJI3ESA*(24.1J02)[E3BV,+F3B7PKAB*M2I;F/Z7I3F?L+AT+NZ+I&)"M&J7F+N3JZ=3LGO3T:(3Z*(")6)6JRI6=GS+RT7F+N3IZ*3N+Z2/Z(3N	Z2+;F+Z	J")*M.I7T+T"*+FM+I6)+FM+J&)2/7FW*M6I
T2=KA7SR(")*M6IST.=B1*0*.7PSF*(2121.,7WR,W6)"J&L3W	R+TE.1F,*0&5+NG+I2)3EGF2,GP+R3A+NG+J2)3EKF2,GP+R3BT7T.JB125ZI3O7R+AT*	N .	KI*	" .	[A*	^/+A^6.)6 * ^+I^2* ^(+A^62/F	"6*M*I^1*)B 6 B * ^=+F:7*2B	*%&	.MFJ20NI7OSN7IWNE*M6IKW3IWT*(21.1^06)CS3AWC.MFJ"0&77FKO7M
A.(GA")*M"1&13C;O3T;IU7E.JJ16IKW3IWT*(21.1^06)CS3AWC"M&J/F7N"06.2JRI/OF 25& *=21N61.JV12I;F2=;F2+3F7OSA6(+N*(	I")*M6ISF*=:0"M&J+DCO*1B6/IF=.,GN.MFJ26ZI3TZ=/TF+2.Z/3LGO3T:(3Z&(.)F-")*M6ISF6=SF*-:12/Z(3NZ-3LGO3T:(*1&)"M&J/CF=*."/*3*.3F?L+AT+N61*1&)"M&J/CF=2
N+6*SF"M&J/U7M.2N..0V2.8F5"M&J7CV=3MN/"M&J/F7T"06.2JRI/OF 27& *=21N61.J^16ISF6=SF2+Z(3LGO3T:(3Z&(.)F-*)*)3A?L7GZ(3S&(*)>)U7M2JZI/M7W7F
M2*7FW*M6ISF*=+C2(Z(3NZ-3LGO3T:(*1&)2*3A+OG7F
M6)V/3MZ-T6)6J^I7RSI/EF(.,F1"16).JF121ZI3O7R+AT2	GB3R3T7EST2-WT+S
T./N1.(6	*	>)")*M.I7M+N61"1*M.I7C3PC3I6(6,SF.)F**0:0"M&J3W	R+TE.1F,*1&2C*M.1J12I?F3RGM+T^(* B 3S
I3N[I3IGK+N7Z7N[I7EWA6 WF+ECR3GWL3IC3H	E3TR +ECR7SKTE7U.JFI3U
N+ECN*:^ +F:6*2B	*%>	")*M2IGC+LCL3CGH+IN6	WD3NGC+N&	6MNJ3NST.,BI*I>I3N7U7MKE2 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.(B6"660"J	S3DGC2 	\E*M3S*I+MCP3I: T7D2JV
N7D&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