home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DBAPG.ARC / QUIT_TO.PRG < prev    next >
Encoding:
Text File  |  1984-08-12  |  1.4 KB  |  42 lines
  1. * Program..: QUIT_TO.PRG
  2. * Author...: Tom Rettig
  3. * Date.....: November 4, 1983
  4. * Revised..: January 25, 1984 removed redundant code.
  5. * Notice...: Copyright 1984 by Ashton-Tate.  All rights reserved.
  6. * Version..: dBASE II, version 2.4.
  7. * Notes....: Replaces the QUIT TO option missing in 16-bit
  8. *            versions of dBASE II running under MS(PC)-DOS.
  9. *
  10. * Establish working environment, and prompt for the filename(s)...
  11. SET TALK OFF
  12. CLEAR
  13. STORE " " TO program
  14. ACCEPT "QUIT TO <file1> [,<file2>,<file3>,<etc.>] -->" TO program
  15. *
  16. * Open the batch file, and write the standard first line... 
  17. SET ALTERNATE TO dBASE.bat
  18. SET ALTERNATE ON
  19. SET CONSOLE OFF
  20. ? "dBASEII %1"
  21. *
  22. * Starting with the second line, write the user entries...
  23. DO WHILE @(",",program) > 0 
  24.    ? $(program,1,@(",",program)-1)
  25.    STORE $(program,@(",",program)+1) TO program
  26. ENDDO
  27. IF program > " "
  28.    ? "&program"
  29. ENDIF
  30. *
  31. * Write the standard last line which copies the "holding" batch 
  32. * file (dBASE.QTO) over the existing one so that a fresh batch
  33. * file is used every time a new entry is made into dBASE...
  34. ? "copy dBASE.QTO dBASE.BAT/v"
  35. *
  36. * Close the batch file and quit out of dBASE II...
  37. * (Execution resumes at the second line in the batch file.)
  38. SET ALTERNATE OFF
  39. SET ALTERNATE TO
  40. QUIT
  41. * EOF: Quit_to.prg
  42.