home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP5_19.PRG < prev    next >
Encoding:
Text File  |  1994-01-10  |  2.4 KB  |  73 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤ 
  2. *⌐ª      Program: EXP5_19.PRG                                          ⌐ª
  3. *⌐ª     Function: ╧╡═│▓╦╡Ñ╓╨╘÷╝╙╫╙▓╦╡Ñ╡─╖╢└²                           ⌐ª
  4. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  5. SET TALK OFF
  6. CLEAR
  7.  
  8. * ╢¿╥σ╘┌╧╡═│▓╦╡Ñ _MSYSMENU ╓╨╘÷╝╙╡─╓≈╤í╧ε enviro
  9. DEFINE PAD enviro OF _MSYSMENU PROMPT '\<V╗╖╛│▓╬╩² ';
  10.     KEY ALT+V, 'ALT+V'
  11.     * ╢¿╥σ╝ñ╗ε┤╦╤í╧ε╡─░┤╝ⁿ╬¬: [Alt]+[V]
  12. ON PAD enviro OF _MSYSMENU ACTIVATE POPUP enviro
  13.  
  14. * ╢¿╥σ╫╙▓╦╡Ñ enviro ╡─╤í╧ε
  15. DEFINE POPUP enviro MARGIN RELATIVE SHADOW COLOR SCHEME 4
  16. DEFINE BAR 1 OF enviro  PROMPT '\<1.╫┤╠¼╨╨'
  17. DEFINE BAR 2 OF enviro  PROMPT '\<2.╧╡═│╩▒╓╙'
  18. DEFINE BAR 3 OF enviro  PROMPT '\<3.╧╘╩╛╖╜╩╜'
  19. DEFINE BAR 4 OF enviro  PROMPT '\<4.╩≤▒Ω┐╪╓╞'
  20. ON SELECTION POPUP enviro DO enviropop IN EXP5_19
  21.  
  22. * ╝∞▓Θ╫╙▓╦╡Ñ╕≈╤í╧ε╡─│⌡╩╝▒Ω╝╟
  23. FOR i = 1 TO cntbar('enviro')
  24.     DO CASE
  25.     CASE PRMBAR('enviro', i) = '1.╫┤╠¼╨╨'
  26.          SET MARK OF BAR i OF enviro TO  SET('STATUS') = 'ON'
  27.     CASE PRMBAR('enviro', i) = '2.╧╡═│╩▒╓╙'
  28.          SET MARK OF BAR i OF enviro TO  SET('CLOCK') = 'ON'
  29.     CASE PRMBAR('enviro', i) = '3.╧╘╩╛╖╜╩╜'
  30.          SET MARK OF BAR i OF enviro TO  SROW() > 25
  31.     CASE PRMBAR('enviro', i) = '4.╩≤▒Ω┐╪╓╞'
  32.          SET MARK OF BAR i OF enviro TO  SET('STICKY') = 'ON'
  33.     ENDCASE
  34. ENDFOR
  35.  
  36. PROCEDURE enviropop
  37. * ╓┤╨╨╕≈╤í╧ε╡─╗╖╛│▓╬╩²╔Φ╓├▓ó╕°╕≈╤í╧ε╝╙╔╧▒Ω╝╟╗≥╔╛│²▒Ω╝╟
  38. DO CASE
  39. CASE PROMPT() = '1.╫┤╠¼╨╨'
  40.      IF mrkbar('enviro', bar())
  41.         SET STATUS OFF
  42.         SET MARK OF BAR bar() OF enviro TO .F.
  43.      ELSE
  44.         SET STATUS ON
  45.         SET MARK OF BAR bar() OF enviro TO .T.
  46.      ENDIF
  47. CASE PROMPT() = '2.╧╡═│╩▒╓╙'
  48.      IF mrkbar('enviro', bar())
  49.         SET CLOCK OFF
  50.         SET MARK OF BAR bar() OF enviro TO .F.
  51.      ELSE
  52.         SET CLOCK ON
  53.         SET MARK OF BAR bar() OF enviro TO .T.
  54.      ENDIF
  55. CASE PROMPT() = '3.╧╘╩╛╖╜╩╜'
  56.      IF MRKBAR('enviro', bar())
  57.         SET DISPLAY TO VGA25
  58.         SET MARK OF BAR bar() OF enviro TO .F.
  59.      ELSE
  60.         SET DISPLAY TO VGA50
  61.         SET MARK OF BAR bar() OF enviro TO .T.
  62.      ENDIF
  63. CASE PROMPT() = '4.╩≤▒Ω┐╪╓╞'
  64.      IF MRKBAR('enviro', bar())
  65.         SET STICKY OFF
  66.         SET MARK OF BAR bar() OF enviro TO .F.
  67.      ELSE
  68.         SET STICKY ON
  69.         SET MARK OF BAR bar() OF enviro TO .T.
  70.      ENDIF
  71. ENDCASE
  72. RETURN
  73.