{<<<< RvrsName >>>>}
{ From: COMPLETE TURBO PASCAL by Jeff Duntemann  }
{ Scott, Foresman & Co. 1986  ISBN 0-673-18600-8 }
{ Described in section 15.3 -- Last mod 2/1/86   }

PROCEDURE RvrsName(VAR Name : String);

VAR 
  TName : String;

BEGIN
  IF Pos('*',Name) <> 0 THEN
    BEGIN
      TName := Copy(Name,1,(Pos('*',Name)-1));
      Delete(Name,1,Pos('*',Name));
      Name := Concat(Name,' ',TName)
    END
END;
