;b06.sel using a document from categorize, pass the ones that are not in 
;that document to another directory
;x27= total number of bad particles
;x28= total number of particles (good + bad)
;define x27 and x28 every time
;x27=213
;x28=565
md
vb off
x45=1.0
x48=1.0
x80=0.0
do lb1 i=1,x27
x19=i
ud x19,x20
badones001
if(x45.eq.x20)goto lb3
if(x48.eq.x20)goto lb3
x46=x20-1.0
do lb2 j=x45,x46
x35=j
x80=x80+1.0
cp
proj1/imb/imb0x35
proj2/imb/imb0x80
sd x80,x35
proj2/selec003
lb2
lb3
x45=x20+1.0
x48=x20
lb1
;
if(x45.gt.x28)go to lb22
do lb12 i=x45,x28
x19=i
x80=x80+1.0
cp
proj1/imb/imb0x19
proj2/imb/imb0x80
sd x80,x19
proj2/selec003
lb12
lb22
ud ice
badones001
en