proc up
  loop
        mousewhere (mx, my, mb)
            exit when mb = 0
        end loop


end up