Position innerhalb einer Zeichenkette zurückliefern

PUB strpos (strAddr, searchAddr, offset) | searchsize
{{ returns location of first occurrence of search in str, returns -1 if search is not found. }} 
  searchsize := strsize(searchAddr)

  REPEAT UNTIL (offset + searchsize > STR_MAX_LENGTH)
    IF (strcomp(substr(strAddr, offset++, searchsize), searchAddr)) ' if string search found
      RETURN offset - 1                                        ' return byte location
  RETURN -1