if `selector req2 "Really move" "$short?"` NOT EQ Yes
	quit
endif

failat 21
setenv diry `list "$gm" lformat %f`
setenv fily `list "$gm" lformat %n`
requestfile >env:ffb title "Move to:" pattern (#?.mid|#?.midi|mid.#?|midi.#?) drawer "$diry" file "$fily"
if not warn
		
		run >nil: selector moving
		rename >nil: "$gm" $ffb
		if fail
			copy "$gm" $ffb
			delete "$gm"
		endif
		wait 1
		break $gmpid
endif
unsetenv ffb
unsetenv fily
unsetenv diry
failat 10