word$に最初何も入っていないので、while文の条件がいきなり成立して1回もループが回っていないと思います。面倒でも read word$ while word$!="" if str$==word$ then return true read word$ wend return false などと2回read文を書くか、(つづく)