search(str,substr) Func Local n,list 1->n {}->list Loop inString(str,substr,n)->n If n=0 Return list n->list[dim(list)+1] n+1->n EndLoop EndFunc
search(str,substr) Func Local n,list {}->list inString(str,substr)->n While n!=0 n->list[dim(list)+1] inString(str,substr,n+1)->n EndWhile list EndFunc