int :str-pos ( string $NEEDLE , string $HAYSTACK )

Searches for NEEDLE in HAYSTACK. If found, returns the character index of the first occurence. Otherwise, returns 0.

# :str-pos example
:set &NAME s''
:writeln s"What's your name?"
:readln &NAME
!if :str-pos s"a" $NAME
    :writeln s"Hello, " $NAME s"."
!else
    :writeln s"Wow, " $NAME s", your name does not contain an 'a'! Amazing!"
!fi