home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DBASEACC.ARC / ACCTG.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.5 KB  |  69 lines
  1.  
  2.  
  3. *ACCTG.  THIS IS THE CONTROL MODULE FOR ALL THE PROCEDURES USED IN THE  *ACCOUN
  4. SET INTE OFF
  5. SELECT PRIMARY
  6. CLEAR
  7. SET TALK OFF
  8. SET EJECT OFF
  9. SET MARGIN TO 38
  10. SET RAW ON
  11.  
  12. STORE T TO Accounting
  13. DO WHILE Accounting
  14. SET FORMAT TO SCREEN
  15.     ERASE
  16.     ?
  17.     ?
  18.     ?  '1> ENTER BILLS & TIME SHEETS      6> REPORTS & PRINTOUTS'
  19.     ?  '                                     Job cost & billing summaries'
  20.     ?  '2> PAY BILLS & SALARIES              Find & Edit bills by name'
  21.     ?  '                                     Review/print databases'
  22.     ?  '3> DEPOSITS & CHECKBOOK              Quarterly Sales Tax'
  23.     ?
  24.     ?  '4> MEDIA INSERTION ORDERS'
  25.     ?
  26.     ?  '5> CLIENT BILLINGS & INVOICES'
  27.     ?
  28.     ?
  29.     ?  '           PICK A NUMBER (Q TO QUIT)'
  30.     WAIT TO Action
  31.  
  32.     IF !(Action) = 'Q'
  33.       * 9/28 TOOK OUT QUIT TO '&Q' FOR THE IBM 3101
  34.       QUIT
  35.     ELSE
  36.     IF Action = '1'
  37.         DO    CostMenu
  38.     ELSE
  39.         IF Action = '2'
  40.         DO PayMenu
  41.         ELSE
  42.         IF Action = '3'
  43.             DO DepMenu
  44.         ELSE
  45.             IF Action = '4'
  46.             DO IOMenu
  47.             ELSE
  48.             IF Action = '5'
  49.                 DO InvMenu
  50.             ELSE
  51.                 IF Action = '6'
  52.                 DO ReportMe
  53.                 ELSE
  54.                 IF Action = '7'
  55.                     ERASE
  56.                     @ 5,10 SAY '   HELP file not ready yet.'
  57.                     ? '  <return> to continue.'
  58.                     WAIT
  59.                 ENDIF 7
  60.                 ENDIF 6
  61.             ENDIF 5
  62.             ENDIF 4
  63.         ENDIF 3
  64.         ENDIF 2
  65.     ENDIF 1
  66.     ENDIF Q
  67.     STORE T TO Accounting
  68. ENDDO Accounting
  69.