* MASTER.CMD
* Purpose: Main menu for Business management system.
* Uses: PROFILE.MEM
* Variables: Choice(C).
*
SET DEFAULT TO B
SET TALK OFF
ERASE
SET INTENSITY OFF
SET PRINT OFF
RESTORE from B:Profile
DO WHILE T
ERASE
@  4,35 SAY "MAIN MENU"
@  6,21 SAY "========================================="
@  7,21 SAY "        1.   Human Resources"
@  8,21 SAY "        2.   Payroll"
@  9,21 SAY "        3.   Accounts Payable"
@ 10,21 SAY "        4.   Accounts Receivable"
@ 11,21 SAY "========================================="
@ 13,21 SAY "        R Return to dBASE"
@ 14,21 say "        X Exit to Operating System"
@ 16,21 SAY "        PLEASE ENTER YOUR CHOICE:"
STORE ' ' to Choice
SET CONSOLE OFF
WAIT to Choice
STORE !(Choice) to Choice
SET CONSOLE ON
DO CASE
   CASE Choice='1'
   DO EMPLOYEE
   CASE Choice='2'
   DO Payroll
   CASE Choice='3'
   * DO Payable
   ? 'Accounts payable'
   CASE Choice='4'
   * DO Receive
   ? 'Accounts receivable'
   CASE Choice='R'
    ERASE
    CANCEL
   CASE Choice='X'
    ERASE
    QUIT
   OTHERWISE
    @ 22,10 SAY "INVALID ENTRY, TRY AGAIN"
    WAIT
    ERASE
ENDCASE
ENDDO   *WHILE T
RETURN

CE:"
STORE ' ' to Choice
SET CONSOLE OFF
WAIT to Choice
STORE !(Choice) to Choice
SET CONSOLE ON
DO CASE
   CASE Choice='1'
   DO EMPLOYEE
   CASE Choice='2'
   DO Payroll
   CASE Choice='3'
   * DO Payable
   ? 'Accounts payable'
   CASE Choice='4'
   * DO Receive
   ? 'Accounts receivable'
   CASE Choice='R'
    ERASE