File XFLT1.FT (FORTRAN source file)

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

C*M7CBI3R
O3R7A2 [X/LGT6.SF2MNJ6IBI*.;C+OB 2 N *.;R2MNJ2MNJ2IT+ICS3P?R3GGR3MZ 7ISL7EOR2 ?N3N&-3NWT7GKE2 GDT7A"J	C3F?R3MR 3AGT2 	F7LOE* B 6-B 7ASR* B1+OCF22Z 7ISL7EOR2MNJ2MNJ7AVI3PGD3TSE2 * +A?N*8B06 R A7M"J7C"J	C3F3I/E^ 6 OI2 T7EJ +ACW7DSA+A6 2 V /X>?*?:?*?B?. >(2=
3AWT7VKE")*M3CZI3IWL* B6+ICS3TWH2 GV3LSI2 SI*	CS3T	H7SF 7RKT*.6 6 SX3E;R6?".+XB .(6?7QSR7R",7X&=R6)2JGC2IOI3O;U3T& 7SR +HCE3N7U7BKE2 [O2 S7ESE7SR 7HSA2 C3E/C6 WO3T> *.;K2MNJ3A&I+PB * B +ICS3TWH6 WN3MWB3R> 7FN 3HWE+TCS3TGH3TF +RCE3BSA2MNJ"M&J7R
E3ISN" 666JJI3E	W+NCD"7*M2I;I3T
E+ECR7SWT/DF(*6&02,?EF*M2I	D3M;E3S?I3NF +RR*5&0"M&J7ISN3EWG3RF +R3R3N7U.(B12)F,/RKR.(B5")*M2IGD+TCA3N7U./B	*	^,*12	*	^2.,N	*	^,*42	*	^5.,Z	*	^,*72	*	^8.,&	"	6/2JRI3AGT6 SS+U?D.1B6**B	* B * ^ 2/&,3B;L+K^/.0B0* B "	6/2JGC* B 3RGE3D& 7NZ 3A	L/DF +SCT3QGU3RWT
RN 3TSU7ESNS*M2IWR+AD.6",*5&0"M&J+DCO.9B0. 7I.1F,"6602JNI3A3L2 C3K?E3F&(3E[O")*M2IWR+AD.6",*5&07SWT3D&(")*M2I[I2(WI+O;F+N;E20^)7OR /O& "160.JB920NI7OSN7IWNE*M.8B52I?F3RGM3TF("46)2JGC* B 3N7U+BCR+ICS3TWH* B+OCF3V3A+ICD7SWT3D;ET7S.JF920:I3UKM3R&="-612J&I/PB
"M&J3I?C7USN"=602JGC* B 3RGE3D& 3NR 3AGT* B-3OWN6 SA* CA3T7IE*M"1&03C3A3LN 3HWK+OF3E[O")*M2IWR+AD.7F,*0&06(KA3R&(2)&,*=21*5&0"M&J+IF3E[O2.WN*.&07GSO/O& "969.JB120ZI3O7R+AT*13X25F0"16)*JCC* B 3CWH+CCK7FKO2 GB3DR 3AGT"M&J+DCO*2B0/JF=.,B5"M&J+DCO*1B5/KF=.,B1
M&J+IF7AKR*(	J6-WN3M.(.)F).5J,.0F,"5*M"1&53C;O3T;IU7E*JCC* B 3U	N/T& 6 OI2 WD3CGT+PCE2 T+ICS+ICS3S?T3R
A3E> 3FJ +ACD7DSAA*M"3&53W	R+TE.9F,*1&06(KA3R2(+P2)/L7P.1V,"06).J"36ICI6=CI"+61.JF120ZI3O7R+AT*	^ .,B5+A&1"M&J+GCO+TCO"160.JB22I?C3N	T3NWU2MNJ+AB 2 GF7IOL2 [I2 ?C+LB.*1B6+ICS7NSO2 WZR7O2J&I3FF(+RR*1&66-WN/MF(.)N).5V,.0N,"5*M"5&03C;O3T;IU7E2JGC* B 2 GF7IOL
 [O2 ?C+LB.*3B2+ICS7NSO2 WZR7O2J&I3FF(+RR*3&26-WN/MF(.)N).5V,.5N,"5*M7CCA3AWG"M2J"5&53C;O3T;IU7E2JGC* B 3C/H2 ?F3R6 7IOS3I
N6 SS+UCD+ICD2&2 7ISS2 [I2 KA3S;E3T> 7NV 7NSI" 632J&I3FF(+RR*86)3N7U*(&6.)V3.,Z5.,V3.MVJ26RI/ON 20* *=21"4*M2I[I6(KA3R*(2):-+UM*1&)*420*320"460.JB32I?C3N	T3NWU2MNJ* B 2 	L+SCT7CWO+NCT2> /NR * B&7AKR+ACY+OCN23& 3FJ 3L;A7KN 3HWE3TZ 3O;UD*M6IKW3IWT*(23.2B02)
 7CWON7T.JB220ZI3O7R+AT2	J 3L;A7KN 3TSU2.& +DB2	&,"66)6J^I7RSI/EN(.,F1*0")7AKR6(CL2)2,/PF=.,B5")*M2I?G+TCO*1B02MNJ* B 3T	H7SJ 7OSU3IWN2 C3E/C3S& 3FF 6 SS3UWD+NCT+ICD+ICS3V3AI7D*JCC2 & 3F: +OCT+ICT7RSE3U;R3SJ 3A/C2 ?T2 T3E6 3A;I6 KPO7G*JCC2 & 3F& 3T& +SB,+
CT3CWH7COK2 [I2 ;A3Y> 3TWH7RB 3RKO3L7E7S^ 3IT2MNJ* B 3SGP3C;I3G> 7CWC+RB.+ICF+SCO+ICT7RSE3U;R7S^ 3IT2 ;A2MNJ* B 7EKR+OCR3FGLG6."J7C.JB42I?D. B720* .1F=",662JFI/RKR.(GJ*)^=* B * B "	*M.7B02I?C3N	T3NWU"M&J+DCO.7B1. KJ*=21"4*M2IGC+LCL3CWG3TF(+RR+J&2*,213IC+A
R"M&J3C3A3LN 7PSU6(KA+R"2*12)+J223IC+A	R.M^J"1&03C;O3T;IU7E2JRI/OZ *1B0/J6621:,3UKMR*M2I[I6(KA+R"2*16)7SWT3D*(*6&).6B1.,F6.1Z,"160.JF620NI7OSN7IWNE*M2I?G2 ?T. V3.MZJ"1&1+DCO.7B2. OJ*=21"3*M2IGC+LCL3CWG3TF(+RR+J.3*1&6*,213IC+A	R"M&J3C3A3LN 7PSU6(KA+R"2*22)
J233IC+A	R"M&J3C3A3LN 7GSE6(KA3R*(.3F+*92)21&,3CGHR6)2JNI3A3L6 CC+UT7AKR.2N(2)*,23&,3CGHR6)2JNI3A3L2 
C+ET7AKR.(OJ.+J3.)F,2,OI7HKA")*M2IGC+LCL7CWP3TF(/RKR*(&4.,OJ2,OI7HKA")*M2IGC+LCL3CWG3TF(+RR+J.3*3&5*,213IC+A	R"M&J3C3A3LN 7PSU6(KA+R"2*52)+J233IC+A	R"M&J3C3A3LN 7GSE6(KA3R*(.3N+*82)21&,3CGHR6)2JNI3A3L6 CC+UT7AKR.2Z(2)*,23&,3CGHR6).JJ720NI7OSN7IWNE*M2IWI3R
R/RB=.MZJ"2&0+IF7AKR.2J(2)V.3Q&.3B;L3KF.+N;D7AKR.2N(2):.3E&.3B;L+KB)+GCO+TCO.6B3"M&J+IF7AKR.2R(2)V.3Q&.3B;L3KF.+N;D7AKR.2V(2):.3E&.3B;L+KB)+GCO+TCO.6B3"M&J+IF7AKR.2R(2)V.3Q&.3B;L3KF.+N;D7AKR.2Z(2):.3E&.3B;L3K^)7OR /OZ "3602JGC3P
AE*M2L&I3FF(/RKR*(&56.GE2.KI3L/N2.;A3DF./RKR*(&62.WN2.KI3L/N2)^ 7OR /OZ "3602J^I7OR /OZ "460.JN620&I7EKR/O7R"1*M.6B42I[I2(WI3R?R3RV./QF.2)?G2 ?T. V32MNJ+AB 2 ?F+RCM3CWH7COK6 WO3T> *.;K6 KW3IWT6 SI6 WOT*M6IKW3IWT*(28.1B12)F(+RR+L	P6,CL*=21*5&0"M&J3I?C7USN2
OI3O;U/TF+"M&J+GCO+TCO"160*JCC* B 3T3A+LCY3TWH6 WN3MWB3R> 3FJ +ACD3SWH7EOT2 ?F7RB 7ASR" 7I.J&969^I7RSI/ER(.,J220&)P*M.2B22I?F3RGM+T^(6 WN3MWB3R> 3FJ +ACD3DGI+GB.*=^ .,WI")*M6ISSO7P2JVIN7D&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