home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / SIMTEL / CPMUG / CPMUG090.ARK / MASTER1.BAS < prev    next >
BASIC Source File  |  1984-04-29  |  2KB  |  64 lines
  1.      rem This is Master1 the General Ledger/General Journal Menu
  2.  
  3. %INCLUDE ALL.BAS
  4.      RESTORE
  5. 1020 CONSOLE 
  6. 1025 PRINT clear$:PRINT
  7. 1030 PRINT "*** GENERAL LEDGER - JOURNAL MENU ***":PRINT
  8. 2000 PRINT "1 - ENTER G/L ACCOUNTS - MAKE ADJUSTING ENTRIES" REM: GLENTRY
  9. 2010 PRINT
  10. 2020 PRINT "2 - LIST THE CHART OF ACCOUNTS"                  REM: GLCHART
  11. 2030 PRINT
  12. 2040 PRINT "3 - ENTER DISBURSEMENT TRANSACTIONS"             REM: MASTER11
  13. 2050 PRINT
  14. 2060 PRINT "4 - ENTER RECEIPTS TRANSACTIONS"                 REM: MASTER12
  15. 2070 PRINT
  16. 2080 PRINT "5 - PRINT TRIAL BALANCE"                         REM: GLTBAL
  17. 2090 PRINT
  18. 2100 PRINT "6 - PRINT BALANCE SHEET"                         REM: GLBALSHT
  19. 2110 PRINT
  20. 2120 PRINT "7 - PRINT INCOME STATEMENTS"                     REM: GLINCOME
  21. 2130 PRINT
  22. 2140 PRINT "8 - PRINT BUDGET ANALYSIS"                       REM: GLBUDGET
  23. 2150 PRINT
  24. 2160 PRINT "9 - FINISHED"                                    REM: BIZMII
  25. 3000 PRINT
  26.     A(9)=0
  27. 3010 INPUT Z
  28. 3020 IF Z<1 OR Z>9 THEN 1025
  29. 4000 ON Z GOTO 9000,9050,9100,9150,9200,9250,9300,9350,9400
  30. 9000    print clear$:print
  31.     print "Install appropriate General Ledger disk in Drive B:"
  32.     print:Input "Type return to continue.";line temp$:initialize
  33.     chain "GLENTRY"
  34. 9050    print clear$:print
  35.     print "Install appropriate General Ledger disk in Drive B:"
  36.     print:Input "Type return to continue.";line temp$:initialize
  37.     chain "GLCHART"
  38. 9100 initialize
  39.     CHAIN "MASTER11"
  40. 9150 initialize
  41.     CHAIN "MASTER12"
  42. 9200    print clear$:print
  43.     print "Install appropriate General Ledger disk in Drive B:"
  44.     print:Input "Type return to continue.";line temp$:initialize
  45.     chain "GLTBAL"
  46. 9250    print clear$:print
  47.     print "Install appropriate General Ledger disk in Drive B:"
  48.     print:Input "Type return to continue.";line temp$:initialize
  49.     chain "GLBALSHT"
  50. 9300    print clear$:print
  51.     print "Install appropriate General Ledger disk in Drive B:"
  52.     print:Input "Type return to continue.";line temp$:initialize
  53.     chain "GLINCOME"
  54. 9350    print clear$:print
  55.     print "Install appropriate General Ledger disk in Drive B:"
  56.     print:Input "Type return to continue.";line temp$:initialize
  57.     chain "GLBUDGET"
  58. 9400 print clear$:print:print "Replace program disk #5 in drive A."
  59.      print "Type return to continue."
  60.      input line temp$
  61.      initialize
  62.      chain "bizmii"
  63. 9600 GOTO 1025
  64.