$CPU 8086          ' make compatible with XT systems
$LIB ALL OFF       ' turn off all PowerBASIC libraries
$ERROR ALL OFF     ' turn off all PowerBASIC error checking
$OPTIMIZE SIZE     ' optimize for smaller code
 $COMPILE UNIT      ' compile to a UNIT (.PBU)
'$COMPILE EXE       ' compile to a UNIT (.PBU)

DEFINT A-Z         ' Required for all numeric functions, forces PB to not
                   ' include floating point in UNIT (makes it smaller)
'/*------------------------------------------------------------------*/
DECLARE FUNCTION SPACE(BYVAL X AS STRING, BYVAL N AS INTEGER, BYVAL PAD AS STRING) AS STRING
$CODE SEG "MLIB5"
'/*------------------------------------------------------------------*/
' FLIP(STRING)
'     Flip string.
'     This function returns a string where the text is "flipped" around
'     the comma.
'     All words in STRING are returned separated by one space.
'     All leading and trailing spaces are removed.
'     EXAMPLE:  T$ = FLIP("JONES JR,  JIMMY THOM")  'JIMMY THOM JONES JR'
'               T$ = FLIP("JONES ,  JIMMY THOM")    'JIMMY THOM JONES'
'/*------------------------------------------------------------------*/
    FUNCTION FLIP(BYVAL S AS STRING) PUBLIC AS STRING
      S = RTRIM$(LTRIM$(S))
      S = SPACE(S,1," ")
      T = INSTR(1,S,",")
      IF T THEN S = MID$(S,T+1) + " " + LEFT$(S,T-1)
      S = RTRIM$(LTRIM$(S))
      FUNCTION = S
    END FUNCTION
'/*------------------------------------------------------------------*/
'   $INCLUDE "C:\CODE\MLIB\MLIB.INC"
'   A$ = "SMITH  ,   John J.    q.            "
'   PRINT FLIP(A$)
'   Y$ = GETKEY