home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a040 / 2.ddi / SHRWARE4.ARC / GENPRG.INC < prev    next >
Encoding:
Text File  |  1988-02-11  |  683 b   |  34 lines
  1. <<* GENPRG.INC *>>
  2. <<#
  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'      <<*Force '.PRG' extension*>>
  11.   end
  12.   RETURN fspec
  13. end <<*GetPrgName*>>
  14.  
  15. <<* Commented out for now. Only one version available! *>>
  16. <<* procedure SelectProduct
  17. integer choice
  18. begin
  19.   choice := 2
  20.   initmenu( 'Available Products' )
  21.     'FoxBASE+ 2.10'
  22.     'add new versions here'
  23.   end
  24.   menu to choice
  25.   if choice = 0
  26.     set ProductCode to 1
  27.   else
  28.     set ProductCode to choice
  29.   endif
  30. end *>>
  31.  <<*SelectProduct*>>
  32. <<* EOF: GENPRG.INC *>>
  33. #>>
  34.