home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a070 / 1.ddi / FOXPRO / DEMOSTRT.PRG < prev    next >
Encoding:
Text File  |  1989-12-21  |  504 b   |  39 lines
  1. *++
  2. *
  3. * FoxPro Demonstration Startup Program
  4. *
  5. *--
  6.  
  7. *
  8. * Set default if we need to 
  9. *
  10. SET TALK OFF
  11. IF FILE("FLAG.PXX")
  12.     DELETE FILE FLAG.PXX
  13. ENDIF
  14. IF !FILE("DEMO.PRG")
  15.     SET DEFAULT TO DEMO
  16.     IF !FILE("DEMO.PRG")
  17.         WAIT "Cannot find demonstration program, Press any key."
  18.         QUIT
  19.     ENDIF
  20.     COPY FILE CONFIG.FP TO FLAG.PXX
  21. ENDIF
  22.  
  23. *
  24. * Run the Demonstration
  25. *
  26. DO DEMO
  27.  
  28. *
  29. * Set default back
  30. *
  31. IF FILE("FLAG.PXX")
  32.     DELETE FILE FLAG.PXX
  33.     SET DEFAULT TO ..
  34. ENDIF
  35. *
  36. * Done
  37. *
  38. QUIT
  39.