File MODIFY.FT (FORTRAN source file)

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

2I?C3M?M3N: 3TKA6,CIT*M2I	D3M;E3S?I3N: 3TKA. V(*020"36)2J^I3O?T. R1"160.JR1"0&53C3A3LV 7ROAE*M.1F420NI3A3L2 SF+ICS*(20.0^,*6&7"M&J3C3A3LF 3LPA*M2IGC+LCL3RGE+DDK6)"J	C7W^-7RSI3EV,6-KE3AWS*,7T7TCA3ER,6-KD+A3W3CN-7HKA*,7G3G	F3C6,2-?M3D[I7Y",6-EI7T2J&I+F" /KF
.5R0.)F .4V2.,B2*020.1J4"5*M.1J425&I+F" /KN-*5&2. R1*320.1B4.5F,.4B3.MFJ.4B32I[I2 .(.-N1*1&2. R1*325.1B2.0F,.4V3.MFJ.4V32I[I2 .(.-"2*8B).1R4.0F,.2B5.,R1"460.JR1"4&0+ICF*(7K.2R2.)F .4V4.,R1*820.1R4"5*M.1R425&I+F" /KR-*8&0. R1*520.1^4.9F,.4B5.MFJ.4B52I[I2 .
.-Z8*4B).1V4.1F,.5B0.,R1"561.JR1"5&1+ICF*(7K.1Z5*8B).1F4.0F,.2B1.,R1"160.JJ1"1&03C3A3LV 7XSI.MFJ.2B02IGC+LCL3CGH+ICN6(R	3AWP"	6).JJ1"5&03C3A3LN 3H	A+N" 6	KD+A
W")*M.1"420NI3A3L2 C3A;I* ^(3CGH+R&	.MFJ.4&72IGC+LCL3CGH+ICN2(^	3FOI"	6).JB2"0&0+DCO.2F020: *=217ISP.MJJ.0B12IGC+LCL3F	D3S:(3TKA*(3N*12)3NGT3B:(*,&26,SN+AB/NN,")6)2J^I3O?T. R1"160"J	C3MSO7I	F2 ?R3U	TN7E.JV1"0&03RGE+D" .1F,.5F02)& .MFJ.5F02I?F3RGM+T" .	617
CO/YJ,2=WD7LSE/EN,2=GC3NWC+LB .	GI")*M2I[I2 &(*-&3. V1*120.1F4.0F,.4B1.MFJ.5B12IGC+LCL7J	O2 &(3X&,3Y.,")*M2I?D. V1*3B0/NF=6,CIT*M2I?D. V1*4B0/N63.0R,"M&J+ICF6(SN+AB/NJ,2)&-3X:+.3J-.)F .5B4.,V1*220.1R5"0*M.1R520NI7OSN7IWNE*M2I?G+TCO.1N5"0*M.1J520NI7OSN7IWN
*M2I?D. V1*5B0/N63.0R,"M&J+ICF6(SN+AB/NN,2)&-3Y:+.3J-.)F .5B5.,V1*221.1V5"0*M.1V520NI7OSN7IWNE*M.1N520NI7OSN7IWNE*M6IKW3IWT. F(.,V1*5&1" *M.1V521ZI3O7R+ACT6(^	3R;O3GN 7OKO3D;I3AWT+S^ ")*M2I?G+TCO.1F5"0*M.1J521:I3Z:="-612J:I/Z62N*M.1J522NI3A3L2 ?J3Y&(3X&,3
.,")*M2I?D. V1*6B03N:=+Z227ISP"M&J+DCO.1^520: .3B=",642J&I+F" 3NGT3B:(*,&26-I.+ON*-&2. V1*720.1^5.2F,.5B7.MFJ.5B72I?C3N	T3NWU"M&J7GSO/OF .5B6.MFJ.5J72I?C3N	T3NWU"M&J+DCO.1"520: .3B=",642J&I+F" 3NGT3B:(*,&36-	I.+ON*-&2. V1*820.1"5.3F,.5B8.MFJ.5B82I?C3N	T3N
U.MFJ.5B62I?C3N	T3NWU"M&J3W	R+TCE*(21.1Z5"16).JV1"6&17FKO7MSA* ^(3BSA2 ?C3OSR3IGN7TOE* ^ ")*M2I?G+TCO.1J5"2*M.1"523&I3Z:="-612J&I+F" /IF-.)F .4B1.,V1*920.1&5"0*M3C>I3RWD3RSE2 GP7IOR.MFJ.5B92I[I2 :(3Z&-+ZB).1&5.1F,.6B0.,Z1"060.JV1"9&1/N63I7Z2J&I3Z:=Z*M6I+N
=ON.MFJ.6B02I[I2 &(*-&1.1F4.0F,.7B0.,Z1"160"J	C3D3E3EWT6 KF+OCM3N&=7ZR 3O: 6=+N6 	B2 ?M3V;I7GV P*M.1F620NI7OSN7IWNE*M6ICI6=+N6-+I"M&J/I7Z+N/Z"1*M6ISN+AB+I3Z.16)"0*M6ICI3T&=+P7T+I/P"1*M6I+I6=+I6-CI"+612JRI/OF .6B3. 7N+I3Z7ISP"M&J/N623N:+3Z&-/ZF+"M&J3NGT3B:
*,&16=SN+AB+N22"16)2J:I3TKA*(3N.26)3NGT3B:(.2J,")*M6ISN+AB/NN,2):=3TKA.(KN*,&3.MFJ.6B32I?C3N	T3NWU"M&J3C3A3LV 7ROAE*M2I?G+TCO.2B0"0*M3CNI7O	P2 ?R3U	TN7E.J^1"0&03W	R+TCE*(21.1B7"16).J^1"0&17FKO7MSA* ^(7N
E2 ?P7SSI3I;O2 ?F3RZ 7IOR3TN 7OKO3D;I3AWT* &	"M&J3C3A3L* +OY+K3X+K3YK6)2J&I3P:=3Z&-/ZF+"M&J/I7Z+I/Z"1*M6I+N6=+N6+CI"M&J/K7X+K7X3NGT3B&(/ZJ,")*M6I	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*M6ISN
AB7ISP*+21.36)3NGT3B&(/ZF+*,&36+	K"M&J7ISP6=CI/TJ+"M&J+DCO.1F720: 6=CI3T:,"3*M.IKN*=/N+I7Z7ISP"M&J3NGT3B:(*,&16=SN+AB+N22"16)2J:I3TKA*(3N.26)3NGT3B:(.2J,2).+X*M6ISN+AB/NN,2):=3TKA.(KN*,&36+	K.MFJ.7B12I?C3N	T3NWU"M&J7ISP.=ON"M&J3C3A3LV 7ROAE*M2I?G+TCO.2B0"
*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