home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP5_13.PRG < prev    next >
Encoding:
Text File  |  1994-01-10  |  1.3 KB  |  40 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: EXP5_15.PRG                                          ⌐ª
  3. *⌐ª     Function: ▓╦╡Ñ╥╞╢»╡─╖╢└².                                      ⌐ª
  4. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  5. SET TALK OFF
  6. CLEAR ALL
  7. CLEAR
  8. DEFINE POPUP pop5_15 FROM 6,25 TO 16,50 ;
  9.        SCROLL SHADOW COLOR SCHEME 7
  10.  
  11. DEFINE BAR 1 OF pop5_15 PROMPT "        ▓╦╡Ñ╥╞╢»   "  SKIP
  12. DEFINE BAR 2 OF pop5_15 PROMPT "\-"
  13. DEFINE BAR 3 OF pop5_15 PROMPT " \<1. ╧≥╙╥╥╞╢»┤░┐┌"
  14. DEFINE BAR 4 OF pop5_15 PROMPT " \<2. ╧≥╫≤╥╞╢»┤░┐┌"
  15. DEFINE BAR 5 OF pop5_15 PROMPT " \<3. ╧≥╧┬╥╞╢»┤░┐┌"
  16. DEFINE BAR 6 OF pop5_15 PROMPT " \<4. ╧≥╔╧╥╞╢»┤░┐┌"
  17. DEFINE BAR 7 OF pop5_15 PROMPT " \<5. ╥╞╢»┤░┐┌╓┴╫≤╔╧╜╟"
  18. DEFINE BAR 8 OF pop5_15 PROMPT " \<6. ═╦│÷"
  19.  
  20. ON SELECTION POPUP pop5_15 DO moving WITH BAR()
  21. ACTIVATE POPUP pop5_15
  22. PROCEDURE moving
  23. PARAMETER mBAR
  24. DO CASE
  25.    CASE mBAR=3
  26.         MOVE POPUP pop5_15 BY 0,1
  27.    CASE mBAR=4
  28.         MOVE POPUP pop5_15 BY 0,-1
  29.    CASE mBAR=5
  30.         MOVE POPUP pop5_15 BY 1,0
  31.    CASE mBAR=6
  32.         MOVE POPUP pop5_15 BY -1,0
  33.    CASE mBAR=7
  34.         MOVE POPUP pop5_15 TO 0,0
  35.    CASE mBAR=8
  36.         DEACTIVATE POPUP pop5_15
  37.         RELEASE POPUP pop5_15
  38. ENDCASE
  39. RETURN
  40.