@loop read word$ if len(word$)==0 then return false if str$==word$ then return true goto @loop とでもするか、でしょうか。