home *** CD-ROM | disk | FTP | other *** search
- *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
- *⌐ª Program: EXP5_20.PRG ⌐ª
- *⌐ª Function: ╘┌╧╡═│▓╦╡Ñ╡─╫╙▓╦╡Ñ╓╨╘÷╝╙╤í╧ε╡─╖╢└² ⌐ª
- *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
- SET TALK OFF
-
- * ╢¿╥σ╧╡═│▓╦╡Ñ╓╗▒ú┴⌠ System, File, Window ╚²╧ε
- SET SYSMENU TO _MSM_SYSTM,_MSM_FILE,_MSM_WINDO
- CLEAR
-
- * ╢¿╥σ╘┌╫╙▓╦╡Ñ _MSYSTEM ╡─ _MST_FILER ╟░├µ╘÷╝╙╤í╧ε:<U╘÷╝╙╤í╧ε>
- DEFINE BAR 1 BEFORE _MST_FILER OF _MSYSTEM ;
- PROMPT "\<U╘÷╝╙╤í╧ε " ;
- KEY Ctrl+U,"^U" ;
- MESSAGE "╧╡═│╫┤╠¼╔Φ╓├"
-
- * ╢¿╥σ╘÷╝╙╤í╧ε:<U╘÷╝╙╤í╧ε> ╡─╫╙▓╦╡Ñ
- DEFINE POPUP pop1 RELATIVE SHADOW
-
- DEFINE BAR 1 OF pop1 PROMPT " \<1.╫┤╠¼╨╨ ON/OFF "
- DEFINE BAR 2 OF pop1 PROMPT " \<2.╧╡═│╩▒╓╙ ON/OFF "
- DEFINE BAR 3 OF pop1 PROMPT " \<3.╧╡═│▓╦╡Ñ╕┤╘¡ ON/OFF "
-
- ON BAR 1 OF _MSYSTEM ACTIVATE POPUP pop1
- ON SELECTION POPUP pop1 DO subroute IN EXP5_20 WITH BAR()
-
- ACTIVATE POPUP pop1
-
- PROCEDURE subroute
- PARAMETER mBAR
- DO CASE
- CASE mBAR=1
- IF SET("STATUS")="OFF"
- SET STATUS ON
- ELSE
- SET STATUS OFF
- ENDIF
- CASE mBAR=2
- IF SET("CLOCK")="OFF"
- SET CLOCK ON
- ELSE
- SET CLOCK OFF
- ENDIF
- CASE mBAR=3
- SET TALK OFF
- SET STATUS OFF
- SET CLOCK OFF
- * ╧╡═│▓╦╡Ñ╗╓╕┤╙Φ╔Φ╫┤╠¼
- SET SYSMENU TO DEFAULT
- DEACTIVATE POPUP pop1
- RELEASE POPUPS pop1
- ENDCASE