home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug106.arc / CHECKS.LBR / $ACCTS.MNU next >
Text File  |  1979-12-31  |  3KB  |  71 lines
  1. * * * * *    $ACCTS.MNU   * * * * *        6/30/84
  2. *
  3. *   This file is the data which will be user dependent 
  4. *   to the $CHECKS database system.  You should modify 
  5. *   this (as well as the other 'MNU' files to fit your
  6. *   own specific applications. 
  7. *
  8. STORE 'ABC' TO active
  9. ?                                         
  10. ?                                         
  11. ?                                         
  12. ? '                WHICH ACCOUNT ???'     
  13. ? '                ================='     
  14. ?                                         
  15. ?                                         
  16. ? '             A - JOINT ACCOUNT'        
  17. ?                                         
  18. ? '             B - LAW FIRM ACCOUNT'     
  19. ?
  20. ? '             C - ESCROW ACCOUNT'
  21. ?
  22. ? '             X - EXIT'
  23. ?
  24. ?
  25. ? '     Please enter your CHOICE...'
  26. SET CONSOLE OFF
  27. WAIT TO account
  28. STORE !(account) TO account
  29. SET CONSOLE ON
  30. DO CASE
  31.   CASE account = 'A'
  32.     STORE 'JOINT ACCOUNT' TO acctname
  33.   CASE account = 'B'
  34.     STORE 'LAW FIRM ACCOUNT' TO acctname
  35.   CASE account = 'C'
  36.     STORE 'ESCROW ACCOUNT' TO acctname
  37. ENDCASE
  38. RETURN
  39. account = 'X'
  40.    USE
  41.    RETURN
  42. ENDIF
  43. STORE T TO again
  44. DO WHILE again
  45.   ERASE
  46.   SET TALK OFF
  47.   STORE ' ' TO voiditm
  48.   SEORE ' ' TO voiditm
  49.   SET TALK OFF
  50.   STORE ' ' TO voiditm
  51.   SETO voiditm
  52.   SET TALK OFF
  53.   STORE ' ' TO voiditm
  54.   SE
  55.   SET TALK OFF
  56.   STORE ' ' TO voiditm
  57.    - PRINT REPORTS
  58.         * *    $ACCTS.MNU   * * * * *        6/30/84
  59. *
  60. *   This file is the data which will be user dependent 
  61. *   to the $CHECKS database system.  You should modify 
  62. *   this (as well as the other 'MNU' files to fit your
  63. *   own specific applications. 
  64. *
  65. STORE 'ABC' TO active
  66. ?                                         
  67. ?                                         
  68. ?                                         
  69. ? '                WHICH ACCOUNT ???'     
  70. ? '                ================='     
  71. ?