File MODIFY.FT (FORTRAN source file)

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

7CB 3R
O3R7A2 ?M3D[IY*M3C6 3O	D+FCY7HOA* CA3L7I3IWT3D" 7OOU3EWK3E	P+NCG3LKI7RKA3YJ,+UCT3DGR+WCS7IOT2 ;E3O7R7OOU2MNJ2 ?P7WKE6 KF+OCM7IOT2 SE3I	T+NCG7CCA3A	B7LSI7IOE2.?M3D[I3YN +ACN7CCO3Y> 3RR 3EWL+TCE3VOE7TKOS*M+C" 3F?R3MF 7N
Y7HKE3E& 7NR +HCE3TKA+LCE+OCF3VOE7TKO+S:)3MSO7I	F2 ;I3V/O+ECS3TWH6 KC7OOS3H	AR7S*JCC+TCO3P;I3P	O+NCT3TWH2 ;E+DCS+OCF3TWH2 WV3C?T+RCS+TCO+BCE3CGH3NWG3DF,+NCD3TWH7NN 3H[IT7S*JCC3TWH2 ;E7TKI7ER 3A3B3EF 3C?C3R	D3N3G3YF.3LT3O
U7HR +HCE3P?R3GGR7MN 3E7E3S2 3E
N7T	H6,SI2MNJ6 OI2 GF7RN 7ICM7LKE2 T+ACN+ICT7WWO+LCD+BCE+ICF3A2 3I/N+ECD7LOI7T^ 3EWR6 OU+ECD7ION3TGED6.*JCC7FKU3TWH3R?M+R3E3TWH6 KP7OKG+ACM3S	H7FOT2 T3E2 7ISS2 ;I3SGT3N3T7YN,7OR 7HKE3E& 3S: O*M7C^ 7ASI3I
N2 	T+M;E2MNJ"I	D3CGH7ION2 ?T6 KD+A;WS7V"J	C3EVI7ROA+ECS7SKC3E;E2MNJ"I	G3CGH7ION2 ?T2 [G+I;CS7V"J	C7MBI3ROO3EWD2 ?T2 ?M3D[I7YN.V*M7CRI2IC3A;I7SR 7OR 3AWP6.[S2MNJ"I	W3W	R7TOE2 GT3BWL2MNJ"I	X3E	X+TCS3F?R7MB 3R
O3R7A2MNJ"I&17CCO3Y;I3G6 3OWD2MNJ"I&23D3E3E	T+OCN3MSOE*M/CNI2IWR7TKU7NR 3ON 3O7M3ASN6-WQ7E	R2 ?MD7E*JCC7FKO3TGR3N& I*M7CN /R* 6 KE3AWS6.SF* B/3F	D3SZ.+T> 2 3A3PGH6.SF* B/3RKK6.SF* B/7J	O6.SF2MNJ2 C* B:7TCA7EN.+V> 6 KD+A;W+SCV2/^ 3FOI6.[S2MNJ2 WB3AKR7ESI3U
N2 ?V3NR 7EWC+SN .8^-"7632JNI3O7M+OCN3NGT3B&,P7T2JRI3IWM3N	S+OCN3NGT+B" .5B0*,&3"M&J7GSO/OJ .MFJ2IGC+LCL3EGRS7E"J&23C3A3LZ 7DOI. B(*,20.7^6")*M2IGC+LCL7ACLH7A2JNI3A3L2 /R3B.(")*M7C^ 6-KW3IWT*,7E3EGR+S3E7TR-3AWP*,7D3DGR3W^,2-[G+I3C3M6-3O	D+F3Y3XV-7XSI"M&J+
CF*(7K.1B5*4B).3F,.3N,.MNJ2I[I2 .(.-V3*2B).4F,",64"J&4+ICF*(7K.1F3*2B).5F,.0V,.MVJ2I[I2 .(.-"2*8B).6F,.1Z,.MZJ2I[I2 .(.-"4*0B).7F,.2^,.M^J2I[I2 .(.-Z8*4B).8F,.5",.M"J2I[I2 .(.-V1*6&8* 22.9J,.M&J2IGC+LCL3E	XT*M"1&03C3A3LN 3H	A+N" 2	GT+P
E")*M"1&13C3A3LN 3H	A+N" 6	KD+A
W")*M"1&23C3A3LN 3H	A+N" 2	[G+I
C")*M"1&3+DCO*1B4/NF=6,CIT*M"1&43C3A3LZ 7DOI6(SN+AB/NF,2):,3TKA*(3N*22)3NGT3B:(*,&3")*M2I?G+TCO"2*M3C6 3O	D+FCY7RWO3T;IE*M"1&53RGE+D" .1F,*0&0" 7I.JB120ZI3O7R+ACT.(F	2=?C+P3Y22R=3EWL+T3E23N=3AON+ECL.	GI")*M2I[I2 &(*-&3. Z1*,22"2*M"1&63C3A3L* +OCY6(I6,	I*,
K"M&J+DCO*2B0/NF=6,CIT*M2I?D. ^1. ON*=20"4*M2I[I2 :(3TKA*(3N*26)+I/X+N63*2B)*127*128"167.J^12I?C3N	T3NWU"M&J7GSO/OJ "0*M.L"12I?C3N	T3NWU"M&J+DCO*1B9/N63.0R,"M&J+ICF6(SN+AB/NN,2)&-3Y:+.3J-.)F .9J,.1F,"9*M"1&93C;O3T;IU7E.JB22I?C3N	T3NWU"M&J3W	R+TCE*(21.1F0"
6 .JB121ZI3O7R+ACT6(^	3R;O3GN 7OKO3D;I3AWT+S&	"M&J7GSO/OF "6*M"2&1/N7Z/NF-"M&J/NKZ"=7N.JJ22IGC+LCL7J	O6(I6,	I*,	K"M&J+DCO*2B63N:=+Z227ISP"M&J+DCO*2B3/N63.0R,"M&J+ICF6(SN+AB/NJ,2)&-3X:+.3J-.)J .3J,.4J,"3*M"2&33C;O3T;IU7E2J^I3O?T. Z2.MJJ24NI7OSN7IWNE*M2I?D.
V2. ON*=20"4*M2I[I2 :(3TKA*(3N*36)+I/Y+N63*2B)*225*227"265.JV22I?C3N	T3NWU.MJJ26NI7OSN7IWNE*M6IKW3IWT. F(.,B1"26).JB122ZI3O7R+ACT2(J	+ACD3C?O3R	D7NSA+E
S")*M2I?G+TCO"262.J^26I+I*=7N"1*M2I[I2 &(*-&1* 22*228"268*JCC3OSR3EWR7DB 7AKIS*M"2&8+ICF6(+N6-+I.)J .9N,.0N,"0*M"2&9/N63I7Z2J&I3Z:=Z*M6I+N.=ON.MNJ20&I+F" /IF-*)22*323"361*JCC3D3E3EWT6 KF+OCM3N&=7ZR 3O: 6=+N6 	B2 ?M3V;I7GV P*M"3&13C;O3T;IU7E2J&I3P:=3Z&-Z*M
I+I6=+N"+612J:I3TKA6(+I*,&1"=602J&I/P7T7ISP6-CI"+612J&I3Z&=3Z&-/PF+"M&J+DCO*3B23N&=3Z&,P7T2J:I22:=6++N6-+I"+612J:I3TKA*(3N.16)3NGT3B:(.2F,")*M6ISN+AB/NJ,2):=3TKA.(KN*,&2"M&J3NGT3B:(*,&36=SN+AB+N22"36).JJ32I?C3N	T3NWU"M&J3C3A3LV 7ROAE*M2I?G+TCO"163*JCC7CCO
YJ 7OSU3IWN.MNJ63^I7RSI+E" .1F,*0&3.MFJ"0&37FKO7MSA* ^(7N
E2 ?P7SSI3I;O2 ?F3RZ 7IOR3TN 7OKO3D;I3AWT"	6)2JNI3A3L2 ?J3Y.(3X.,3Y.,")*M6ICI6=+N6-+I"+612J&I3Z&=/ZF+"M&J/N7Z+N/ZI7P2J.I3X.=3X:-3TKA6(+I*,&2"M2J6I	K6=	K6-SN+AB+I3Z"36)2J:I23&=+P7T+I/ZN7Z2J:I3TKA6(CI/TF+*,&1"=602J:I3TKA6(CI/TF+*,&26=SN+AB+I/Z.1J,2).+X*M6IS
+AB7ISP*+21.36)3NGT3B&(/ZF+*,&36+	K"M&J7ISP6=CI/TJ+"M&J+DCO*3B43N&=+P3TN632J:I22:=6++I6-CIT*M6ISN+AB/NF,2):=3TKA.(KN*,&1"M&J3NGT3B:(*,&26=SN+AB+N22*2.)K7X2J:I3TKA*(3N.36)3NGT3B:(.2N,2).+Y*M"3&43C;O3T;IU7E2J&I/P7TN632JNI3A3L6 KE3AWS"M&J7GSO/OF "3*M2I;ED*MB
BZ

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