十字の右を押すと4行目のローケイトでエラーになるのですがどうしてでしょうか？

D=0のとき右ボタンを押すと 16行目のD=D-1でD=-1になってしまいます。 LOCATEで0より小さい値は指定出来ないためエラーとなっています。 16行目はD=D+1で、12行目がD=D-1では？

そのようにしたら動くようになりました。 ありがとうございました。