home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l217 / 2.ddi / EXAMPLES / CH12EX13.PRO < prev    next >
Encoding:
Text File  |  1990-03-26  |  402 b   |  15 lines
  1. /*
  2.    Copyright (c) 1986, 90 by Prolog Development Center
  3. */
  4. goal
  5.     Name="c:\\psys\\prolog.exe",
  6.     FileNameExt(Name,BaseName,Ext),
  7.     write("\nName=",Name),
  8.     write("\nBaseName=",BaseName),
  9.     write("\nExt=",Ext),
  10.     FileNameExt(NewName,BaseName,Ext),
  11.     write("\nConverted back: ",NewName),
  12.     % Override the old extension
  13.     FileNameExt(NewName1,"PROLOG.EXE",".HLP"),
  14.     write("\nNewName1=",NewName1).
  15.