loop
 mousewhere (mx, my, mb)
 if mb = 1 and mx> 15 and my > 15 and mx< 158 and my < 50 then
 cls
 Pic.Draw (Baku,0,0,0)
 end if
 end loop