;b04,asr
do lb1 i=1,342
x27=x0
ud ic,x27,x28,x29
proj2/selecb003
cp
proj2/imb/imb0x28
temp/imb0x27
lb1
ud ice
proj2/selecb003

as r
temp/imb****
(1-342)
a
avgsin001
varsin001
lb1
en