home *** CD-ROM | disk | FTP | other *** search
- echo off
- rem ++
- rem
- rem FoxPro Demo Startup
- rem
- rem --
- cls
- echo
- echo FoxPro Demonstration
- echo
- echo You must have FILES set to at least 30 in your CONFIG.SYS
- echo to run the FoxPro Demo.
- echo
- echo If you are not sure about this, or wish to stop this
- echo demonstration, Press CTRL-C now. Otherwise,
- echo
- pause
- rem
- rem Get to the right directory
- rem
- IF EXIST FLAG.BXX DEL FLAG.BXX
- IF NOT EXIST DEMO.PRG GOTO SAVCFG
- CD ..
- COPY DEMO\CONFIG.FP FLAG.BXX
- rem
- rem Save old config file
- rem
- :SAVCFG
- IF NOT EXIST DEMO\CONFIG.FP GOTO BAD
- IF EXIST CONFIG.FSV DEL CONFIG.FSV
- IF EXIST CONFIG.FP COPY CONFIG.FP CONFIG.FSV
- rem
- rem Get a good config file
- rem
- COPY DEMO\CONFIG.FP
- rem
- rem Run the DEMO
- rem
- FOXPROLN DEMOSTRT
- rem
- rem Get back to the foxpro root
- rem
- IF NOT EXIST FLAG.PXX GOTO RESTCFG
- DEL FLAG.PXX
- CD ..
- rem
- rem Put the config back
- rem
- :RESTCFG
- IF EXIST CONFIG.FSV COPY CONFIG.FSV CONFIG.FP
- IF NOT EXIST CONFIG.FSV DEL CONFIG.FP
- IF EXIST CONFIG.FSV DEL CONFIG.FSV
- rem
- rem Go back
- rem
- IF NOT EXIST FLAG.BXX GOTO DONE
- DEL FLAG.BXX
- CD DEMO
- GOTO DONE
- rem
- rem Not in right directory
- rem
- :BAD
- echo
- echo You must be in the directory where you installed FoxPro
- echo to run the FoxPro Demo.
- rem
- rem Done
- :DONE