PROCEDURE RVRSNAME(VAR NAME : STRING255);

VAR TNAME : STRING255;

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;