;b03.sel  adds a constant to the key number in a selec file
do lb1 i=1,323
ud ic,x0,x11
seleca003
x20=x0+237
sd x20,x11
selecash003
lb1
ud ice
seleca003
sd e 
selecash003
en