home *** CD-ROM | disk | FTP | other *** search
/ ftp.update.uu.se / ftp.update.uu.se.2014.03.zip / ftp.update.uu.se / pub / rainbow / msdos / decus / RB123 / fmaint.prg < prev    next >
Text File  |  1995-05-28  |  1KB  |  70 lines
  1. * Program   : FMAINT.PRG
  2. * Version   : V4.2
  3. * Author(s) : Joe Tomas 
  4. * Date      : 07/30/86
  5. * Notice    : 
  6. * Called by : SYSMGR1.PRG 
  7. * Call(s)   :   
  8. * Notes     : FILE MAINTENANCE MENU
  9. *           : 
  10. CLEAR
  11. DO WHILE .T.
  12.  
  13.    STORE '  ' TO ANS
  14.    call paint with "filemenu.img"
  15.    @ 17,37 GET ANS PICTURE '!!'
  16.    READ
  17.  
  18.    DO CASE
  19.       CASE ANS = '1'
  20.          DO DECUSINV
  21.       CASE ANS = '2'
  22.          DO EDIT
  23.       CASE ANS = '3'
  24.          DO BEGIN
  25.       CASE ANS = '4'
  26.          DO END
  27.       CASE ANS = '5'
  28.          DO DISC
  29.       CASE ANS = '6'
  30.          DO CONSOL
  31.       CASE ANS = '7'
  32.          DO MAKEPROD
  33.       CASE ANS = '8'
  34.          DO BACKUP
  35.       CASE ANS = 'E'
  36.          CLEAR
  37.          RETURN
  38.       CASE ANS = '?1'
  39.          STORE '31' TO KEY
  40.          DO HELP WITH KEY
  41.       CASE ANS = '?2'
  42.          STORE '32' TO KEY
  43.          DO HELP WITH KEY
  44.       CASE ANS = '?3'
  45.          STORE '33' TO KEY
  46.          DO HELP WITH KEY
  47.       CASE ANS = '?4'
  48.          STORE '34' TO KEY
  49.          DO HELP WITH KEY
  50.       CASE ANS = '?5'
  51.          STORE '35' TO KEY
  52.          DO HELP WITH KEY
  53.       CASE ANS = '?6'
  54.          STORE '36' TO KEY
  55.          DO HELP WITH KEY
  56.       CASE ANS = '?7'
  57.          STORE '37' TO KEY
  58.          DO HELP WITH KEY
  59.       CASE ANS = '?8'
  60.          STORE '38' TO KEY
  61.          DO HELP WITH KEY
  62.    OTHERWISE
  63.       @ 23,00
  64.       ?? VBELL3
  65.       STORE '01' TO KEY
  66.       DO HELP WITH KEY
  67.    ENDCASE
  68.  
  69. ENDDO WHILE T
  70.