home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP5_24.PRG < prev    next >
Encoding:
Text File  |  1994-01-10  |  4.9 KB  |  128 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: EXP5_24.PRG                                          ⌐ª
  3. *⌐ª     Function: ╟╢╠╫╩╜╧┬└¡▓╦╡Ñ╡─╖╢└².                                ⌐ª
  4. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  5. SET TALK OFF
  6. SET BORDER TO SINGLE
  7. SET MESSAGE TO 24 CENTER
  8. CLEAR
  9. SET COLOR OF SCHEME 2 TO BG/W,N/W,N/W,B/W,B/BG,W+/R,GR+/W,N+/N,B/W,W/N,+
  10. * ╨▐╕─ 2║┼╡≈╔½┼╠╡─╡┌ 7╕÷╔½▓╩╢╘, ╩╣╚╚╝ⁿ╤╒╔½╙╔+W/W ╕─╬¬ GR+/W.
  11. * ╨▐╕─ 2║┼╡≈╔½┼╠╡─╡┌ 6╕÷╔½▓╩╢╘, ╩╣▒╗╤í╘±╤í╧ε╡─╤╒╔½╙╔ N/BG ╕─╬¬ W+/R.
  12.  
  13. DEFINE WINDOW win FROM 21,2 TO 23,77 ;
  14.        DOUBLE COLOR SCHEME 7
  15. * ╢¿╥σ╡┌╥╗╕÷╧┬└¡╩╜▓╦╡Ñ mainmenu
  16. DEFINE MENU mainmenu
  17. DEFINE PAD mypad1 OF mainmenu PROMPT "  ╚╒   ▒╛  "
  18. DEFINE PAD mypad2 OF mainmenu PROMPT "  ╓╨   ╣·  "
  19. DEFINE PAD mypad3 OF mainmenu PROMPT "  ═╦   │÷  "
  20. ON PAD mypad1 OF mainmenu ACTIVATE POPUP mpop1
  21. ON PAD mypad2 OF mainmenu ACTIVATE POPUP mpop2
  22. ON PAD mypad3 OF mainmenu ACTIVATE POPUP mpop3
  23.  
  24. * ╢¿╥σ╡┌╥╗╕÷╧┬└¡╩╜▓╦╡Ñ╡─╡┌╥╗╕÷╫╙▓╦╡Ñ mpop1
  25. DEFINE POPUP mpop1 MARGIN MESSAGE "╧╓╘┌╜Θ╔▄╚╒▒╛╡─╗∙▒╛╟Θ┐÷"
  26. DEFINE BAR 1 OF mpop1 PROMPT "\<1.╢½  ╛⌐ "
  27. DEFINE BAR 2 OF mpop1 PROMPT "\<2.┤≤  █α "
  28. DEFINE BAR 3 OF mpop1 PROMPT "\<3.╛⌐  ╢╝ "
  29. DEFINE BAR 4 OF mpop1 PROMPT "\<4.├√╣┼╬▌ "
  30. DEFINE BAR 5 OF mpop1 PROMPT "\<5.║ß  ▒⌡ "
  31.  
  32. * ╢¿╥σ╡┌╥╗╕÷╧┬└¡╩╜▓╦╡Ñ╡─╡┌╢■╕÷╫╙▓╦╡Ñ mpop2
  33. DEFINE POPUP mpop2 MARGIN MESSAGE "╧╓╘┌╜Θ╔▄╓╨╣·╡─╗∙▒╛╟Θ┐÷"
  34. DEFINE BAR 1 OF mpop2 PROMPT "\<1.╣π  ╓▌ " MESSAGE "╧╓╘┌╜Θ╔▄╣π╓▌╡─╗∙▒╛╟Θ┐÷"
  35. DEFINE BAR 2 OF mpop2 PROMPT "\<2.╔╧  ║ú "
  36. DEFINE BAR 3 OF mpop2 PROMPT "\<3.╠∞  ╜≥ "
  37. DEFINE BAR 4 OF mpop2 PROMPT "\<4.╔≥  ╤⌠ "
  38. DEFINE BAR 5 OF mpop2 PROMPT "\<5.╬≈  ░▓ "
  39. DEFINE BAR 6 OF mpop2 PROMPT "\<6.╓ú  ╓▌ "
  40. DEFINE BAR 7 OF mpop2 PROMPT "\<7.─╧  ╛⌐ "
  41. DEFINE BAR 8 OF mpop2 PROMPT "\<8.║╝  ╓▌ "
  42. DEFINE BAR 9 OF mpop2 PROMPT "\<9.▒▒  ╛⌐ "
  43. *ON BAR 9 OF mpop2  ACTIVATE MENU submenu
  44. ON SELECTION BAR 9 OF mpop2  ACTIVATE MENU submenu
  45.  
  46. * ╢¿╥σ╡┌╢■╕÷╧┬└¡╩╜▓╦╡Ñ submenu
  47. DEFINE MENU submenu
  48. DEFINE PAD mypad1_1 OF submenu PROMPT "\<1.├√╩ñ╣┼╝ú "  AT 10,27
  49. DEFINE PAD mypad1_2 OF submenu PROMPT "\<2.▒÷╣▌╖╣╡Ω "  AT 10,39
  50. DEFINE PAD mypad1_3 OF submenu PROMPT "\<3.╣║╬∩╓╨╨─ "  AT 10,50
  51. DEFINE PAD mypad1_4 OF submenu PROMPT "\<4.╙Θ└╓│í╦∙  " AT 10,63
  52. ON PAD mypad1_1 OF submenu ACTIVATE POPUP mpop2_9_1
  53. ON PAD mypad1_2 OF submenu ACTIVATE POPUP mpop2_9_2
  54. ON PAD mypad1_3 OF submenu ACTIVATE POPUP mpop2_9_3
  55. ON PAD mypad1_4 OF submenu ACTIVATE POPUP mpop2_9_4
  56.  
  57. * ╢¿╥σ╡┌╢■╕÷╧┬└¡╩╜▓╦╡Ñ╡─╡┌╥╗╕÷╫╙▓╦╡Ñ mpop2_9_1
  58. DEFINE POPUP mpop2_9_1 MARGIN
  59. DEFINE BAR 1 OF mpop2_9_1 PROMPT "\<1.╣╩╣¼"
  60. DEFINE BAR 2 OF mpop2_9_1 PROMPT "\<2.░╦┤∩┴δ│ñ│╟ "
  61. DEFINE BAR 3 OF mpop2_9_1 PROMPT "\<3.╧π╔╜╣½╘░"
  62. DEFINE BAR 4 OF mpop2_9_1 PROMPT "\<4.╠∞░▓├┼"
  63. DEFINE BAR 5 OF mpop2_9_1 PROMPT "\<5.╩«╚²┴Ω"
  64. DEFINE BAR 6 OF mpop2_9_1 PROMPT "\<6.╠∞╠│╣½╘░"
  65. DEFINE BAR 7 OF mpop2_9_1 PROMPT "\<7.╥├║═╘░"
  66. DEFINE BAR 8 OF mpop2_9_1 PROMPT "\<8.▒▒║ú╣½╘░"
  67.  
  68. * ╢¿╥σ╡┌╢■╕÷╧┬└¡╩╜▓╦╡Ñ╡─╡┌╢■╕÷╫╙▓╦╡Ñ mpop2_9_2
  69. DEFINE POPUP mpop2_9_2 MARGIN
  70. DEFINE BAR 1 OF mpop2_9_2 PROMPT "\<1.╣≤▒÷┬Ñ╖╣╡Ω"
  71. DEFINE BAR 2 OF mpop2_9_2 PROMPT "\<2.│ñ│╟╖╣╡Ω"
  72. DEFINE BAR 3 OF mpop2_9_2 PROMPT "\<3.▒▒╛⌐╖╣╡Ω"
  73. DEFINE BAR 4 OF mpop2_9_2 PROMPT "\<4.╧π╕±└∩└¡╖╣╡Ω"
  74. DEFINE BAR 5 OF mpop2_9_2 PROMPT "\<5.╬≈╘╖╖╣╡Ω"
  75. DEFINE BAR 6 OF mpop2_9_2 PROMPT "\<6.╜¿╣·╖╣╡Ω"
  76. DEFINE BAR 7 OF mpop2_9_2 PROMPT "\<7.╓╨╣·┤≤╖╣╡Ω"
  77. DEFINE BAR 8 OF mpop2_9_2 PROMPT "\<8.└÷╢╝╖╣╡Ω"
  78. DEFINE BAR 9 OF mpop2_9_2 PROMPT "\<9.╠∞┬╫╖╣╡Ω"
  79.  
  80. * ╢¿╥σ╡┌╢■╕÷╧┬└¡╩╜▓╦╡Ñ╡─╡┌╚²╕÷╫╙▓╦╡Ñ mpop2_9_3
  81. DEFINE POPUP mpop2_9_3 MARGIN
  82. DEFINE BAR 1 OF mpop2_9_3 PROMPT "\<1.╢½░▓╔╠│í"
  83. DEFINE BAR 2 OF mpop2_9_3 PROMPT "\<2.═⌡╕«╛«░┘╗⌡┤≤┬Ñ"
  84. DEFINE BAR 3 OF mpop2_9_3 PROMPT "\<3.╬≈╡Ñ╣║╬∩╓╨╨─"
  85. DEFINE BAR 4 OF mpop2_9_3 PROMPT "\<4.╬≈╡Ñ╔╠│í"
  86. DEFINE BAR 5 OF mpop2_9_3 PROMPT "\<5.┬í╕ú┤≤╧├"
  87. DEFINE BAR 6 OF mpop2_9_3 PROMPT "\<6.╤α╔»╣║╬∩╓╨╨─"
  88. DEFINE BAR 7 OF mpop2_9_3 PROMPT "\<7.╣·╝╩├│╥╫╓╨╨─"
  89. DEFINE BAR 8 OF mpop2_9_3 PROMPT "\<8.╚√╠╪╣║╬∩╓╨╨─"
  90. DEFINE BAR 9 OF mpop2_9_3 PROMPT "\<9.│╟╧τ├│╥╫╓╨╨─"
  91.  
  92. * ╢¿╥σ╡┌╢■╕÷╧┬└¡╩╜▓╦╡Ñ╡─╡┌╦─╕÷╫╙▓╦╡Ñ mpop2_9_4
  93. DEFINE POPUP mpop2_9_4 MARGIN
  94. DEFINE BAR 1 OF mpop2_9_4 PROMPT "\<1.╢½░▓╧╖╘║"
  95. DEFINE BAR 2 OF mpop2_9_4 PROMPT "\<2.╩╫╢╝╛τ│í"
  96. DEFINE BAR 3 OF mpop2_9_4 PROMPT "\<3.╓╨╣·┤≤╛τ╘║"
  97. DEFINE BAR 4 OF mpop2_9_4 PROMPT "\<4.▒▒╛⌐╥⌠└╓╠ⁿ"
  98. DEFINE BAR 5 OF mpop2_9_4 PROMPT "\<5.├±╫σ╣¼╛τ│í"
  99. DEFINE BAR 6 OF mpop2_9_4 PROMPT "\<6.╚╦├±┤≤╗ß╠├"
  100. DEFINE BAR 7 OF mpop2_9_4 PROMPT "\<7.╒╣└└╣▌╛τ│í"
  101.  
  102.  
  103. * ╢¿╥σ╡┌╥╗╕÷╧┬└¡╩╜▓╦╡Ñ╡─╡┌╚²╕÷╫╙▓╦╡Ñ mpop3
  104. DEFINE POPUP mpop3 MARGIN
  105. DEFINE BAR 1 OF mpop3 PROMPT "╖╡╗╪DOS╧╡═│"
  106.  
  107. ON SELECTION POPUP ALL DO choice WITH POPUP(),PROMPT()
  108.  
  109. ACTIVATE MENU mainmenu
  110. DEACTIVATE MENU mainmenu, submenu
  111. RELEASE  MENU mainmenu, submenu
  112. RETURN
  113.  
  114.  
  115. PROCEDURE choice
  116. PARAMETERS mpop,mprompt
  117. SET CURSOR OFF
  118. IF mpop = "MPOP3"
  119.    QUIT
  120. ENDIF
  121. ACTIVATE WINDOW win
  122. CLEAR
  123. @ 0,10 SAY "─π╤í╘±╡─╩╟╧┬└¡▓╦╡Ñ "+mpop+" ╓╨╓« "+mprompt
  124. WAIT "╟δ░┤╚╬╥╗╝ⁿ╝╠╨°" WINDOW TIMEOUT 15
  125. DEACTIVATE WINDOW win
  126. SET CURSOR ON
  127. RETURN
  128.