' *** RIGHT.LST *** 2nd GFA-Manual, page 7-3 FUNCTION right$(lowercase!,txt$,search$) ' ' *** Return part of txt$ following search$ ' *** Returns nullstring if search$ not found in txt$ ' *** If lowercase!=TRUE Function distinguishes between upper and lower case ' LOCAL p IF NOT lowercase! p=INSTR(UPPER$(txt$),UPPER$(search$)) ELSE p=INSTR(txt$,search$) ENDIF IF p=0 RETURN "" ELSE RETURN MID$(txt$,ADD(p,LEN(search$))) ENDIF ENDFUNC ' ***** '