home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP5_20.PRG < prev    next >
Encoding:
Text File  |  1994-01-10  |  1.5 KB  |  53 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: EXP5_20.PRG                                          ⌐ª
  3. *⌐ª     Function: ╘┌╧╡═│▓╦╡Ñ╡─╫╙▓╦╡Ñ╓╨╘÷╝╙╤í╧ε╡─╖╢└²                   ⌐ª
  4. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  5. SET  TALK OFF
  6.  
  7. *  ╢¿╥σ╧╡═│▓╦╡Ñ╓╗▒ú┴⌠ System, File, Window ╚²╧ε
  8. SET SYSMENU TO _MSM_SYSTM,_MSM_FILE,_MSM_WINDO
  9. CLEAR
  10.  
  11. *  ╢¿╥σ╘┌╫╙▓╦╡Ñ _MSYSTEM ╡─ _MST_FILER ╟░├µ╘÷╝╙╤í╧ε:<U╘÷╝╙╤í╧ε>
  12. DEFINE BAR 1 BEFORE _MST_FILER OF _MSYSTEM ;
  13.        PROMPT "\<U╘÷╝╙╤í╧ε  " ;
  14.        KEY Ctrl+U,"^U" ;
  15.        MESSAGE "╧╡═│╫┤╠¼╔Φ╓├"
  16.  
  17. *  ╢¿╥σ╘÷╝╙╤í╧ε:<U╘÷╝╙╤í╧ε> ╡─╫╙▓╦╡Ñ
  18. DEFINE POPUP pop1  RELATIVE  SHADOW
  19.  
  20. DEFINE BAR 1 OF pop1 PROMPT " \<1.╫┤╠¼╨╨       ON/OFF "
  21. DEFINE BAR 2 OF pop1 PROMPT " \<2.╧╡═│╩▒╓╙     ON/OFF "
  22. DEFINE BAR 3 OF pop1 PROMPT " \<3.╧╡═│▓╦╡Ñ╕┤╘¡ ON/OFF "
  23.  
  24. ON BAR 1 OF _MSYSTEM ACTIVATE POPUP pop1
  25. ON SELECTION POPUP pop1 DO subroute IN EXP5_20 WITH BAR()
  26.  
  27. ACTIVATE POPUP pop1
  28.  
  29. PROCEDURE subroute
  30. PARAMETER mBAR
  31. DO CASE
  32.    CASE mBAR=1
  33.         IF SET("STATUS")="OFF"
  34.            SET STATUS ON
  35.         ELSE
  36.            SET STATUS OFF
  37.         ENDIF
  38.    CASE mBAR=2
  39.         IF SET("CLOCK")="OFF"
  40.            SET CLOCK ON
  41.         ELSE
  42.            SET CLOCK OFF
  43.         ENDIF
  44.    CASE mBAR=3
  45.         SET TALK   OFF
  46.         SET STATUS OFF
  47.         SET CLOCK  OFF
  48.         * ╧╡═│▓╦╡Ñ╗╓╕┤╙Φ╔Φ╫┤╠¼
  49.         SET SYSMENU TO DEFAULT
  50.         DEACTIVATE POPUP pop1
  51.         RELEASE POPUPS pop1
  52. ENDCASE
  53.