home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / TURBOPAS / TP-UTIL.ARK / RVRSNAME.SRC < prev    next >
Text File  |  1986-01-06  |  384b  |  13 lines
  1. PROCEDURE RVRSNAME(VAR NAME : STRING255);
  2.  
  3. VAR TNAME : STRING255;
  4.  
  5. BEGIN
  6.   IF POS('*',NAME) <> 0 THEN
  7.     BEGIN
  8.       TNAME := COPY(NAME,1,(POS('*',NAME)-1));
  9.       DELETE(NAME,1,POS('*',NAME));
  10.       NAME := CONCAT(NAME,' ',TNAME)
  11.     END
  12. END;
  13.