procedure y4ktproc (img)
        string img {prompt="image"}
begin
	string s1

#Get parameter
	s1 = img

delete("TA"//s1)
delete("TB"//s1)
delete("TC"//s1)
delete("TD"//s1)
colbias("A"//s1,"TA"//s1,trim="[1:2032,1:2032]",bias="[2037:2050,1:2032]",interact-,function="spline3",order=15,nit=0)

colbias("B"//s1,"TB"//s1,trim="[21:2052,1:2032]",bias="[2:15,1:2032]",interact-,function="spline3",order=15,nit=0)

colbias("C"//s1,"TC"//s1,trim="[1:2032,1:2032]",bias="[2037:2050,1:2032]",interact-,function="spline3",order=15,nit=0)

colbias("D"//s1,"TD"//s1,trim="[21:2052,1:2032]",bias="[2:15,1:2032]",interact-,function="spline3",order=15,nit=0)

delete("A"//s1)
delete("B"//s1)
delete("C"//s1)
delete("D"//s1)
end