10 :REM/ PROGRAM NAME :  "GLMENU"
20 :REM/ PROGRAMMED BY:     BUD SHAMBURGER      JANUARY 1977
30 :REM/                    #27 RED OAK DR
40 :REM/                    CONWAY ARK  72032
50 :REM/                    501-327-3641
60 :REM/
70 :REM/ A PROGRAM TO DISPLAY ALL GENERAL LEDGER PROGRAMS AND PROMPT THE
80 :REM/ OPERATOR AS TO THE FLOW OF PROCESSING
90 :REM/ THIS PROGRAM BOOTS UP THE DESIRED PROGRAM SELECTED BY THE OPERA
100 :REM/ EACH PROGRAM IN THE GENERAL LEDGER PACKAGE WILL BOOT UP THIS P
110 :REM/ UPON REACHING EOJ.
120 :REM/
130 :REM/***************************************************************
140 :REM/
150 PRINT " * *  GENERAL LEDGER MENUE  * *"
160 PRINT
170 PRINT "       ENTER NUMBER DESIRED"
180 PRINT
190 PRINT "1 - GL1 - ENTER CHECK TRANSACTIONS FOR ACCOUNT 1110"
200 PRINT "2 - GL2 -  RUN LEDGER TRANSACTIONS BY:"
210 PRINT "              A. CHECK NO - VOUCHER NO"
220 PRINT "              B. ACCOUNT NO"
230 PRINT "3 - GL3 - MERGE BANKBKUP WITH LEDGER AND CREATE NEW BANKCURR"
240 PRINT "4 - GL4 - ENTER CHECKS CASHED & TAG BANKCURR"
250 PRINT "5 - GL5 - RUN BANK STATEMENT FOR ACCOUNT NO 1110"
260 PRINT "6 - GL6 - ENTER DAILY ROOM REVENUE JOURNAL VOUCHERS"
270 PRINT "7 - GL7 - RUN MONTHLY OR YTD BUDGET - MONTHLY OR YTD ANALYSIS"
280 PRINT "8 - COPRAN - COPY FILES"
290 PRINT "9 - GETPUT - MAKE MASTER CHANGES"
300 PRINT "10 - SORTGL - SORT GENERAL LEDGER FILES"
310 PRINT "11 - COPCON - COPY BUDGET FILE TO BUDGET HISTORY FILE"
320 PRINT "12 - CHART - LOADS GENERAL LEDGER CHART OF ACCOUNTS IN"
330 PRINT "             PROGRAM FORMAT FOR LISTING OR UPDATING"
340 PRINT "13 - GENPRO - LIST THE PROCEDURES FOR RUNNING THE GENERAL"
350 PRINT "              LEDGER PACKAGE OF PROGRAMS"
360 INPUT A
370 IF A<1 OR A>13 THEN PRINT "CODE ERROR";CHR$(7):GOTO 150
380 IF A=1 THEN LOAD "A:GL1",R
390 IF A=2 THEN LOAD "A:GL2",R
400 IF A=3 THEN LOAD "A:GL3",R
410 IF A=4 THEN LOAD "A:GL4",R
420 IF A=5 THEN LOAD "A:GL5",R
430 IF A=6 THEN LOAD "A:GL6",R
440 IF A=7 THEN LOAD "A:GL7",R
450 IF A=8 THEN LOAD "A:COPRAN",R
460 IF A=9 THEN LOAD "A:GETPUT",R
470 IF A=10 THEN LOAD "A:SORTGL",R
480 IF A=11 THEN LOAD "A:COPCON",R
490 IF A=12 THEN LOAD "A:CHART"
500 IF A=13 THEN LOAD "A:GENPRO",R
510 GOTO 150
520 END