#This removes the overscan and trims the images
#task $y4ktrim=/home/massey/survey/y4ktrim.cl
# Get rid of binned files
set g="../junk/"
    delete("togo")
hselect("y*.fits","$I","naxis1 != 4104",>"togo")
#If they already exist, get rid of them....
imdelete("g$//@togo")
imrename("@togo","g$//@togo")
#Break them up:
    delete("todo")
files("y*.fits",>"todo")
list="todo"
while(fscan(list,s1)!=EOF){
y4kbreak(s1)
y4ktproc(s1)
y4knew(s1)
}
#Do a little housecleaning:
delete("todo")
delete("togo")