Teil einer Zeichenkette zurückliefern ab erstem Zeichen

PUB strstr (strAddr, searchAddr, offset) | searchsize
{{ finds first occurrence of search string and returns the remainder of str along with the search. }}   
  searchsize := strsize(searchAddr)

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