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

%INCLUDE ALL.BAS
%INCLUDE CHECK.BAS

     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";\ REM: MASTER7
		"/ * DAILY DATE CHANGE *"
	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
	CREATE "$$$.SUB" RECL 128 AS 20
	PRINT #20;"CRUN2 BIZMII.INT$ "
	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	GOTO 9800
%CHAIN 50,10500,700,1000