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
/
CPMUG089.ARK
/
BIZMII.BAS
< prev
next >
Wrap
BASIC Source File
|
1984-04-29
|
3KB
|
100 lines
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