home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / dbbooks.zip / COA.FRM < prev    next >
Text File  |  1987-02-14  |  512b  |  42 lines
  1. M=1
  2. n
  3. n
  4. n
  5. 6,ACCT
  6. Acct. No.
  7. 15,TITLE
  8. <Title
  9. 12,AMOUNT
  10. >Month;to-Date
  11. 12,QTD
  12. >Quarter;to-Date
  13. 12,YTD
  14. >Year;to-Date
  15.  
  16. 45 GET CHOICE PICT "9"
  17.    READ
  18.  
  19.    ************** Branch Accordingly.
  20.    DO CASE
  21.  
  22.       CASE CHOICE = 1 
  23.          DO ADDTRANS
  24.  
  25.  
  26.       CASE CHOICE = 2
  27.          DO UPDATER
  28.  
  29.       CASE CHOICE = 3
  30.          DO BREPORTS
  31.  
  32.       CASE CHOICE = 4
  33.          DO BEDIT
  34.  
  35.    ENDCASE
  36.  
  37. ENDDO (while choice <> 4)
  38.  ERASE
  39. STORE T TO ADDING
  40. DO WHILE ADDING
  41.    APPEND BLANK
  42.