Dim textarray$(5)
textarray$(0)="Hiya Roger!"
textarray$(1)="Simon makes SCDs"
textarray$(2)="Amiga makes it happen"
textarray$(3)="This is getting"
textarray$(4)="to be a long"
textarray$(5)="list of words."

MaxLen patternbuf$ = 256 ; Must be a minimum of three times the size of
                         ; the pattern$ plus a few.

pattern$=Edit$(20)       ; enter text and standard AmigaDOS patterns

If ParsePatternNoCase_(&pattern$,&patternbuf$,256)
  For i = 0 To 5
    If MatchPatternNoCase_(&patternbuf$,&textarray$(i))
      NPrint "I matched: "+textarray$(i)
    EndIf
  Next
Else
  NPrint "No ParsePatternNoCase !!!"
EndIf