fr
?the selection file?
;<1> seltotal1
fr
?the even file?
;<2> seltotal1even
fr
?the odd file?
;<3> seltotal1odd

ud n,x20
<1>

x21=-1
x51=0
x52=0
do lb1 x71=1,x20
ud ic,x71,x91
<1>
if(x21.eq.-1) goto lb2
x21=-x21
x51=x51+1
sd x51,x91
<3>
goto lb1
lb2
x21=-x21
x52=x52+1
sd x52,x91
<2>
lb1
ud ice
<1>
sd e
<2>
sd e
<3>
re