Note: the following won't fix the problem:

                   do  while  x==right(time(),1);;  end

_______ Gerard Schildberger