* Program   : FMAINT.PRG
* Version   : V4.2
* Author(s) : Joe Tomas 
* Date      : 07/30/86
* Notice    : 
* Called by : SYSMGR1.PRG 
* Call(s)   :   
* Notes     : FILE MAINTENANCE MENU
*           : 
CLEAR
DO WHILE .T.

   STORE '  ' TO ANS
   call paint with "filemenu.img"
   @ 17,37 GET ANS PICTURE '!!'
   READ

   DO CASE
      CASE ANS = '1'
         DO DECUSINV
      CASE ANS = '2'
         DO EDIT
      CASE ANS = '3'
         DO BEGIN
      CASE ANS = '4'
         DO END
      CASE ANS = '5'
         DO DISC
      CASE ANS = '6'
         DO CONSOL
      CASE ANS = '7'
         DO MAKEPROD
      CASE ANS = '8'
         DO BACKUP
      CASE ANS = 'E'
         CLEAR
         RETURN
      CASE ANS = '?1'
         STORE '31' TO KEY
         DO HELP WITH KEY
      CASE ANS = '?2'
         STORE '32' TO KEY
         DO HELP WITH KEY
      CASE ANS = '?3'
         STORE '33' TO KEY
         DO HELP WITH KEY
      CASE ANS = '?4'
         STORE '34' TO KEY
         DO HELP WITH KEY
      CASE ANS = '?5'
         STORE '35' TO KEY
         DO HELP WITH KEY
      CASE ANS = '?6'
         STORE '36' TO KEY
         DO HELP WITH KEY
      CASE ANS = '?7'
         STORE '37' TO KEY
         DO HELP WITH KEY
      CASE ANS = '?8'
         STORE '38' TO KEY
         DO HELP WITH KEY
   OTHERWISE
      @ 23,00
      ?? VBELL3
      STORE '01' TO KEY
      DO HELP WITH KEY
   ENDCASE

ENDDO WHILE T