procedure y4mbreak (img)
        string img {prompt="image"}
begin
	string s1
#Get parameter
	s1 = img
        if (access("A"//s1))
           delete("A"//s1)
        if (access("B"//s1))
           delete("B"//s1)
        if (access("C"//s1))
           delete("C"//s1)
        if (access("D"//s1))
           delete("D"//s1)
	imcopy(s1//"[1:2052,1:2032]","A"//s1)
	imcopy(s1//"[2053:4104,1:2032]","B"//s1)
	imcopy(s1//"[1:2052,2073:4104]","C"//s1)
	imcopy(s1//"[2053:4104,2073:4104]","D"//s1)
end