home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol155 / xmenu.cmd < prev    next >
Encoding:
Text File  |  1984-04-29  |  2.8 KB  |  114 lines
  1. *
  2. *        BANKING SYSTEM COMMAND MENU PROGRAM
  3.  
  4. *           Program Name     : XMENU.CMD
  5. *        Author        : Keith R. Plossl
  6. *        Date Written    : July 1982
  7. *
  8. * -----------------------------------------------------------------------------
  9. *       P U B L I C   D O M A I N   S O F T W A R E   N O T I C E
  10. *
  11. *   This program has been placed in the public domain by Keith R. Plossl
  12. *   for the Atlanta Data Base Users Society, Inc. Atlanta, Georgia
  13. *   and may be copied, modified or used NON-COMMERCIALLY provided this
  14. *   notice, the title block and modification history have not been 
  15. *   removed.  The COMMERCIAL sale or use of this program for profit 
  16. *   is strictly prohibited.  KRP 7/15/83
  17. *   
  18. * -----------------------------------------------------------------------------
  19. *                Modification History
  20. *
  21. *    2/1/83        Added decimal check numbers               Keith R. Plossl
  22. *            to data file & programs.
  23. *
  24. *    2/26/83        Set Number Index on for use of FIND.    Keith R. Plossl
  25. *
  26. *    7/15/83        Set to Public Domain with Atlanta    Keith R. Plossl
  27. *            Data Base Users Society.
  28. * -----------------------------------------------------------------------------
  29. *  - turn off display of commands to screen
  30. SET TALK OFF
  31. ERASE
  32. SET INTENSITY OFF
  33. STORE 'B:'    TO F:DSK
  34. STORE 'ABUSBANK' TO DBF
  35. STORE 'B:'    TO C:DSK
  36.  
  37. @ 2,16 SAY 'Data Base Users Society Bank Account Main Menu'
  38. @ 4,10 SAY '          Enter Data Base File Name '    GET DBF
  39. @ 5,10 SAY '  Enter Data File Disk Drive Letter '    GET F:DSK
  40. @ 6,10 SAY 'Enter Command File Disk Drive Letter'     GET C:DSK
  41. READ
  42.  
  43. SET DEFAULT TO &F:DSK
  44. USE &DBF
  45. SET INDEX TO CKNUM
  46. SET DEFAULT TO &C:DSK
  47. DO WHILE T
  48. SET TALK OFF
  49. @ 8,5 SAY '                       BANKING SYSTEM USER MENU'
  50.  
  51. @ 10,5 SAY '        0 - EXIT'
  52. @ 11,5 SAY '        1 - Enter New Checks              6 - Modify Checks'
  53. @ 12,5 SAY '        2 - Enter Deposits                7 - Modify Deposits'
  54. @ 13,5 SAY '        3 - Enter Cancelled Checks        8 - Index Records'
  55. @ 14,5 SAY '        4 - Enter Cancelled Deposits      9 - Report Subsystem'
  56. @ 15,5 SAY '        5 - Balance & Reconcilliation     B - Make Backup File'
  57. @ 17,5 SAY ' Enter Desired Option'
  58. WAIT TO ACTION
  59. DO CASE
  60.  
  61.     CASE ACTION = '0'
  62.      SET TALK ON
  63.     QUIT
  64.  
  65.     CASE ACTION = '1'
  66.     DO XNEWENTR
  67.  
  68.     CASE ACTION = '2'
  69.     DO XDEPOSIT
  70.  
  71.     CASE ACTION = '3'
  72.     DO XCANCEL
  73.  
  74.     CASE ACTION = '4'
  75.     DO XDEPCANC
  76.  
  77.     CASE ACTION = '5'
  78.     DO XBALANCE
  79.  
  80.     CASE ACTION = '6'
  81.     DO XMODCKS
  82.  
  83.     CASE ACTION = '7'
  84.     DO XMODDEP
  85.  
  86.     CASE ACTION = '8'
  87.     DO XINDX
  88.  
  89.     CASE ACTION = '9'
  90.     DO XPRNTCK
  91.  
  92.     CASE ACTION = 'B'
  93.     SET DEFAULT TO &F:DSK
  94.     SET TALK ON
  95.     COPY TO ABUSBKUP
  96.     SET TALK OFF
  97.     SET DEFAULT TO &C:DSK
  98.     ERASE
  99.  
  100. * ----------------------------------------------------------------------------
  101. *         INVALID ENTRY ESCAPE ROUTINE
  102. * ----------------------------------------------------------------------------
  103.  
  104.     OTHERWISE
  105.         @ 19,5 SAY 'Numbers 0 thru 9 & Letter B ONLY - Please'
  106.  
  107.   ENDCASE
  108.  
  109. ENDDO
  110. RETURN
  111.  
  112. *        END OF BANKING SYSTEM MAIN MENU COMMAND FILE
  113. *
  114.