*
* SYSMENU
* SYSTEM MENU
* OPERATOR ACTION WILL BE ALPHA CHARACTER
* OUTSIDE DO PROVIDED FOR RETURN TO MENU FROM LOWER LEVEL MENU
SET HEADING OFF
SET SAFETY OFF
SET STATUS OFF
DO WHILE (1=1)
SET TALK OFF
SET BELL OFF
CLEAR ALL
STORE " " TO OPINPUT
*
*===============================START MODS: 1================================*
* SET LEFT AND TOP MARGINS FOR MENU
STORE 20 TO LEFTMARG
STORE  3 TO TOPMARG
*==================================END MODS==================================*
*
*
*===============================START MODS: 2================================*
* SET HIGHEST OPTION LETTER, THEN HEADING AND LABELS FOR EACH OPTION
DO WHILE OPINPUT<"A".OR.OPINPUT>"F"
   CLEAR
   @ TOPMARG,LEFTMARG+3 SAY "SMITH'S BIKEWORKS INFORMATION SYSTEM"
   @ TOPMARG+2,LEFTMARG+11 SAY ">> Activity Menu <<"
   @ TOPMARG+4,LEFTMARG SAY "A. CUSTOMER INFORMATION System"
   @ TOPMARG+5,LEFTMARG SAY "B. HUMAN RESOURCES MANAGEMENT System"
   @ TOPMARG+6,LEFTMARG SAY "C. ACCOUNTING System"
   @ TOPMARG+7,LEFTMARG SAY "D. INVENTORY MANAGEMENT System"
   @ TOPMARG+8,LEFTMARG SAY "E. PRODUCTION PLANNING System"
   @ TOPMARG+9,LEFTMARG SAY "F. EXIT From Bikeworks' Information System"
   @ TOPMARG+11,LEFTMARG+3 SAY "Press Letter Matching Desired Option ";
     GET OPINPUT 
*=================================END MODS===================================*
*
   READ
   STORE UPPER(OPINPUT) TO OPINPUT
ENDDO
*
*==============================START MODS: 3=================================*
* PROVIDE DO FILE NAME FOR EACH CASE REPRESENTING ONE OF THE MENU OPTIONS
DO CASE
   CASE OPINPUT="A"
      DO CUSTINFO
   CASE OPINPUT="B"
      DO HRM
   CASE OPINPUT="C"
      DO ACCOUNT
   CASE OPINPUT="D"
      DO INVEN
   CASE OPINPUT="E"
      DO BOM
   CASE OPINPUT="F"
      RETURN
*=================================END MODS===================================*
*
   OTHERWISE
      CANCEL
ENDCASE
* REDISPLAY MENU
ENDDO