home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a087 / 4.ddi / APPSHELL.PR_ / APPSHELL.bin
Encoding:
Text File  |  1994-02-02  |  416 b   |  18 lines
  1. * APPSHELL is part of the FoxApp system.
  2. * This is a routine to display a list of APP files and prompt
  3. * the user for the one to run.  It does not display the list of 
  4. * files if a file name is passed as a parameter.
  5.  
  6. PARAMETERS fname
  7. SET TALK OFF
  8. IF PARAMETERS() = 1
  9.    IF FILE(fname)
  10.       DO (fname)
  11.    ELSE
  12.       WAIT WINDOW fname + ' could not be located.' NOWAIT
  13.       RETURN
  14.    ENDIF
  15. ENDIF
  16.  
  17.  
  18.