dim as string n(14) = {"asdfkrisqwerty"}
  dim as string q(4) = {"kris"}
    for i as integer = 0 to 13
      for j as integer = 0 to 3
        if n(i) = q(j) then
          print "found: ", n(j), "at position: ", i, "in: ", n(i)
        end if
    next
  next
sleep