1     rem This is the Master Menu Businessmaster II. (bizmii)

%INCLUDE ALL.BAS
%INCLUDE CHECK.BAS

500  CONSOLE
RESTORE
1025 print clear$:print
print "*** BusinessMaster II Master Menu ***"
print
2000 PRINT "1 - GENERAL LEDGER/GENERAL JOURNAL OPERATIONS" : REM MASTER1
2010 PRINT
2020 PRINT "2 - ORDER ENTRY/RECEIVABLES OPERATIONS"        : REM MASTER2
2030 PRINT
2040 PRINT "3 - PURCHASE ORDER/PAYABLES OPERATIONS"        : REM MASTER3
2050 PRINT
2060 PRINT "4 - INVENTORY OPERATIONS"                      : REM MASTER4
2070 PRINT
2080 PRINT "5 - EMPLOYEE PAYROLL OPERATIONS"               : REM MASTER5
2090 PRINT
2100 PRINT "6 - MAILING LIST OPERATIONS"                   : REM MASTER6
2110 PRINT
IF CHECK5<>1 THEN PRINT ON$;
2120 PRINT "7 - INITIALIZE SYSTEM/START-UP/MODIFY SYSTEM";"/ * DAILY DATE CHANGE *" : REM MASTER7
IF CHECK5<>1 THEN PRINT OFF$;
2130 PRINT
2140 PRINT "8 - PERIODIC FILE MAINTENANCE"                 : REM MASTER8
2150 PRINT
2160 PRINT "9 - FINISHED"
3000 PRINT
3010 INPUT Z
IF Z=20 THEN GOSUB 9600:GOTO 1025
3020 IF Z<1 OR Z>9 THEN 1025
4000 ON Z GOTO 9000,9050,9100,9150,9200,9250,9300,9350,9400
9000 PRINT clear$:PRINT:PRINT"INSTALL PROGRAM DISK #1."
9010 PRINT:INPUT "TYPE RETURN WHEN READY.";line temp$
initialize
9020 CHAIN "MASTER1"
9050 PRINT clear$:PRINT:PRINT"INSTALL PROGRAM DISK #3."
9060 PRINT:INPUT "TYPE RETURN WHEN READY.";line temp$
initialize
9070 CHAIN "MASTER2"
9100 PRINT clear$:PRINT:PRINT"INSTALL PROGRAM DISK #3."
9110 PRINT:INPUT "TYPE RETURN WHEN READY.";line temp$
initialize
9120 CHAIN "MASTER3"
9150 PRINT clear$:PRINT:PRINT"INSTALL PROGRAM DISK #4."
9160 PRINT:INPUT "TYPE RETURN WHEN READY.";line temp$
initialize
9170 CHAIN "MASTER4"
9200 PRINT clear$:PRINT:PRINT"INSTALL PROGRAM DISK #2."
9210 PRINT:INPUT "TYPE RETURN WHEN READY.";line temp$
initialize
9220 CHAIN "MASTER5"
9250 PRINT clear$:PRINT:PRINT"INSTALL PROGRAM DISK #4."
9260 PRINT:INPUT "TYPE RETURN WHEN READY.";line temp$
initialize
9270 CHAIN "MASTER6"
initialize
9300 CHAIN "MASTER7"
9350 PRINT clear$:PRINT:PRINT"INSTALL PROGRAM DISK #5."
9360 PRINT:INPUT "TYPE RETURN WHEN READY.";line temp$
initialize
9370 CHAIN "MASTER8"
9400 IF Z>8 THEN 9700
9500 GOTO 1025
9600 PRINT CLEAR$;
PRINT "DATES FOR THIS RUN :"
FOR I%=1 TO 8
PRINT I%,DATE1$(I%),D$(I%)
NEXT I%
PRINT
PRINT "NAME FOR THIS RUN :"
PRINT
PRINT LEFT$(CO.NAME$,48)
PRINT
PRINT "TABS FOR THIS RUN :"
L$="#####"
PRINT USING L$;T%(1);T%(2);T%(3);T%(4);T%(5);T%(6);T%(7);T%(8)
PRINT USING L$;T%(9);T%(10);T%(11);T%(12);A(13);A(14);A(15);A(16)
PRINT
PRINT "PRINT FORMATS FOR THIS RUN :"
PRINT LLL$,PPP$
input "To continue type <cr>";line temp$
RETURN
9700 REM SETUP BOOT
REM CREATE "$$$.SUB" RECL 128 AS 20
REM PRINT #20;"CRUN2 BIZMII.INT$ "
REM CLOSE 20
PRINT CLEAR$
PRINT CUR$
PRINT "       *********** SYSTEM SHUT-DOWN ***********"
PRINT:PRINT
PRINT "            TAKE YOUR DISKS OUT OF ALL DRIVES"
PRINT
PRINT "               THEN TURN YOUR SYSTEM OFF"
9800 REM GOTO 9800
REM %CHAIN 50,10500,700,1000
END

