DEF行の最後には:が必要なようです。 残念ながら、プログラムリストからは、処理の意図が読み取れませんでしたが、定義の中に、STOPが書かれています。 条件によっては、ここでプログラムが止まってしまいますが、そういう意図で、書かれているのでしょうか。