WEND命令を使っていますが対になるWHILE命令が無いためにいぶきさんが 指摘されたエラーが発生してると考えられます。 字下げを行っている部分から推測して14行目と15行目の間に WHILE TRUE を挿入すれば無限ループとなりますね。