procedure filtsort (in1)
string in1 {prompt="Input image"}
begin
    string img,filt,type
   img=in1
   imgets(img,"filter")
   filt=imgets.value
   imgets(img,"imagetyp")
   type=imgets.value
if ((type!="zero")&&(filt!="V")&&(filt!="V 3014")&&(filt!="B")&&(filt!="B 3013")&&(filt!="U")&&(filt!="U 3012")&&(filt!="R")&&(filt!="R 3015"))  
   files(img,>>"togo")
end