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 >
BASIC Source File  |  1984-04-29  |  3KB  |  100 lines
  1.      rem This is the Master Menu Businessmaster II. (bizmii)
  2.  
  3. %INCLUDE ALL.BAS
  4. %INCLUDE CHECK.BAS
  5.  
  6.      CONSOLE 
  7.      RESTORE
  8. 1025 print clear$:print
  9.      print "*** BusinessMaster II Master Menu ***"
  10.      print
  11. 2000 PRINT "1 - GENERAL LEDGER/GENERAL JOURNAL OPERATIONS" REM: MASTER1
  12. 2010 PRINT
  13. 2020 PRINT "2 - ORDER ENTRY/RECEIVABLES OPERATIONS"        REM: MASTER2
  14. 2030 PRINT
  15. 2040 PRINT "3 - PURCHASE ORDER/PAYABLES OPERATIONS"        REM: MASTER3
  16. 2050 PRINT
  17. 2060 PRINT "4 - INVENTORY OPERATIONS"                      REM: MASTER4
  18. 2070 PRINT
  19. 2080 PRINT "5 - EMPLOYEE PAYROLL OPERATIONS"               REM: MASTER5
  20. 2090 PRINT
  21. 2100 PRINT "6 - MAILING LIST OPERATIONS"                   REM: MASTER6
  22. 2110 PRINT
  23.     IF CHECK5<>1 THEN PRINT ON$;
  24. 2120 PRINT "7 - INITIALIZE SYSTEM/START-UP/MODIFY SYSTEM";\ REM: MASTER7
  25.         "/ * DAILY DATE CHANGE *"
  26.     IF CHECK5<>1 THEN PRINT OFF$;
  27. 2130 PRINT
  28. 2140 PRINT "8 - PERIODIC FILE MAINTENANCE"                 REM: MASTER8
  29. 2150 PRINT
  30. 2160 PRINT "9 - FINISHED"
  31. 3000 PRINT
  32. 3010 INPUT Z
  33.     IF Z=20 THEN GOSUB 9600:GOTO 1025
  34. 3020 IF Z<1 OR Z>9 THEN 1025
  35. 4000 ON Z GOTO 9000,9050,9100,9150,9200,9250,9300,9350,9400
  36. 9000 PRINT clear$:PRINT:PRINT"INSTALL PROGRAM DISK #1."
  37. 9010 PRINT:INPUT "TYPE RETURN WHEN READY.";line temp$
  38.      initialize
  39. 9020 CHAIN "MASTER1"
  40. 9050 PRINT clear$:PRINT:PRINT"INSTALL PROGRAM DISK #3."
  41. 9060 PRINT:INPUT "TYPE RETURN WHEN READY.";line temp$
  42.      initialize
  43. 9070 CHAIN "MASTER2"
  44. 9100 PRINT clear$:PRINT:PRINT"INSTALL PROGRAM DISK #3."
  45. 9110 PRINT:INPUT "TYPE RETURN WHEN READY.";line temp$
  46.      initialize
  47. 9120 CHAIN "MASTER3"
  48. 9150 PRINT clear$:PRINT:PRINT"INSTALL PROGRAM DISK #4."
  49. 9160 PRINT:INPUT "TYPE RETURN WHEN READY.";line temp$
  50.      initialize
  51. 9170 CHAIN "MASTER4"
  52. 9200 PRINT clear$:PRINT:PRINT"INSTALL PROGRAM DISK #2."
  53. 9210 PRINT:INPUT "TYPE RETURN WHEN READY.";line temp$
  54.      initialize
  55. 9220 CHAIN "MASTER5"
  56. 9250 PRINT clear$:PRINT:PRINT"INSTALL PROGRAM DISK #4."
  57. 9260 PRINT:INPUT "TYPE RETURN WHEN READY.";line temp$
  58.      initialize
  59. 9270 CHAIN "MASTER6"
  60.      initialize
  61. 9300 CHAIN "MASTER7"
  62. 9350 PRINT clear$:PRINT:PRINT"INSTALL PROGRAM DISK #5."
  63. 9360 PRINT:INPUT "TYPE RETURN WHEN READY.";line temp$
  64.      initialize
  65. 9370 CHAIN "MASTER8"
  66. 9400 IF Z>8 THEN 9700
  67. 9500 GOTO 1025
  68. 9600    PRINT CLEAR$;
  69.     PRINT "DATES FOR THIS RUN :"
  70.     FOR I%=1 TO 8
  71.     PRINT I%,DATE1$(I%),D$(I%)
  72.     NEXT I%
  73.     PRINT
  74.     PRINT "NAME FOR THIS RUN :"
  75.     PRINT
  76.     PRINT LEFT$(CO.NAME$,48)
  77.     PRINT
  78.     PRINT "TABS FOR THIS RUN :"
  79.     L$="#####"
  80.     PRINT USING L$;T%(1);T%(2);T%(3);T%(4);T%(5);T%(6);T%(7);T%(8)
  81.     PRINT USING L$;T%(9);T%(10);T%(11);T%(12);A(13);A(14);A(15);A(16)
  82.     PRINT
  83.     PRINT "PRINT FORMATS FOR THIS RUN :"
  84.     PRINT LLL$,PPP$
  85.     input "To continue type <cr>";line temp$
  86.     RETURN
  87. 9700    REM SETUP BOOT
  88.     CREATE "$$$.SUB" RECL 128 AS 20
  89.     PRINT #20;"CRUN2 BIZMII.INT$ "
  90.     CLOSE 20
  91.     PRINT CLEAR$
  92.     PRINT CUR$
  93.     PRINT "       *********** SYSTEM SHUT-DOWN ***********"
  94.     PRINT:PRINT
  95.     PRINT "            TAKE YOUR DISKS OUT OF ALL DRIVES"
  96.     PRINT
  97.     PRINT "               THEN TURN YOUR SYSTEM OFF"
  98. 9800    GOTO 9800
  99. %CHAIN 50,10500,700,1000
  100.