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