标题给FoxBASE+应用系统加一个FoxSHELL

　　*TYPE FOXSHELL.PRG
　　*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了。