home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The SelectWare System Volume 2 #3
/
The_SelectWare_System_Series_1_Volume_2_Number_3_Selectware.iso
/
fox10001
/
demostrt.prg
< prev
next >
Wrap
Text File
|
1989-12-21
|
504b
|
39 lines
*++
*
* FoxPro Demonstration Startup Program
*
*--
*
* Set default if we need to
*
SET TALK OFF
IF FILE("FLAG.PXX")
DELETE FILE FLAG.PXX
ENDIF
IF !FILE("DEMO.PRG")
SET DEFAULT TO DEMO
IF !FILE("DEMO.PRG")
WAIT "Cannot find demonstration program, Press any key."
QUIT
ENDIF
COPY FILE CONFIG.FP TO FLAG.PXX
ENDIF
*
* Run the Demonstration
*
DO DEMO
*
* Set default back
*
IF FILE("FLAG.PXX")
DELETE FILE FLAG.PXX
SET DEFAULT TO ..
ENDIF
*
* Done
*
QUIT