fork DoMusic3
Pic.Draw (enter, 0, 0, picCopy)
loop
    mousewhere (mx, my, mb)
    exit when mb = 1
end loop
cls
Music.PlayFileStop