appshell.prg

来自「用汇编语言或高级语言编写的源程序翻译成机器可执行的机器语言程序的工具称为“语言处」· PRG 代码 · 共 18 行

* APPSHELL is part of the FoxApp system.
* This is a routine to display a list of APP files and prompt
* the user for the one to run.  It does not display the list of 
* files if a file name is passed as a parameter.

PARAMETERS fname
SET TALK OFF
IF PARAMETERS() = 1
   IF FILE(fname)
      DO (fname)
   ELSE
      WAIT WINDOW fname + ' could not be located.' NOWAIT
      RETURN
   ENDIF
ENDIF