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 / sysmgr1.prg < prev    next >
Text File  |  1995-05-28  |  1KB  |  62 lines
  1. * Program   : SYSMGR1.PRG
  2. * Version   : V4.2
  3. * Author(s) : Joe Tomas 
  4. * Date      : 07/26/86
  5. * Notice    : 
  6. * Called by : OPMENU.PRG
  7. * Call(s)   :   
  8. * Notes     : SYSTEM MANAGER MAIN MENU
  9. *           : 
  10. CLEAR
  11. DO PASSWORD
  12.  
  13. IF .NOT. PSWD
  14.    RELEASE PSWD
  15.    CLEAR
  16.    RETURN
  17. ENDIF
  18. RELEASE PSWD
  19.  
  20. DO WHILE .T.
  21.  
  22.    STORE '  ' TO ANS
  23.    call paint with "sysmgr.img"
  24.    SET COLOR TO
  25.    @ 18,37 GET ANS PICTURE '!!'
  26.    READ
  27.    CLEAR GETS
  28.  
  29.    DO CASE
  30.       CASE VAL(ANS) =  1
  31.          DO FMAINT
  32.       CASE ANS = '2'
  33.          DO SETPARMS
  34.       CASE ANS = '3'
  35.          DO CASHOUT
  36.       CASE ANS = '4'
  37.          DO REPORTS
  38.       CASE ANS = 'E'
  39.          USE
  40.          CLEAR
  41.          RETURN
  42.       CASE ANS = '?1'
  43.          STORE '21' TO KEY
  44.          DO HELP WITH KEY
  45.       CASE ANS = '?2'
  46.          STORE '22' TO KEY
  47.          DO HELP WITH KEY
  48.       CASE ANS = '?3'
  49.          STORE '23' TO KEY
  50.          DO HELP WITH KEY
  51.       CASE ANS = '?4'
  52.          STORE '24' TO KEY
  53.          DO HELP WITH KEY
  54.    OTHERWISE
  55.       @ 23,00
  56.       ?? VBELL3
  57.       STORE '01' TO KEY
  58.       DO HELP WITH KEY
  59.    ENDCASE
  60.  
  61. ENDDO
  62.