home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP5_9.PRG < prev    next >
Encoding:
Text File  |  1994-01-10  |  3.0 KB  |  86 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤ 
  2. *⌐ª      Program: EXP5_9.PRG                                           ⌐ª
  3. *⌐ª     Function: ╔╧╡»╩╜▓╦╡Ñ╖╢└²                                       ⌐ª
  4. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  5. SET TALK OFF
  6. SET MESSAGE TO 24 CENTER
  7. * ╢¿╥σ╥╗╕÷┤░┐┌:win
  8. DEFINE WINDOW win FROM 20,2 TO 23,77  SHADOW COLOR SCHEME 7
  9. CLEAR
  10. * ╢¿╥σ╥╗╕÷╔╧╡»╩╜▓╦╡Ñ: mypop
  11. DEFINE POPUP mypop FROM 4,30  MARGIN SCROLL SHADOW;
  12.        COLOR SCHEME 9
  13.  
  14. * ╢¿╥σ╔╧╡»╩╜▓╦╡Ñ mypop ╡─╕≈╫╙╧ε─┌╚▌
  15. DEFINE BAR 1  OF mypop PROMPT "\<1. ╘÷╝╙╝╟┬╝ " MESSAGE "╧≥╩²╛▌┐Γ╓╨╘÷╝╙╝╟┬╝"
  16. DEFINE BAR 2  OF mypop PROMPT "\<2. ╔╛│²╝╟┬╝ " MESSAGE "╔╛│²╩²╛▌┐Γ╓╨▓╗╨Φ╥¬╡─╝╟┬╝"
  17. DEFINE BAR 3  OF mypop PROMPT "\<3. ╨▐╕─╝╟┬╝ " MESSAGE "╨▐╕─╩²╛▌┐Γ╓╨╡─╝╟┬╝"
  18. DEFINE BAR 4  OF mypop PROMPT "\<4. Σ»└└╝╟┬╝ " MESSAGE "Σ»└└╩²╛▌┐Γ╓╨╡─╝╟┬╝"
  19. DEFINE BAR 5  OF mypop PROMPT "\-"
  20. DEFINE BAR 6  OF mypop PROMPT "\<5. ╣╠╢¿╝∞╦≈   " MESSAGE "░┤╣╠╢¿╖╜╩╜╝∞╦≈╩²╛▌┐Γ"
  21. DEFINE BAR 7  OF mypop PROMPT "\<6. ╠⌡╝■╝∞╦≈   " MESSAGE "░┤╠⌡╝■╖╜╩╜╝∞╦≈╩²╛▌┐Γ"
  22. DEFINE BAR 8  OF mypop PROMPT "\-"
  23. DEFINE BAR 9  OF mypop PROMPT "\<7. ╩²╛▌┐Γ┼┼╨≥ "  KEY CTRL+E ,'^E';
  24.               MESSAGE "╩²╛▌┐Γ░┤╓╕╢¿╠⌡╝■┼┼╨≥"
  25.               * ╙├KEY▓╬╩²╓╕╢¿░┤╝ⁿ╫Θ║╧ CTRL+E, ╥╘╓▒╜╙╓┤╨╨┤╦╤í╧ε.
  26. DEFINE BAR 10 OF mypop PROMPT "\<8. ╩²╛▌┐Γ▒╕╖▌  " MESSAGE "╩²╛▌┐Γ╬─╝■╫≈▒╕╖▌"
  27. DEFINE BAR 11 OF mypop PROMPT "\-"
  28. DEFINE BAR 12 OF mypop PROMPT "\<9. ═╦╗╪  " MESSAGE "═╦│÷┤╦▓╦╡Ñ, ╖╡╗╪╡≈╙├│╠╨≥"
  29.  
  30. * ╔Φ╢¿▓╦╡Ñ╕≈╫╙╧ε▒╗╤í╘±║≤╓┤╨╨╡─│╠╨≥
  31. ON SELECTION BAR 1  OF mypop DO subroute1 WITH POPUP(),PROMPT()
  32. ON SELECTION BAR 2  OF mypop DO subroute2 WITH POPUP(),PROMPT()
  33. ON SELECTION BAR 3  OF mypop DO subroute3 WITH POPUP(),PROMPT()
  34. ON SELECTION BAR 4  OF mypop DO subroute4 WITH POPUP(),PROMPT()
  35. ON SELECTION BAR 6  OF mypop DO subroute5 WITH POPUP(),PROMPT()
  36. ON SELECTION BAR 7  OF mypop DO subroute6 WITH POPUP(),PROMPT()
  37. ON SELECTION BAR 9   OF mypop DO subroute7  WITH POPUP(),PROMPT()
  38. ON SELECTION BAR 10  OF mypop DO subroute8 WITH POPUP(),PROMPT()
  39. ON SELECTION BAR 12 OF mypop DO subroute9
  40.  
  41. * ╝ñ╗ε╔╧╡»╩╜▓╦╡Ñ:mypop
  42. ACTIVATE POPUP mypop
  43.  
  44. PROCEDURE subroute1
  45. PARAMETERS mPOPUP,mPROMPT1
  46. =SHOW(mPROMPT1," ")
  47. PROCEDURE subroute2
  48. PARAMETERS mPOPUP,mPROMPT1
  49. =SHOW(mPROMPT1," ")
  50. PROCEDURE subroute3
  51. PARAMETERS mPOPUP,mPROMPT1
  52. =SHOW(mPROMPT1," ")
  53. PROCEDURE subroute4
  54. PARAMETERS mPOPUP,mPROMPT1
  55. =SHOW(mPROMPT1," ")
  56.  
  57. PROCEDURE subroute5
  58. PARAMETERS mPOPUP,mPROMPT1
  59. =SHOW(mPROMPT1," ")
  60. PROCEDURE subroute6
  61. PARAMETERS mPOPUP,mPROMPT1
  62. =SHOW(mPROMPT1," ")
  63.  
  64. PROCEDURE subroute7
  65. PARAMETERS mPOPUP,mPROMPT1
  66. =SHOW(mPROMPT1," ")
  67. PROCEDURE subroute8
  68. PARAMETERS mPOPUP,mPROMPT1
  69. =SHOW(mPROMPT1," ")
  70.  
  71. PROCEDURE subroute9
  72. CLEAR WINDOWS
  73. DEACTIVATE POPUP mypop
  74. RELEASE POPUPS mypop
  75.  
  76. FUNCTION show
  77. PARAMETERS mPROMPT2,mCOLOR
  78. ACTIVATE WINDOW win
  79. SET CURSOR OFF
  80. @ 0,10 SAY " ─π╤í╘±╡─╩╟╔╧╡»╩╜▓╦╡Ñ "+mPOPUP+" ╓╨ "+;
  81.       mCOLOR+" ╡─ "+mPROMPT2
  82. WAIT "╟δ░┤╚╬╥╗╝ⁿ╝╠╨°" WINDOW
  83. DEACTIVATE WINDOW win
  84. SET CURSOR ON
  85. RETURN
  86.