home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol110 / main.cmd < prev    next >
Encoding:
Text File  |  1984-04-29  |  3.0 KB  |  126 lines
  1. * main.cmd 02/09/83
  2. * main command program of database
  3. * this is a dBASEII database we use in a number of applications
  4. * it has been adopted to a sample ACGNJ database, and you can
  5. * modify it further to suit your particular application. note that
  6. * the link files has not yet been included in the menu structure.
  7. * also note that we have not implemented all of the features
  8. * we contemplate, so that some program features are not yet
  9. * available. lastly, the starting point on this program was
  10. * Adam Green 's "dBASE II User' s guide " published by Software
  11. * Bank, 1 Faneuil Hall Marketplace, Boston, MA 02109. We highly 
  12. * recommend that book as the best thing around to get started in
  13. * dBASEii and suggest you may even want to start off with
  14. * a Software Bank seminar.
  15. *
  16. *
  17. * this program runs well under both cp/m and cp/m 86. to run
  18. * under cp/m 86 just change the name of this files to main.prg.
  19. * 
  20. * one known bug, if you edit on the duprec format you
  21. * will not see the changes until second viewing. We
  22. * think it relates to too many memory variables.
  23.  
  24. * comments, suggestions and improvements are welcome.
  25. *                                                    
  26. * Send to:
  27. * Steve Leon
  28. * Department of Law
  29. * 48th floor
  30. * 2 World Trade Center
  31. * New York, NY 10047
  32. * (212)488-7677
  33. * or (201) 886-1658
  34. * display sign-on message while initializing system
  35. DO sign-ON.acg
  36.  
  37. * initialize variables, set up environment, use files, etc.
  38. DO init.acg
  39.  
  40. * set up the loop
  41. DO WHILE t
  42.   
  43.   * set up screen and prompts
  44.   SET FORMAT TO SAY-rec
  45.   STORE '<F>orward, <B>ackward, <D>elete/Recall, <H>elp' TO prompt1
  46.   STORE '<S>earch, <E>dit, <P>rint, <R>eports, <M>aintenance' TO prompt2
  47.   STORE '<A>dd or <Q>uit to CP/M' TO prompt3
  48.   STORE 'Main Menu ' TO mode
  49.   STORE '?' TO command
  50.   
  51.   * find out if the current record is marked for deletion
  52.   *  DO delcheck.acg 
  53.    IF *
  54.       STORE 'Deleted' TO deleted
  55.    ELSE
  56.       STORE ' ' TO deleted
  57.    ENDIF * 
  58.   
  59.   
  60.   * show the current record, and find out what to do next
  61.   STORE ' ' TO send
  62.   READ
  63.   
  64.   
  65.   * perform selected function
  66.   DO CASE
  67.       
  68.     CASE command = 'A' 
  69.       DO ADD.acg
  70.       
  71.     CASE (command = 'B' .OR. command = ',' )
  72.       * move backwards one record
  73.       SKIP -1
  74.       
  75.     CASE command = 'D' 
  76.       * switch the current record from deleted to recalled
  77.       * DO DELETE.acg
  78.  
  79.       IF *
  80.          RECALL
  81.       ELSE
  82.          DELETE
  83.       ENDIF * 
  84.  
  85.     CASE command = 'E' 
  86.       STORE # TO recordno
  87.       SET INDEX to
  88.       GOTO recordno
  89.       RELEASE recordno
  90.       RECALL 
  91.       DO EDIT.acg
  92.       
  93.     CASE (command = 'F' .OR. command = '.' )
  94.       * move forward one record
  95.       SKIP
  96.       
  97.     CASE command = 'H' 
  98.       DO help.acg
  99.       
  100.     CASE command = 'M' 
  101.       DO maintain.acg
  102.       
  103.     CASE command = 'P' 
  104.       DO PRINT.acg
  105.       
  106.     CASE command = 'Q' 
  107.       * prevent sign-off message
  108.           SET console OFF
  109.       ERASE
  110.       QUIT
  111.       
  112.       
  113.     CASE command = 'R' 
  114.       DO REPORT.acg
  115.       
  116.     CASE command = 'S' 
  117.       DO search.acg
  118.       
  119.       
  120.   ENDCASE 
  121.   
  122.   * loop back again
  123. ENDDO WHILE t 
  124.  
  125.  
  126.