RosettaCodeData/Task/String-matching/M2000-Interpreter/string-matching-2.m2000

Module StringMatch {
      A="Hello World"
      Print A ~ "Hello*"
      Print A ~ "*llo*"
      p=Instr(A, "llo")
      Print p=3
      \\ Handle multiple occurance for "o"
      p=Instr(A, "o")
      While p > 0 {
            Print "position:";p;{ for "o"}
            p=Instr(A, "o", p+1)
      }
      Print A ~ "*orld"
}
StringMatch