/*--- XFLIP -------- MSDOS/PCDOS/DOSBOX/DOSEMU/Unix/Linux ------------*/
/* Swap Text Around Comma, Removes Comma, Fixes Spacing  2005 -       */
/* T = XFLIP("Martin, Tim R.")  returns "Tim R. Martin"  Mark McDonald*/
/*--------------------------------------------------------------------*/
  XFLIP:   PROCEDURE
    PARSE ARG X
    X = STRIP(X)
    X = SPACE(X,1," ")
    T = POS(",",X,1)
    IF T > 0 THEN X = SUBSTR(X,T+1)" "LEFT(X,T-1)
    XR = STRIP(X)
  RETURN (XR)