home *** CD-ROM | disk | FTP | other *** search
- *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
- *⌐ª Program: EXP5_15.PRG ⌐ª
- *⌐ª Function: ▓╦╡Ñ╥╞╢»╡─╖╢└². ⌐ª
- *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
- SET TALK OFF
- CLEAR ALL
- CLEAR
- DEFINE POPUP pop5_15 FROM 6,25 TO 16,50 ;
- SCROLL SHADOW COLOR SCHEME 7
-
- DEFINE BAR 1 OF pop5_15 PROMPT " ▓╦╡Ñ╥╞╢» " SKIP
- DEFINE BAR 2 OF pop5_15 PROMPT "\-"
- DEFINE BAR 3 OF pop5_15 PROMPT " \<1. ╧≥╙╥╥╞╢»┤░┐┌"
- DEFINE BAR 4 OF pop5_15 PROMPT " \<2. ╧≥╫≤╥╞╢»┤░┐┌"
- DEFINE BAR 5 OF pop5_15 PROMPT " \<3. ╧≥╧┬╥╞╢»┤░┐┌"
- DEFINE BAR 6 OF pop5_15 PROMPT " \<4. ╧≥╔╧╥╞╢»┤░┐┌"
- DEFINE BAR 7 OF pop5_15 PROMPT " \<5. ╥╞╢»┤░┐┌╓┴╫≤╔╧╜╟"
- DEFINE BAR 8 OF pop5_15 PROMPT " \<6. ═╦│÷"
-
- ON SELECTION POPUP pop5_15 DO moving WITH BAR()
- ACTIVATE POPUP pop5_15
- PROCEDURE moving
- PARAMETER mBAR
- DO CASE
- CASE mBAR=3
- MOVE POPUP pop5_15 BY 0,1
- CASE mBAR=4
- MOVE POPUP pop5_15 BY 0,-1
- CASE mBAR=5
- MOVE POPUP pop5_15 BY 1,0
- CASE mBAR=6
- MOVE POPUP pop5_15 BY -1,0
- CASE mBAR=7
- MOVE POPUP pop5_15 TO 0,0
- CASE mBAR=8
- DEACTIVATE POPUP pop5_15
- RELEASE POPUP pop5_15
- ENDCASE
- RETURN