home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpmug / cpmug009.ark / GLMENU.ASC < prev    next >
Encoding:
Text File  |  1984-04-29  |  2.2 KB  |  53 lines
  1. 10 :REM/ PROGRAM NAME :  "GLMENU"
  2. 20 :REM/ PROGRAMMED BY:     BUD SHAMBURGER      JANUARY 1977
  3. 30 :REM/                    #27 RED OAK DR
  4. 40 :REM/                    CONWAY ARK  72032
  5. 50 :REM/                    501-327-3641
  6. 60 :REM/
  7. 70 :REM/ A PROGRAM TO DISPLAY ALL GENERAL LEDGER PROGRAMS AND PROMPT THE
  8. 80 :REM/ OPERATOR AS TO THE FLOW OF PROCESSING
  9. 90 :REM/ THIS PROGRAM BOOTS UP THE DESIRED PROGRAM SELECTED BY THE OPERA
  10. 100 :REM/ EACH PROGRAM IN THE GENERAL LEDGER PACKAGE WILL BOOT UP THIS P
  11. 110 :REM/ UPON REACHING EOJ.
  12. 120 :REM/
  13. 130 :REM/***************************************************************
  14. 140 :REM/
  15. 150 PRINT " * *  GENERAL LEDGER MENUE  * *"
  16. 160 PRINT
  17. 170 PRINT "       ENTER NUMBER DESIRED"
  18. 180 PRINT
  19. 190 PRINT "1 - GL1 - ENTER CHECK TRANSACTIONS FOR ACCOUNT 1110"
  20. 200 PRINT "2 - GL2 -  RUN LEDGER TRANSACTIONS BY:"
  21. 210 PRINT "              A. CHECK NO - VOUCHER NO"
  22. 220 PRINT "              B. ACCOUNT NO"
  23. 230 PRINT "3 - GL3 - MERGE BANKBKUP WITH LEDGER AND CREATE NEW BANKCURR"
  24. 240 PRINT "4 - GL4 - ENTER CHECKS CASHED & TAG BANKCURR"
  25. 250 PRINT "5 - GL5 - RUN BANK STATEMENT FOR ACCOUNT NO 1110"
  26. 260 PRINT "6 - GL6 - ENTER DAILY ROOM REVENUE JOURNAL VOUCHERS"
  27. 270 PRINT "7 - GL7 - RUN MONTHLY OR YTD BUDGET - MONTHLY OR YTD ANALYSIS"
  28. 280 PRINT "8 - COPRAN - COPY FILES"
  29. 290 PRINT "9 - GETPUT - MAKE MASTER CHANGES"
  30. 300 PRINT "10 - SORTGL - SORT GENERAL LEDGER FILES"
  31. 310 PRINT "11 - COPCON - COPY BUDGET FILE TO BUDGET HISTORY FILE"
  32. 320 PRINT "12 - CHART - LOADS GENERAL LEDGER CHART OF ACCOUNTS IN"
  33. 330 PRINT "             PROGRAM FORMAT FOR LISTING OR UPDATING"
  34. 340 PRINT "13 - GENPRO - LIST THE PROCEDURES FOR RUNNING THE GENERAL"
  35. 350 PRINT "              LEDGER PACKAGE OF PROGRAMS"
  36. 360 INPUT A
  37. 370 IF A<1 OR A>13 THEN PRINT "CODE ERROR";CHR$(7):GOTO 150
  38. 380 IF A=1 THEN LOAD "A:GL1",R
  39. 390 IF A=2 THEN LOAD "A:GL2",R
  40. 400 IF A=3 THEN LOAD "A:GL3",R
  41. 410 IF A=4 THEN LOAD "A:GL4",R
  42. 420 IF A=5 THEN LOAD "A:GL5",R
  43. 430 IF A=6 THEN LOAD "A:GL6",R
  44. 440 IF A=7 THEN LOAD "A:GL7",R
  45. 450 IF A=8 THEN LOAD "A:COPRAN",R
  46. 460 IF A=9 THEN LOAD "A:GETPUT",R
  47. 470 IF A=10 THEN LOAD "A:SORTGL",R
  48. 480 IF A=11 THEN LOAD "A:COPCON",R
  49. 490 IF A=12 THEN LOAD "A:CHART"
  50. 500 IF A=13 THEN LOAD "A:GENPRO",R
  51. 510 GOTO 150
  52. 520 END
  53.