home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP5_21.PRG < prev    next >
Encoding:
Text File  |  1994-01-10  |  6.3 KB  |  158 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: EXP5_20.PRG                                          ⌐ª
  3. *⌐ª     Function: ╢└┴ó╩╜▓╦╡Ñ╡─╖╢└².                                    ⌐ª
  4. *⌐ª        Proce: EXP5_11.PRG                                          ⌐ª
  5. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  6. SET TALK OFF
  7. SET BORDER TO DOUBLE
  8. SET COLOR OF SCHEME 2 TO BG+/B,N/W,N/W,B/W,B/BG,W+/R,W+/W,N+/N,B/W,W/N,+
  9. * ╨▐╕─ 2║┼╡≈╔½┼╠╡─╡┌ 1╕÷╔½▓╩╢╘, ╩╣╬┤▒╗╞⌠╢»╡─╤í╧ε╡─╤╒╔½╙╔ BG/W ╕─╬¬ BG+/B.
  10. * ╨▐╕─ 2║┼╡≈╔½┼╠╡─╡┌ 6╕÷╔½▓╩╢╘, ╩╣╤í╘±╡─╤í╧ε╡─╤╒╔½╙╔ N/BG ╕─╬¬ W+/R.
  11.  
  12. DEFINE WINDOW win1 FROM 22, 2 TO 24, 78 COLOR SCHEME 7
  13.  
  14. * ╢¿╥σ╓≈▓╦╡Ñ mainmenu
  15. DEFINE POPUP mainmenu MARGIN FROM 5,24 SHADOW;
  16.        MESSAGE " ░╤ ╣Γ ╠⌡ ╥╞ ╢» ╡╜ ╙√ ╤í ╘± ╡─ ╧ε ║≤ ░┤ <Enter> ╝ⁿ"
  17. DEFINE BAR  1 OF mainmenu PROMPT "         ╓≈ ▓╦ ╡Ñ " SKIP
  18. DEFINE BAR  2 OF mainmenu PROMPT "\-"
  19. DEFINE BAR  3 OF mainmenu PROMPT " \<1. ╧╡═│╬¼╗ñ▓╦╡Ñ"
  20. DEFINE BAR  4 OF mainmenu PROMPT " \<2. ╚╦╘▒┐Γ┐Γ╬¼╗ñ▓╦╡Ñ "
  21. DEFINE BAR  5 OF mainmenu PROMPT "\-"
  22. DEFINE BAR  6 OF mainmenu PROMPT " \<3. ▓Θ╤»▓╦╡Ñ "
  23. DEFINE BAR  7 OF mainmenu PROMPT " \<4. ▒¿▒φ┤≥╙í▓╦╡Ñ"
  24. DEFINE BAR  8 OF mainmenu PROMPT " \<5. ═│╝╞┤ª└φ▓╦╡Ñ"
  25. DEFINE BAR  9 OF mainmenu PROMPT " \<6. ═╝╨╬╩Σ│÷▓╦╡Ñ"
  26. DEFINE BAR 10 OF mainmenu PROMPT " \<7. ╗π╫▄▓╦╡Ñ "
  27. DEFINE BAR 11 OF mainmenu PROMPT "\-"
  28. DEFINE BAR 12 OF mainmenu PROMPT " \<8. ╖╡╗╪ FoxPro ├ⁿ┴ε┤░┐┌  "
  29. DEFINE BAR 13 OF mainmenu PROMPT " \<9. ╖╡╗╪ DOS ▓┘╫≈╧╡═│ "
  30. ON SELECTION POPUP mainmenu DO Mainmenu
  31.  
  32. DEFINE POPUP submenu1 MARGIN FROM 5,24 SHADOW
  33. DEFINE BAR  1 OF submenu1 PROMPT "      ╧╡═│╬¼╗ñ▓╦╡Ñ"  SKIP
  34. DEFINE BAR  2 OF submenu1 PROMPT "\-"
  35. DEFINE BAR  3 OF submenu1 PROMPT " \<1. ▒╕╖▌                  "
  36. DEFINE BAR  4 OF submenu1 PROMPT " \<2. ╩²╛▌┤╩╡Σ╬¼╗ñ          "
  37. DEFINE BAR  5 OF submenu1 PROMPT " \<3. ╧╘╩╛╦╡├≈╩Θ            "
  38. DEFINE BAR  6 OF submenu1 PROMPT " \<4. ╧╡═│▓╬╩²╔Φ╓├          "
  39. ON SELECTION POPUP submenu1 DO subroute1
  40.  
  41. DEFINE POPUP submenu2 MARGIN FROM 5,24 SHADOW
  42. DEFINE BAR  1 OF submenu2 PROMPT "    ╚╦╘▒┐Γ┐Γ╬¼╗ñ▓╦╡Ñ  " SKIP
  43. DEFINE BAR  2 OF submenu2 PROMPT "\-"
  44. DEFINE BAR  3 OF submenu2 PROMPT " \<1. ╫╖╝╙╨┬╝╟┬╝            "
  45. DEFINE BAR  4 OF submenu2 PROMPT " \<2. ╔╛│²╛╔╝╟┬╝            "
  46. DEFINE BAR  5 OF submenu2 PROMPT " \<3. ╨▐╕─╛╔╝╟┬╝            "
  47. DEFINE BAR  6 OF submenu2 PROMPT " \<4. ╚½╞┴─╗Σ»└└            "
  48. ON SELECTION POPUP submenu2 DO subroute
  49.  
  50. DEFINE POPUP submenu3 MARGIN FROM 5,24 SHADOW
  51. DEFINE BAR  1 OF submenu3 PROMPT "       ▓Θ ╤» ▓╦ ╡Ñ" SKIP
  52. DEFINE BAR  2 OF submenu3 PROMPT "\-"
  53. DEFINE BAR  3 OF submenu3 PROMPT " \<1. ╣╠╢¿╝∞╦≈              "
  54. DEFINE BAR  4 OF submenu3 PROMPT " \<2. ╠⌡╝■╝∞╦≈              "
  55. DEFINE BAR  5 OF submenu3 PROMPT " \<3. ╫╘╙╔╝∞╦≈              "
  56. DEFINE BAR  6 OF submenu3 PROMPT " \<4. ╫╘╢¿╥σ╝∞╦≈            "
  57. ON SELECTION POPUP submenu3 DO subroute
  58.  
  59. DEFINE POPUP submenu4 MARGIN FROM 5,24 SHADOW
  60. DEFINE BAR  1 OF submenu4 PROMPT "      ▒¿▒φ┤≥╙í▓╦╡Ñ" SKIP
  61. DEFINE BAR  2 OF submenu4 PROMPT "\-"
  62. DEFINE BAR  3 OF submenu4 PROMPT " \<1. ╫¿╥╡╝╝╩⌡╚╦╘▒╥╗└└▒φ    "
  63. DEFINE BAR  4 OF submenu4 PROMPT " \<2. ╫¿╥╡╝╝╩⌡╚╦╘▒╕÷╚╦▒φ    "
  64. DEFINE BAR  5 OF submenu4 PROMPT " \<3. ┤╙╩┬╣ñ╫≈═│╝╞▒φ        "
  65. DEFINE BAR  6 OF submenu4 PROMPT " \<4. ╬─╗»│╠╢╚═│╝╞▒φ        "
  66. DEFINE BAR  7 OF submenu4 PROMPT " \<5. ─Ω┴Σ═│╝╞▒φ            "
  67. DEFINE BAR  8 OF submenu4 PROMPT " \<6. ╡│╒■╓░╬±═│╝╞▒φ        "
  68. DEFINE BAR  9 OF submenu4 PROMPT " \<7. ╨╘▒≡═│╝╞▒φ            "
  69. DEFINE BAR 10 OF submenu4 PROMPT " \<8. ╩²╛▌┐Γ╫╘╢»▒¿▒φ╔·│╔    "
  70. ON SELECTION POPUP submenu4 DO subroute
  71.  
  72. DEFINE POPUP submenu5 MARGIN FROM 5,24 SHADOW
  73. DEFINE BAR  1 OF submenu5 PROMPT "      ═│╝╞┤ª└φ▓╦╡Ñ"  SKIP
  74. DEFINE BAR  2 OF submenu5 PROMPT "\-"
  75. DEFINE BAR  3 OF submenu5 PROMPT " \<1. ┤╙╩┬╣ñ╫≈═│╝╞          "
  76. DEFINE BAR  4 OF submenu5 PROMPT " \<2. ╬─╗»│╠╢╚═│╝╞          "
  77. DEFINE BAR  5 OF submenu5 PROMPT " \<3. ─Ω┴Σ═│╝╞              "
  78. DEFINE BAR  6 OF submenu5 PROMPT " \<4. ╡│╒■╓░╬±═│╝╞          "
  79. DEFINE BAR  7 OF submenu5 PROMPT " \<5. ╨╘▒≡═│╝╞              "
  80. DEFINE BAR  8 OF submenu5 PROMPT " \<6. ╫╘╢¿╥σ═│╝╞            "
  81. DEFINE BAR  9 OF submenu5 PROMPT " \<7. ═│╝╞┐ΓΣ»└└            "
  82. DEFINE BAR 10 OF submenu5 PROMPT " \<8. ╩²╛▌┐Γ╫╘╢»▒¿▒φ╔·│╔    "
  83. ON SELECTION POPUP submenu5 DO subroute
  84.  
  85. DEFINE POPUP submenu6 MARGIN FROM 5,24 SHADOW
  86. DEFINE BAR  1 OF submenu6 PROMPT "      ═╝╨╬╩Σ│÷▓╦╡Ñ"  SKIP
  87. DEFINE BAR  2 OF submenu6 PROMPT "\-"
  88. DEFINE BAR  3 OF submenu6 PROMPT " \<1. ╧╘╩╛═│╝╞═╝╨╬          "
  89. DEFINE BAR  4 OF submenu6 PROMPT " \<2. ╔·│╔╫╘╢¿╥σ═╝╨╬        "
  90. ON SELECTION POPUP submenu6 DO subroute
  91.  
  92. DEFINE POPUP submenu7 MARGIN FROM 5,24 SHADOW
  93. DEFINE BAR  1 OF submenu7 PROMPT "      ╗π ╫▄ ▓╦ ╡Ñ" SKIP
  94. DEFINE BAR  2 OF submenu7 PROMPT "\-"
  95. DEFINE BAR  3 OF submenu7 PROMPT " \<1. ╥╗╣½╦╛┼╠┐╜▒┤          "
  96. DEFINE BAR  4 OF submenu7 PROMPT " \<2. ╢■╣½╦╛┼╠┐╜▒┤          "
  97. DEFINE BAR  5 OF submenu7 PROMPT " \<3. ╚²╣½╦╛┼╠┐╜▒┤          "
  98. DEFINE BAR  6 OF submenu7 PROMPT " \<4. ╦─╣½╦╛┼╠┐╜▒┤          "
  99. DEFINE BAR  7 OF submenu7 PROMPT " \<5. ╬σ╣½╦╛┼╠┐╜▒┤          "
  100. DEFINE BAR  8 OF submenu7 PROMPT " \<6. ┴∙╣½╦╛┼╠┐╜▒┤          "
  101. DEFINE BAR  9 OF submenu7 PROMPT " \<7. ╞▀╣½╦╛┼╠┐╜▒┤          "
  102. DEFINE BAR 10 OF submenu7 PROMPT " \<8. ░╦╣½╦╛┼╠┐╜▒┤          "
  103. DEFINE BAR 11 OF submenu7 PROMPT " \<9. ╗π╫▄                  "
  104. ON SELECTION POPUP submenu7 DO subroute
  105.  
  106. ACTIVATE POPUP mainmenu
  107. HIDE     POPUP mainmenu
  108. CLEAR
  109. RETURN
  110.  
  111. PROCEDURE Mainmenu
  112. HIDE POPUP mainmenu
  113. DO CASE
  114.    CASE BAR() = 3
  115.         ACTIVATE POPUP submenu1
  116.    CASE BAR() = 4
  117.         ACTIVATE POPUP submenu2
  118.    CASE BAR() = 6
  119.         ACTIVATE POPUP submenu3
  120.    CASE BAR() = 7
  121.         ACTIVATE POPUP submenu4
  122.    CASE BAR() = 8
  123.         ACTIVATE POPUP submenu5
  124.    CASE BAR() = 9
  125.         ACTIVATE POPUP submenu6
  126.    CASE BAR() = 10
  127.         ACTIVATE POPUP submenu7
  128.    CASE BAR() = 12
  129.         DEACTIVATE POPUP
  130.    CASE BAR() = 13
  131.         QUIT
  132. ENDCASE
  133.  
  134. CLOSE DATABASES
  135. RETURN
  136.  
  137. PROCEDURE subroute1
  138. DO CASE
  139.    CASE BAR() = 3
  140.         DO subroute
  141.    CASE BAR() = 4
  142.         DO subroute
  143.    CASE BAR() = 5
  144.         DO subroute
  145.    CASE BAR() = 6
  146.         CLEAR
  147.         DO EXP5_11
  148.         * ╡≈╙├╧╡═│▓╬╩²╔Φ╓├╡─╫╙│╠╨≥
  149. ENDCASE
  150. RETURN
  151.  
  152. PROCEDURE subroute
  153. ACTIVATE WINDOW win1
  154. @ 0,4 SAY " │╠╨≥╔╨╬┤╜¿┴ó, ╟δ░┤╚╬╥╗╝ⁿ╝╠╨°, ╘┘░┤ [Esc] ╝ⁿ╖╡╗╪╓≈▓╦╡Ñ"
  155. WAIT ""
  156. DEACTIVATE WINDOW win1
  157. RETURN
  158.