;b02.sel : makes selection file of n numbers with all flags 1.
do lb1 i=1,417
x21=(1.0)
x20=x0
sd x20,x21
sel001
lb1
en