给FoxBASE+应用系统加一个FoxSHELL
*FoxBASE+ V2.1 SHELL
SET TALK OFF
SET STATUS ON
CLEAR
@0,30 SAY 'FoxBASE+ 2.1 SHELL'
@2,0 SAY '请输入FoxBASE+命令：'
? &&输出一个空行
DO WHILE .T.
R=ROW( ) &&注意：变量“R”与“C”不可与主程序中的各变量同名
C=COL( )
@23,27 SAY '命令“EXIT”返回主菜单'
@ R,C SAY '' &&把光标移到上一命令结束处
ACCEPT 'FOX>' TO INSTRUCT &&以“FOX>”作为命令提示符
&INSTRUCT
ENDDO
CLEAR
SET TALK ON
RETURN
用户只要在你的系统主菜单中加装一条“FoxSHELL”或“Fox命令”之类的菜单项，然后在菜单的调度执行程序中相应位置写入一句
DOS FOXSHELL
即可。当你选择菜单中的“FoxSHELL”项后，便能进入一个与原FoxBASE+相仿的运行环境。此外，还有一种热键激活的调用方式：在主菜单的调度程序中适当位置加入两句
@23,0 SAY 'F10 进入FoxSHELL'
ON KEY=324 DO FOXSHELL &&'324'是功能键F10的返回值。
这样，当你在自己的数据管理系统中操作时，便随时可按F10(也可定义其他热键)来调用本FoxSHELL了。