; BINDOC.PRO 
 
journal,'\idl\steele\bintest.pro' 
f=rfindfile('\data\test\tst.0*',count=nf) 
g=rfindfile('\data\test\g*.0*',count=ng)
help,f,nf,g,ng
for i=0,nf-1 do print,i,'   ',f(i) 
 
print,f(2) & b36=readtest(f(2)) 
print,g(2) & rdkimg,g(2),h,i36 
f36=binf(i36,2) 
print,'Raw file, top left corner:' 
print,i36(0:11,0:11),format='(12I6)' 
print,'Binned by KI, top left corner:' 
print,b36(0:5,0:5) 
print,'Binned by IDL, top left corner:' 
print,f36(0:5,0:5) 
 
print,format='(//)' 
 
print,f(1) & b37=readtest(f(1)) 
print,g(1) & rdkimg,g(1),h,i37 
f37=binf(i37,2) 
print,'Raw file, top left corner:' 
print,i37(0:11,0:11),format='(12I6)' 
print,'Binned by KI, top left corner:' 
print,b37(0:5,0:5) 
print,'Binned by IDL, top left corner:' 
print,f37(0:5,0:5) 
 
print,format='(//)' 
 
print,f(0) & b38=readtest(f(0)) 
print,g(0) & rdkimg,g(0),h,i38 
f38=binf(i38,2) 
print,'Raw file, top left corner:' 
print,i38(0:11,0:11),format='(12I6)' 
print,'Binned by KI, top left corner:' 
print,b38(0:5,0:5) 
print,'Binned by IDL, top left corner:' 
print,f38(0:5,0:5) 
 
journal 
end