移動先に文字があるかどうか、CHKCHRで調べるようにすれば1行で済むと思います。