あとでキーピッチを詰めたい!とかなった時のために、ottaさんのように縮めたほうがいいかもですね。 FOR~NEXTも使いつつ、各処理行を HANTEI(TX,TY,19,37,151,169,"A") みたいにして DEF HANTEI (TX,TX1,TX2, TY,TY1,TY2, MOJI$)  ~処理 END とするのが私的にはおすすめ。