home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol198 / main.acc < prev    next >
Encoding:
Text File  |  1985-02-10  |  4.9 KB  |  130 lines
  1. * DATE 07/20/84  17:25
  2. STOR t TO account
  3. DO WHIL account
  4.  REST from coname additive
  5.  STOR '?' to command
  6.  ERAS
  7. TEXT
  8.  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  9.  *                                                                           *
  10.  *                                                                           *
  11.  *                                                                           *
  12.  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  13.  *                                                                           *
  14.  *                                                                           *
  15.  *                                                                           *
  16.  *                                                                           *
  17.  *                                                                           *
  18.  *                                                                           *
  19.  *                                                                           *
  20.  *                                                                           *
  21.  *                                                                           *
  22.  *                                                                           *
  23.  *                                                                           *
  24.  *                                                                           *
  25.  *                                                                           *
  26.  *                                                                           *
  27.  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  28.  *   Please select one of the above options. You may also leave this menu    *
  29.  *   by typing 'Q' and get on-line HELP by typing '?'.                       *
  30.  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  31. ENDT
  32.  @ 3,04 SAY coname + '  -  MAIN ACCOUNTING MENU'
  33.  @ 3,65 SAY DATE()
  34.  @ 7,17 SAY "A. Enter checks (Cash Disbursements Journal)"
  35.  @ 8,17 SAY "B. Enter deposits (Cash Receipts Journal)"
  36.  @ 9,17 SAY "C. Other journal entries (General Journal)"
  37.  @ 10,17 SAY "D. Post tenant payments & monthly rent accruals"
  38.  @ 11,17 SAY "E. Print or display Journals or General Ledger"
  39.  @ 12,17 SAY "F. Prepare financial statements"
  40.  @ 13,17 SAY "G. Reindex accounting records"
  41.  @ 14,17 SAY "H. Go to Accounting Maintenance Menu"
  42.  @ 15,17 SAY "I. Exit to the Operating System"
  43.  @ 16,17 SAY "J. Return to any prior menu"
  44.  @ 18,23 SAY "PLEASE SELECT ONE OF THE OPTIONS"
  45.  @ 18,58 GET command PICTURE '!'
  46.  READ
  47.  DO WHIL @(COMMAND, 'ABCDEFGHIJQ?') = 0
  48.   STOR '?' TO command
  49.   @ 18,58 GET command PICTURE '!'
  50.   READ
  51.  ENDD
  52.  CLEA GETS
  53.  DO CASE
  54.  CASE command = 'A'
  55.   DO checks.acc
  56.  CASE command = 'B'
  57.   DO depos.acc
  58.  CASE command = 'C'
  59.   DO journ.acc
  60.  CASE command = 'D'
  61.   DO postit.acc
  62.  CASE command = 'E'
  63.   DO jourp.acc
  64.  CASE command = 'F'
  65.   DO statem.acc
  66.  CASE command = 'G'
  67.   STOR CHR(PEEK(063)) TO dr
  68.   SET TALK ON
  69.   SET ECHO ON
  70.   INDE ON $(data,7,4) + date+ $(data,5,2) TO &dr.:account
  71.   SET TALK OFF
  72.   SET ECHO OFF
  73.  CASE command = '?'
  74.   ERAS
  75. TEXT
  76.  
  77.           M A I N   A C C O U N T I N G   H E L P   M E N U
  78.  
  79.     Items 'A', 'B' and 'C' are books of original entry.  To print out or  
  80.     display these books or the General Ledger, select the 'E' option. To
  81.     post tenant payments to their records or to accrue the monthly rent,
  82.     use the 'D' option.
  83.  
  84.     The actual ultimate financial statements are prepared with the 'F'
  85.     option.  These include a trial balance, the balance sheet and the   
  86.     profit and loss statement.  Before you prepare these statements you
  87.     must reindex. We have provided for this at a number of points including
  88.     option 'G'.
  89.  
  90.     Option 'H' takes you the accounting maintenance menu.  On that menu you  
  91.     can adjust the Chart of Accounts, browse through the accounting records,
  92.     etc. See the Accounting Maintenance HELP menu for more information.
  93.  
  94.  
  95.                     please hit any key to continue.....
  96.  
  97.  
  98. ENDT
  99.   SET CONSOLE OFF
  100.   WAIT
  101.   SET CONSOLE ON
  102.  CASE command = 'H'
  103.   DO maintain.acc
  104.  CASE command = 'I'
  105.   STOR 'N' TO comman
  106.   @ 18,00 SAY ' *          ARE YOU SURE YOU WANT TO EXIT TO THE OPERATING SYSTEM ?          *'
  107.   @ 18,69 GET comman PICTURE '!'
  108.   READ
  109.   IF comman = 'Y'
  110.    ERAS
  111.    SET CONSOLE OFF
  112.    QUIT
  113.   ELSE
  114.    RELE comman
  115.    STOR '?' TO command
  116.    @ 18,00 SAY " *                  HIT ANY KET TO RETURN TO THE ACCOUNTING MENU             *"
  117.    SET CONSOLE OFF
  118.    WAIT
  119.    SET CONSOLE ON
  120.   ENDI comman = 'Y'
  121.  CASE command = 'J' .OR. command = 'Q'
  122.   STOR f TO account
  123.  OTHE
  124.   STOR t TO ACCOUNT
  125.  ENDC
  126. ENDD WHILE account
  127. STOR t TO keepitup
  128. STOR 0 TO box
  129. RETU
  130.