home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a070 / 3.ddi / FOXPRO / TEMPLGEN / GENUTIL.INC < prev    next >
Encoding:
Text File  |  1987-12-20  |  297 b   |  17 lines
  1. <<* GENUTIL.INC *>>
  2. <<#pragma
  3.  
  4. function GetPrgName( prompt : string ) : string
  5. string fspec
  6. begin
  7.   input prompt to fspec
  8.   if fspec
  9.     filespec( fspec,fpath,fname,fext )
  10.     fspec := fpath + fname + '.PRG'
  11.   end
  12.   RETURN fspec
  13. end <<*GetPrgName*>>
  14.  
  15. <<* EOF: GENUTIL.INC *>>
  16. #>>
  17.