Yoko

FindInString(string1,string2)

#string1 - main ,string2 -compare with string1
sub FindInString(string1,string2)
  if len(string1)<len(string2) then
    return 0
  end if  
  for var i=0 to (len(string1)-len(string2))
      if mid(string1,i,len(string2)) == string2 then 
          return 1
      end if
  next
  return 0 
end sub

#string1 - main ,string2 -compare with string1
sub FindInString(string1,string2)
  if len(string1)<len(string2) then
    return 0
  end if  
  var i,l
  for i=0 to (len(string1)-len(string2))
      if mid(string1,i,len(string2)) == string2 then 
          return 1
      end if
  next
  return 0 
end sub

#string1 - main ,string2 -compare with string1
sub FindInString(string1,string2)
  if len(string1)<len(string2) then
    return 0
  end if  
  var i,l
  for i=(len(string1)-len(string2)) to 0 step -1
      if mid(string1,i,len(string2)) == string2 then 
          return 1
      end if
  next
  return 0 
end sub