home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP5_11.PRG < prev    next >
Encoding:
Text File  |  1994-01-10  |  4.3 KB  |  132 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: EXP5_14.PRG                                          ⌐ª
  3. *⌐ª     Function: POPUP ▓╦╡Ñ╕─▒Σ┤≤╨í╬╗╓├╡─╖╢└²                         ⌐ª
  4. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  5. SET TALK OFF
  6. SET ESCAPE OFF
  7. CLEAR ALL
  8. CLEAR
  9.  
  10. DEFINE MENU mymenu
  11. DEFINE PAD mypad1 OF mymenu PROMPT "\<A. ╕─  ▒Σ  ┤░  ┐┌  ┤≤  ╨í "
  12. DEFINE PAD mypad2 OF mymenu PROMPT "\<B. ╕─  ▒Σ  ┤░  ┐┌  ╬╗  ╓├ "
  13. ON SELECTION PAD mypad1 OF mymenu ACTIVATE POPUP newpop1
  14. ON SELECTION PAD mypad2 OF mymenu ACTIVATE POPUP newpop2
  15.  
  16. DEFINE POPUP newpop1 FROM 1,0 TO 11,30 SCROLL  SHADOW ;
  17.        TITLE "<< ┤░┐┌╥╗ >>"   COLOR SCHEME 8
  18. DEFINE BAR 1 OF newpop1 PROMPT " \<1.╧≥╙╥└⌐╒╣┤░┐┌"
  19. DEFINE BAR 2 OF newpop1 PROMPT " \<2.╧≥╙╥╧┬└⌐╒╣┤░┐┌"
  20. DEFINE BAR 3 OF newpop1 PROMPT " \<3.╧≥╫≤╦⌡╨í┤░┐┌"
  21. DEFINE BAR 4 OF newpop1 PROMPT " \<4.╧≥╫≤╔╧╦⌡╨í┤░┐┌"
  22. DEFINE BAR 5 OF newpop1 PROMPT " \<5.╧≥╧┬└⌐╒╣┤░┐┌"
  23. DEFINE BAR 6 OF newpop1 PROMPT " \<6.╧≥╔╧╦⌡╨í┤░┐┌"
  24. DEFINE BAR 7 OF newpop1 PROMPT " \<7.╥╞╢»┤░┐┌╓┴╫≤╔╧╜╟▓ó└⌐╓┴╫ε┤≤"
  25. DEFINE BAR 8 OF newpop1 PROMPT " \<8.╗╓╕┤╡╜╘¡╬╗╓├, ┤≤╨í"
  26. DEFINE BAR 9 OF newpop1 PROMPT " \<9.═╦│÷"
  27. ON SELECTION POPUP newpop1 DO subroute WITH POPUP(),BAR()
  28.  
  29. DEFINE POPUP newpop2 FROM 1,30 TO 13,58 SCROLL SHADOW ;
  30.        TITLE "<< ┤░┐┌╢■ >>"  COLOR SCHEME 5
  31. DEFINE BAR  1 OF newpop2 PROMPT " \<1.╧≥╙╥└⌐╒╣┤░┐┌"
  32. DEFINE BAR  2 OF newpop2 PROMPT " \<2.╧≥╙╥╥╞╢»┤░┐┌"
  33. DEFINE BAR  3 OF newpop2 PROMPT " \<3.╧≥╫≤╦⌡╨í┤░┐┌"
  34. DEFINE BAR  4 OF newpop2 PROMPT " \<4.╧≥╫≤╥╞╢»┤░┐┌"
  35. DEFINE BAR  5 OF newpop2 PROMPT " \<5.╧≥╧┬└⌐╒╣┤░┐┌"
  36. DEFINE BAR  6 OF newpop2 PROMPT " \<6.╧≥╧┬╥╞╢»┤░┐┌"
  37. DEFINE BAR  7 OF newpop2 PROMPT " \<7.╧≥╔╧╦⌡╨í┤░┐┌"
  38. DEFINE BAR  8 OF newpop2 PROMPT " \<8.╧≥╔╧╥╞╢»┤░┐┌"
  39. DEFINE BAR  9 OF newpop2 PROMPT " \<9.╥╞╢»┤░┐┌╓┴╫≤╔╧╜╟"
  40. DEFINE BAR 10 OF newpop2 PROMPT " \<A.╗╓╕┤╡╜╘¡╬╗╓├, ┤≤╨í"
  41. DEFINE BAR 11 OF newpop2 PROMPT " \<B.═╦│÷"
  42. ON SELECTION POPUP newpop2 DO subroute WITH POPUP(),BAR()
  43. ACTIVATE MENU mymenu
  44.  
  45. PROCEDURE subroute
  46. PARAMETER mPOPUP,mBAR
  47. DO CASE
  48.    CASE mPOPUP="NEWPOP1"
  49.    DO CASE
  50.       CASE mBAR=1
  51.            FOR I=1 TO 5
  52.                SIZE POPUP newpop1 BY 0,1
  53.            ENDFOR
  54.       CASE mBAR=2
  55.            FOR I=1 TO 5
  56.                SIZE POPUP newpop1 BY 1,1
  57.            ENDFOR
  58.       CASE mBAR=3
  59.            FOR I=1 TO 5
  60.                SIZE POPUP newpop1 BY 0,-1
  61.            ENDFOR
  62.       CASE mBAR=4
  63.            FOR I=1 TO 5
  64.                SIZE POPUP newpop1 BY -1,-1
  65.            ENDFOR
  66.       CASE mBAR=5
  67.            FOR I=1 TO 5
  68.                SIZE POPUP newpop1 BY 1,0
  69.            ENDFOR
  70.       CASE mBAR=6
  71.            FOR I=1 TO 5
  72.                SIZE POPUP newpop1 BY -1,0
  73.            ENDFOR
  74.       CASE mBAR=7
  75.            MOVE POPUP newpop1 TO 0,0
  76.            SIZE POPUP newpop1 TO SROW(),SCOL()
  77.       CASE mBAR=8
  78.            SIZE POPUP newpop1 TO 10,37
  79.            MOVE POPUP newpop1 TO 01,00
  80.       CASE mBAR=9
  81.            DEACTIVATE MENU mymenu
  82.            DEACTIVATE POPUP newpop1
  83.            RELEASE MENUS  mymenu
  84.            RELEASE POPUPS newpop1,newpop2
  85.    ENDCASE
  86.    CASE mPOPUP="NEWPOP2"
  87.    DO CASE
  88.       CASE mBAR=1
  89.            FOR I=1 TO 5
  90.                SIZE POPUP newpop2 BY 0,1
  91.            ENDFOR
  92.       CASE mBAR=2
  93.            FOR I=1 TO 5
  94.                MOVE POPUP newpop2 BY 0,1
  95.            ENDFOR
  96.       CASE mBAR=3
  97.            FOR I=1 TO 5
  98.                SIZE POPUP newpop2 BY 0,-1
  99.            ENDFOR
  100.       CASE mBAR=4
  101.            FOR I=1 TO 5
  102.                MOVE POPUP newpop2 BY 0,-1
  103.            ENDFOR
  104.       CASE mBAR=5
  105.            FOR I=1 TO 5
  106.                SIZE POPUP newpop2 BY 1,0
  107.            ENDFOR
  108.       CASE mBAR=6
  109.            FOR I=1 TO 5
  110.                MOVE POPUP newpop2 BY 1,0
  111.            ENDFOR
  112.       CASE mBAR=7
  113.            FOR I=1 TO 3
  114.                SIZE POPUP newpop2 BY -1,0
  115.            ENDFOR
  116.       CASE mBAR=8
  117.            FOR I=1 TO 5
  118.                MOVE POPUP newpop2 BY -1,0
  119.            ENDFOR
  120.       CASE mBAR=9
  121.            MOVE POPUP newpop2 TO 0,0
  122.       CASE mBAR=10
  123.            SIZE POPUP newpop2 TO 10,29
  124.            MOVE POPUP newpop2 TO 01,30
  125.       CASE mBAR=11
  126.            DEACTIVATE MENU mymenu
  127.            DEACTIVATE POPUP newpop2
  128.            RELEASE MENUS  mymenu
  129.            RELEASE POPUPS newpop1,newpop2
  130.    ENDCASE
  131. ENDCASE
  132.