もし戻り値が必要ないなら定義の方を、 DEF SERIHU S$ として、RETURNをなくして、呼び出し側を、 SERIHU S$ とする方法もありますよ。なんか戻り値は引数の値を返しているだけだったのでこの場合は意味ないかな？と思ったので。 （もちろん意図的に返す場合もありますが）