ちょっと眺めてみたのですが、画像だけではちょっとわからないですね…… 公開キーはありますか？ （WHILE ループの中に GOTO 文が仕込まれているので、ちょっとこのプログラムは怪しい動きをする可能性が高いのではないかと思ってはいるのですが）