* EMPLOYEE.CMD
*
SET TALK OFF
SET CONSOLE ON
SET FORMAT TO SCREEN
SET COLON OFF
SET BELL OFF
SET INTENSITY OFF
USE EMPLOYEE INDEX EMPNO, EMPNAME
STORE T to More
DO WHILE More
  ERASE
  @  4,29 SAY "PERSONNEL MENU"
  @  6,24 SAY "========================"
  @  7,24 SAY "1.   Maintain Employee Files"
  @  8,24 SAY "2.   Produce Reports"
  @  9,24 SAY "3.   Index Databases"
  @ 10,24 SAY "========================"
  @ 12,24 SAY "R:   Return to dBASE"
  @ 13,24 SAY "X:   Return to Operating System"
  @ 15,24 say "Please enter yor choice ==>"
SET CONSOLE OFF
WAIT TO Choice
SET CONSOLE ON
DO CASE
    CASE Choice='1'
        DO EMPLOYEE.ADD
    CASE Choice='2'
        DO EMPLOYEE.RPT
    CASE Choice='3'
        DO REINDEX.CMD
    CASE Choice='R'
        CANCEL
    CASE Choice='X'
        QUIT
ENDCASE
ENDDO
RELEASE More, Choice
RETURN

===="
@  3,20 SAY "PAYROLL SYSTEM MENU"
@  4,20 SAY "-------------------"
@  5,16 SAY "1.  Maintain System Profile"
@  6,16 SAY "2.  Maint