REM
REM Contributed by James C. Fuller - April 2009.
REM
REM bacon RemainStr
FUNCTION RemainStr(STRING Main$,STRING Delim$)
    LOCAL i, j, k, mlen, dlen TYPE int
    LOCAL sRet$ TYPE STRING

    i = 0
    j = 0
    k = 0

    mlen = LEN(Main$)
    dlen = LEN(Delim$)
    IF mlen EQ 0 THEN
        RETURN sRet$
    ENDIF
    IF dlen EQ 0 THEN
        RETURN sRet$
    ENDIF
    i = INSTR(Main$,Delim$,1)
    IF i EQ 0 THEN
        RETURN Main$
    ENDIF
    j = i
    k = i + LEN(Delim$)
    WHILE 1 DO
        i = INSTR(Main$,Delim$,k)
        IF i EQ 0 THEN
            sRet$ =MID$(Main$,k,mlen)
            RETURN sRet$
        ELSE
            k = i + LEN(Delim$)
        ENDIF
    WEND
ENDFUNCTION

REM Test
REM S10$ = RemainStr("James C. Fuller"," ")
REM PRINT S10$