File LIBCAT.FT (FORTRAN source file)

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

3COC2I	F+LCE3N7A/E* 2 	L3BGC3TZ.3T2I7ASS2 ?M/D* . B22-?N/V"-"1*MC*M7CBI3R;I+TCS7CSA3A?L3G> 7FN 3E7G7ESN3SF +NCD7ESN+RCY3P	O7NOT2MNJ6IKF+OCM7FKO3TGR3N& 7IJ 3E?L7CSA3BWL2 	L3BGR+RCY3B	U+LCT+BCY3LKI7SSE".*MC*M+C:I3C7O3P2 3IOBA7T"J	C2.?L+ACD3LKI7CSA2(?I+U	H2M
J6IN.3AWV6 	S3S2 3IOBA7T"J*M2I	D3M;E3S?I3N& 3B[U.(V2*62)3IWT+XT*4&02,	I+FN*42)3I[O/NR(2)&,3I;D*(&22,?I+DN"26)"J*M6IKW3IWT*(21.1F0")*M.1F02I?F3RGM+T^(3L	\3BGC+TC\.1Z..	GT26N	7\SA3A?L3G> 7FJ 3E?L7CSA3A3B3E2 7IKB7A	R*.
\")*M2IGC+LCL7FI+IO*	++
")*M"M&J3W	H+LCE6(R.3RWU".6)6JJI3ESA*(21.1F16)SI7ESX.MFJ"1&17FKO7MSA.(B4+A&2"M&J3C3A7L* 3F3I3L&(7TE/TR,"06)2J&I+F" 7ISN+FS3IWT+X3T3ISO3N&,3O;F2,	I+D3N3I[I+NB)6.SG..B 6)R 3H;E"M&J* B 2 [I2 &(3O;D2 V.+QB.*0B)3C3A3L6 3OWV6(R	+TCY2	&,3O;D*,&2"M&J* B 2 [I2 &(3
;F2 V.+QB.*0B)3C3A3L6 3OWV2(2	3IOB3A3T+S2	3I[O/NR,")*M*IB 2 & 7OF2=?I+FN"46)*JBI* B +ICF2(	I+DCN6.GE..B 2)N 3A3L2 ?M+VE6	OD+K^ 2,	I+D3N"26)*JBI* B +ICF2(	I+FCN6.GE..B 6)N 7TCO"M&J* B 2 	I/F7X3I[I/NR(")*M*IB 2 & +F" 3I[I+X: +E;Q* &02 	I/F7X2	3R"	*M*IB 2 N 
A3L2 [Z3I3L2(?I+D3N*-&2"M&J* B 2 GC+LCL3Z	F+LL3I[O+N6,"36)*JBI* B 3C3A7L* 3F3I3L&(7OF.,F-")*M*IB 2 N 3A3L2 [Z3I3L2(	I+D3N*-&2"M&J* B 2 GC+LCL3Z	F+LL3I[I+N6,"36)*JBI* B 3C3A7L* 3F3I3L&(7IF.,F-")*M*IB 2 & 3I;F*(&42=	IF7X*JBI* B 3I[O/NR(2)&=7OF"M&J* B 2 GC+L
L3OWP+NI24&,3I;D2,	I+F3N3I[IX6)*JBI* B +ICF2(?I7HSS*(&46)R 3H;E"M&J2IGC+LCL3RGE+DB.4J,*5267IWBF6)"J&I+ICF2(?I7HSS*(&46)R 3H;E"M&J*IB 2 N 3A3L6 CO3E?N*(253ISO3N&,3O;F2,?I+F	X"M&J*IB 2 & +F" 3IO+ST*5&)2 TE7N"J&I6IKW3IWT*(25.2B02)	IF7N"J&I2I;I7DE"=60"J&I6IOI
E7G"0*M"I&I7L
C.=F-"M&J6I^I3H3I+E" 7IWB3F&(3NWD/XF+*): +N;E* &0"M&J"I&I3L&=3B[U2(;I7DE*+.3"16)"J&I2I&I+F" +L: +N;E2 OL+WB)3TWHN*M"I&I2I2I/C7WL*M"I&I2I&I3S
E6=OI+E/G"1*M"I&I2I&I3P
A2=KI+UF7L
C*+&1./B2*0;B3ASN..^3B*M"I&I2I&I+F" 3IGP3GV./QF.2)& *=B	" 6	"J&I"I&I+ICF6(CI+A;G+N;E*1B)+I^=+S^ "M&J"I&I6IKW3IWT*(25.2F06)OI+E3G3IGP3G&,",*M"I&I2I;E3D[I"M&J"I&I3C3A3L& +OH7IWB3F&(3NWD/XF+")6)"J&I2I&I3NWD3X&=3NWD/XR+"M&J2IVI7N
D3H3IE*M"I&I3W	R+TE.5J,*0&23ISN+E?X*4",7L
C2-;I7DE.)V/"M&J2INI3A3L2 C3R?I*(25.2R1B6)"J&I2IGC+LCL3C?L+SE"56)"J&I6ISSO7P"J&I* B 2 3ES7E"J&I6IKW3IWT*(21.9J02)?I+D3N3I[ON*M*IBI* B 3ESNI7F"J&I7EOLE*M*IBI* B 3W	R+TE.1&,*0&33ISI3N&,3I;F"M&J2I;E3D[I"M&J* B 2 3ES7E"J&I3W	R+TE.1&,*0&13ISI3N&,3I;F"M&J* B 2 
E3D[I"M&J7EOLE*M*IB 2 N 3A3L2 [Z3I3L6(SI7ESX.,R-"06)*JBI* B 3W	R+TE.1&,*0&83IWTX7T2JVI3N	DF*M2I;E3DW3IWL"M6J.JB220ZI3O7R+AT*/>/"M&J.1"/3XN	7\SA3A?L3G> 7F2 3L	\3BGR+RCY7\3F3IWL+\B 2	F3*2:	.	KA"M&J.1"/+X6	+\6-*-6-*-6-6-2-*-7\*-6-*-6-7\2-*-6-+\6-*-6-*-6-*-6-
	>/")*M.2F02I?F3RGM+T>(6/"86	3S3E7G7ESN+\N .	KI*	^,+I^36 3P3AWG.	GA*	
\*9"9/TV3*,"6+A26+X>)")6).JB222ZI3O7R+AT*/>/*83X+I^26 3E7NKT7YB 3O;I+T3S2 	W+TCH3R?O3MZ +OCR3A?B+U
T+I^32 ?M+R;E+\>	")*M.9F02I?F3RGM+T>(6	3I7NWP+TC\3F	\7L3E. J	+A^2.:N	+A^22.F	*2B	3\?N3TZ 3O;U7D2.*	&/.M&J"0&27FKO7MSA*(^/7OW\7TWP+TC\3F	\7L3E. J	+A^2.:N	+A^22.F	*2B	3\?N3T> 3P;E+E;D+\>	")*M.9N02I?F3RGM+T>(6	3I7NWP+TC\3F	\7L3E. J	+A^2.:N	+A^22.F	*2B	3I>/6 
E3R?R7R2.*	&/.M&J"0&87FKO7MSA*(^/3U;\3A3B7ER 7OB 3ROO7EOS6 2*.	B4+A>2")*M"M&J3ESN"M2JBZ

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