function wordloop takes string s, string search returns boolean
local integer i = 0
local integer k = 0
local string tmpS
local boolean b = false
loop
exitwhen i >= StringLength(s) or b == true
loop
exitwhen k >= StringLength(s) or b == true
set tmpS = SubString(s,i,k)
if tmpS == search then
set b = true
endif
set k = k + 1
endloop
set k = 0
set i = i + 1
endloop
return b
endfunction