File AB9.FT (FORTRAN source file)

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

3C2I7ISS3ER +ECR3MWU3N3D3IC+ECN3A	B7TKU7PWR7EWF3NWGN*M3C^I7EKO3DWN3T: 3AC6 KP3U[E3L;I3G;E2 Z(7UKE2 ?K3NWF3R;E3Z	Z3MWMR6)2JRI3IWM3N	S+OCN/IF(.1F,*4&82,GN+ME*1&12,WT+XT*32)7IKP+FA*62)/LF(*4&9"M&J3D7I7EON3I;O6 WK+RS"66)2J&I3SGT.=B1"0602J&I3SWT.=B121&+3SGT"M&
7ISS/LJ=26&+3SGT"M&J3C3A7LJ 7TCA/EF(2,&-3S3T.,R1292,")*M2IGL/N7F/LF(*4&9"M&J3C3A7LJ 7TCA/EF(2,&-3SWT.,Z1*228I6)2JNI3A3L2 ?I3P;E6(J	/KGB*	^,3A	B7AOU"	6)2J&I3SGP/C7E.-B2"1666JNI3POA+E^=* B * B "	*M6IKW3IWT*(21*1&0.MFJ20ZI3O7R+AT*8>(.)N,*33X6	KP3U[E3U
N+ECN3W
E+E
N2/:	3AWM.	J,*23X2	KA3W	E"	6,.JFI2	C3U
N.	F,*03X2	WG3FWA3HSR3U
N6	"52,J	3EWM7RWK+N
G./B4*(6	* &	")*M2IGI/N7Z"0*M6ICI3RGZ"=602JRI/OJ 20. 212=3A[N.,R1"8*M2IGI/N7Z3I;A/ZF+"M&J3RGE/DR(.,B32):(3AWM*(	K.,7K.1F,*12)7TE/TF(6)R,7ESX*(&22,WT+XT*32)"M&J3RGE/DR(.,B42)&(3P[R3A.(2).,*=21"66).JB32I?F3RGM3T&(.3F,.0KA2,F3"66).JB42I?F3RGM/TZ(+A&2"M&J3W	R
TE.1V,"06).JB52I?F3RGM+T>(")*M2I[I2(WT+XT*16)3SGP+C	E. V2.,B6.,V2.MJJ65^I7RSI/EF(.,V2*5")3N7A3E.(2).,*=22*1&12,WT+XT*12)7TE/TJ(6)R,7ESX*(&3"M&J7GSO/OJ "065.JV225ZI3O7R+AT21F0.2R,*53X.3[A")*M"6&0+DCO*9B0/K633L;A/FF,"4682J&I3F&(*(21+K&32-GN+ME*1&). B9.,B1.0
,"0*M.1B02I;I7DE.=OK"M&J7GSO/OF "560.JB92I?C3N	T3NWU"M&J3W	R+TE.1F,*4&03N7A/EF(")*M.1B42I?F3RGM+T>(2	WF3HWL3NWD6 WK3RSS3AWT3NJ +ECI3SC3U3E+E
R.,SI")*M2I?G+TCO"260.JV120RI/OJ *2B0/KF=",632J&I3F&(3P[R3A.(.)J+.0Z1.)J *320.2B4.,N2"0*M.2B36IWK+RS/K6)/IF(*+3K3ISN+E	X.*R6.-&9"2*M2I?G+TCO.2B5.MJJ"4&07KKU3S.(2)&=3SGPC7E.JV220&I3F&(3P[R3A.(*+&3.+B2*1&6. Z2.0J,*720.2B6.MJJ"6&07KKU/SN(*+	K*=I21.+2,;I7DE.)
*.4&-"9622J^I3O?T. J2"0*M.2B76IWK+RS23.+2)&=3SGPC7E.JJ220NI7OSN7IWNE*M6IKW3IWT*(21.1B62):(3AWM*(	K.,7K.2F,*12).MFJ"6&07FKO7MSA.(B1+A&2"M&J3W	R+TE.1F,*9&57ICS3AWC",*M.1V92I?F3RGM/TN(3XF,"26)2JRI/OF *7B0/KF=",63.J^160^I7RSI/EF(.,"120&)3P[R3A.(2).,7UOR*(	K6,
I3POAE6,.J"120ZI3O7R+AT+A22.2GA")*M6IKW3IWT*(21.1B96)OI3POAE6,.J&120ZI3O7R+AT*83X+A&2"M&J+DCO.2B0. 7K.4Z,.MJJ"0&03W	R+TE.1F,*8&07IKP+FA+K2)7KKU3S.(2)&,3SGP+C3E"M&J3W	R+TE.1J,*1&07ICS3AWC.MJJ"1&07FKO7MSA.(KA")*M2I?D. B8. 7K.1Z,"M&J+IF7IKP+FA+K.).2F0*6B)*72
*820"760.JB76ICI3RGZ6=CI3RGZ"+61.JB82I?C3N	T3NWU.MJJ"0&5+IF3I;A/ZN-.)J .0F,*120.1B1.MFJ"1&03W	R+TE.1F,*2&0.MFJ"2&07FKO7MSA.(R/*0^(*-^ ")6)2J&I7A+N"=60.JB22I?C3N	T3NWU"M&J3W	R+TE.1F,*3&07IKPZ7A.JN120ZI3O7R+AT./V/3X&,*3^,6 KP3U[E3U
N+E
N")*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