* Program   : SYSMGR1.PRG
* Version   : V4.2
* Author(s) : Joe Tomas 
* Date      : 07/26/86
* Notice    : 
* Called by : OPMENU.PRG
* Call(s)   :   
* Notes     : SYSTEM MANAGER MAIN MENU
*           : 
CLEAR
DO PASSWORD

IF .NOT. PSWD
   RELEASE PSWD
   CLEAR
   RETURN
ENDIF
RELEASE PSWD

DO WHILE .T.

   STORE '  ' TO ANS
   call paint with "sysmgr.img"
   SET COLOR TO
   @ 18,37 GET ANS PICTURE '!!'
   READ
   CLEAR GETS

   DO CASE
      CASE VAL(ANS) =  1
         DO FMAINT
      CASE ANS = '2'
         DO SETPARMS
      CASE ANS = '3'
         DO CASHOUT
      CASE ANS = '4'
         DO REPORTS
      CASE ANS = 'E'
         USE
         CLEAR
         RETURN
      CASE ANS = '?1'
         STORE '21' TO KEY
         DO HELP WITH KEY
      CASE ANS = '?2'
         STORE '22' TO KEY
         DO HELP WITH KEY
      CASE ANS = '?3'
         STORE '23' TO KEY
         DO HELP WITH KEY
      CASE ANS = '?4'
         STORE '24' TO KEY
         DO HELP WITH KEY
   OTHERWISE
      @ 23,00
      ?? VBELL3
      STORE '01' TO KEY
      DO HELP WITH KEY
   ENDCASE

ENDDO