XProfan

Proc rat

    Parameters Suche$,Quelle$
    Declare sLen%,qLen%,i%,erg%
    Let sLen% = @Len(Suche$)
    Let qLen% = @Len(Quelle$)

    If @And(@And(@GT(sLen%,0),@GT(qLen%,0)),@Not(@GT(sLen%,qLen%)))

        Let i% = @Add(@Sub(qLen%,sLen%),1)

        While @GT(i%,0)

            IfNot @Equ$(Mid$(Quelle$,i%,sLen%),Suche$)

                Let i% = i% - 1

            Else

                Let erg% = i%
                Let i% = 0

            EndIf

        EndWhile

    EndIf

    Return erg%

EndProc