Programmer 7500/MAX_PROGRAMMERS.iso/PASCAL/MADTRB21.ZIP/RVRSNAME.SRC

Text File | 1985-06-09 | 258 b | 13 lines

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;