home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP5_22.PRG < prev    next >
Encoding:
Text File  |  1994-01-10  |  5.3 KB  |  145 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: EXP5_22.PRG                                          ⌐ª
  3. *⌐ª     Function: LOTUS 1-2-3 ╩╜▓╦╡Ñ╖╢└².                              ⌐ª
  4. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  5. SET TALK OFF
  6. SET MESSAGE TO 2 LEFT
  7. SET COLOR TO W/N
  8. CLEAR
  9. SET COLOR OF SCHEME 7 TO BG+/B,N/W,N/W,B/W,W/N,W+/R,W+/W,N+/N,B/W,W/N,+
  10. * ╓╪╨┬╢¿╥σ╡┌ 7║┼╡≈╔½┼╠╡─╔½▓╩╢╘
  11.  
  12. * ╢¿╥σ╥╗╕÷╨┼╧ó╧╘╩╛┤░┐┌:win
  13. DEFINE WINDOW win FROM 21,2 TO 23,77 ;
  14.        DOUBLE SHADOW COLOR SCHEME 5
  15. CLEAR
  16. *@ 0,0 TO 3,79
  17. @ 3,0 TO 23,79
  18.  
  19. * ╢¿╥σ╓≈▓╦╡Ñ mainmenu
  20. DEFINE MENU mainmenu COLOR SCHEME 7
  21. * ╢¿╥σ╓≈▓╦╡Ñ╕≈╧ε─┌╚▌
  22. DEFINE PAD pad1 OF mainmenu PROMPT " ╧╡═│╬¼╗ñ"   AT 1, 0;
  23.        MESSAGE  "  ▒╕╖▌  ╩²╛▌┤╩╡Σ╬¼╗ñ  ╧╘╩╛╦╡├≈╩Θ  ╧╡═│╔Φ╓├  ═╦╗╪"
  24. DEFINE PAD pad2 OF mainmenu PROMPT "╩²╛▌┐Γ╬¼╗ñ" AT 1,11;
  25.        MESSAGE  "  ╘÷╝╙╝╟┬╝  ╨▐╕─╝╟┬╝  ╔╛│²╝╟┬╝ Σ»└└╝╟┬╝  ═╦╗╪ "
  26. DEFINE PAD pad3 OF mainmenu PROMPT "╝∞╦≈"       AT 1,23;
  27.        MESSAGE  "  ╣╠╢¿╝∞╦≈  ╠⌡╝■╝∞╦≈  ╫╘╙╔╝∞╦≈  ╫╘╢¿╥σ╝∞╦≈  ═╦╗╪"
  28. DEFINE PAD pad4 OF mainmenu PROMPT "┤≥╙í▒¿▒φ"   AT 1,29;
  29.        MESSAGE  "  ▒¿▒φ╥╗  ▒¿▒φ╢■  ▒¿▒φ╚²  ▒¿▒φ╦─   ═╦╗╪ "
  30. DEFINE PAD pad5 OF mainmenu PROMPT "═│╝╞"       AT 1,39;
  31.        MESSAGE  "  ─Ω┴Σ═│╝╞  ╬─╗»│╠╢╚═│╝╞  ╣ñ╫╩═│╝╞  ╓░╬±═│╝╞  ═╦╗╪"
  32. DEFINE PAD pad6 OF mainmenu PROMPT "╖╡╗╪ DOS "  AT 1,45;
  33.        MESSAGE  "  ═╦│÷▒╛│╠╨≥, ╖╡╗╪ DOS "
  34.  
  35. ON SELECTION MENU mainmenu DO subroute WITH MENU(),PAD(),PROMPT()
  36.  
  37. * ╢¿╥σ╫╙▓╦╡Ñ menu1
  38. DEFINE MENU menu1 COLOR SCHEME 7
  39. * ╢¿╥σ╫╙▓╦╡Ñ╕≈╧ε─┌╚▌
  40. DEFINE PAD pad11 OF menu1 PROMPT " \<1.▒╕╖▌"        AT 1, 0;
  41.        MESSAGE  "  ░╤╩²╛▌┐Γ╬─╝■▒╕╖▌╡╜╚φ┼╠╓╨. "
  42. DEFINE PAD pad12 OF menu1 PROMPT "\<2.╩²╛▌┤╩╡Σ╬¼╗ñ" AT 1, 9;
  43.        MESSAGE  "  ╢╘╕≈╩²╛▌┤╩╡Σ╜°╨╨╘÷╝╙, ╔╛│², ╨▐╕─╡─╬¼╗ñ. "
  44. DEFINE PAD pad13 OF menu1 PROMPT "\<3.╧╘╩╛╦╡├≈╩Θ"   AT 1,24;
  45.        MESSAGE  "  ╘┌╞┴─╗╔╧╧╘╩╛╩╣╙├╦╡├≈╩Θ. "
  46. DEFINE PAD pad14 OF menu1 PROMPT "\<4.╧╡═│╔Φ╓├"     AT 1,37;
  47.        MESSAGE  "  ╜°╨╨╧╡═│╩▒╓╙, ╫┤╠¼╨╨, ╩≤▒Ω┐╪╓╞, ┴σ╔∙╡╚▓╬╩²╔Φ╓├. "
  48. DEFINE PAD pad15 OF menu1 PROMPT "\<5.═╦╗╪  "       AT 1,49;
  49.        MESSAGE  "  ╖╡╗╪╓≈▓╦╡Ñ. "
  50. ON SELECTION MENU menu1 DO subrout2
  51.  
  52. * ╢¿╥σ╫╙▓╦╡Ñ menu2
  53. DEFINE MENU menu2 COLOR SCHEME 7
  54. * ╢¿╥σ╫╙▓╦╡Ñ╕≈╧ε─┌╚▌
  55. DEFINE PAD pad21 OF menu2 PROMPT " \<1.╘÷╝╙╝╟┬╝"   AT 1, 0
  56. DEFINE PAD pad22 OF menu2 PROMPT "\<2.╨▐╕─╝╟┬╝ "   AT 1,12
  57. DEFINE PAD pad23 OF menu2 PROMPT "\<3.╔╛│²╝╟┬╝ "   AT 1,24
  58. DEFINE PAD pad24 OF menu2 PROMPT "\<4.Σ»└└╝╟┬╝ "   AT 1,36
  59. DEFINE PAD pad25 OF menu2 PROMPT "\<5.═╦╗╪  "      AT 1,49
  60. ON SELECTION MENU menu2 DO subrout2
  61.  
  62. * ╢¿╥σ╫╙▓╦╡Ñ menu3
  63. DEFINE MENU menu3 COLOR SCHEME 7
  64. * ╢¿╥σ╫╙▓╦╡Ñ╕≈╧ε─┌╚▌
  65. DEFINE PAD pad31 OF menu3 PROMPT " \<1.╣╠╢¿╝∞╦≈"   AT 1, 0;
  66.        MESSAGE  "  ╢╘╩²╛▌┐Γ╜°╨╨╣╠╢¿╠⌡╝■╖╜╩╜╡─╝∞╦≈. "
  67. DEFINE PAD pad32 OF menu3 PROMPT "\<2.╠⌡╝■╝∞╦≈"    AT 1,12;
  68.        MESSAGE  "  ╢╘╩²╛▌┐Γ░┤╓╕╢¿╠⌡╝■╖╜╩╜╡─╝∞╦≈. "
  69. DEFINE PAD pad33 OF menu3 PROMPT "\<3.╫╘╙╔╝∞╦≈"    AT 1,24;
  70.        MESSAGE  "  ╢╘╩²╛▌┐Γ╜°╨╨═Ω╚½╚╬╥Γ╩Σ╚δ╖╜╩╜╡─╝∞╦≈. "
  71. DEFINE PAD pad34 OF menu3 PROMPT "\<4.╫╘╢¿╥σ╝∞╦≈"  AT 1,36;
  72.        MESSAGE  "  ╢╘╩²╛▌┐Γ╜°╨╨╩Σ╚δ╠⌡╝■┐╔┤ó┤µ╖╜╩╜╡─╝∞╦≈. "
  73. DEFINE PAD pad35 OF menu3 PROMPT "\<5.═╦╗╪  "      AT 1,51;
  74.        MESSAGE  "  ╖╡╗╪╔╧╥╗╝╢╫╙▓╦╡Ñ. "
  75. ON SELECTION PAD pad31 OF menu3 ACTIVATE MENU menu3_1
  76. ON SELECTION PAD pad32 OF menu3 DO subrout2
  77. ON SELECTION PAD pad33 OF menu3 DO subrout2
  78. ON SELECTION PAD pad34 OF menu3 DO subrout2
  79. ON SELECTION PAD pad35 OF menu3 DO subrout2
  80.  
  81. * ╢¿╥σ╫╙▓╦╡Ñ menu3 ╡─╢■╝╢╫╙▓╦╡Ñ menu3_1
  82. DEFINE MENU menu3_1 COLOR SCHEME 7
  83. * ╢¿╥σ╢■╝╢╫╙▓╦╡Ñ╕≈╧ε─┌╚▌
  84. DEFINE PAD pad31_1 OF menu3_1 PROMPT " \<1.╓░╬±╣╠╢¿╝∞╦≈"   AT 1, 0
  85. DEFINE PAD pad32_1 OF menu3_1 PROMPT "\<2.─Ω┴Σ╣╠╢¿╝∞╦≈"    AT 1,16
  86. DEFINE PAD pad33_1 OF menu3_1 PROMPT "\<3.╬─╗»│╠╢╚╣╠╢¿╝∞╦≈"  AT 1,32
  87. DEFINE PAD pad34_1 OF menu3_1 PROMPT "\<4.▓┐├┼╣╠╢¿╝∞╦≈"    AT 1,52
  88. DEFINE PAD pad35_1 OF menu3_1 PROMPT "\<5.═╦╗╪  "          AT 1,68
  89. ON SELECTION MENU menu3_1 DO subrout2
  90.  
  91. * ╢¿╥σ╫╙▓╦╡Ñ menu4
  92. DEFINE MENU menu4 COLOR SCHEME 7
  93. * ╢¿╥σ╫╙▓╦╡Ñ╕≈╧ε─┌╚▌
  94. DEFINE PAD pad41 OF menu4 PROMPT " \<1.▒¿▒φ╥╗  "  AT 1, 0
  95. DEFINE PAD pad42 OF menu4 PROMPT "\<2.▒¿▒φ╢■  "   AT 1,12
  96. DEFINE PAD pad43 OF menu4 PROMPT "\<3.▒¿▒φ╚²  "   AT 1,24
  97. DEFINE PAD pad44 OF menu4 PROMPT "\<4.▒¿▒φ╦─  "   AT 1,36
  98. DEFINE PAD pad45 OF menu4 PROMPT "\<5.═╦╗╪   "    AT 1,48
  99. ON SELECTION MENU menu4 DO subrout2
  100.  
  101. * ╢¿╥σ╫╙▓╦╡Ñ menu5
  102. DEFINE MENU menu5 COLOR SCHEME 7
  103. * ╢¿╥σ╫╙▓╦╡Ñ╕≈╧ε─┌╚▌
  104. DEFINE PAD pad51 OF menu5 PROMPT " \<1.─Ω┴Σ═│╝╞"     AT 1, 0
  105. DEFINE PAD pad52 OF menu5 PROMPT "\<2.╬─╗»│╠╢╚═│╝╞"  AT 1,12
  106. DEFINE PAD pad53 OF menu5 PROMPT "\<3.╣ñ╫╩═│╝╞"      AT 1,28
  107. DEFINE PAD pad54 OF menu5 PROMPT "\<4.╓░╬±═│╝╞"      AT 1,40
  108. DEFINE PAD pad55 OF menu5 PROMPT "\<5.═╦╗╪ "         AT 1,52
  109. ON SELECTION MENU menu5 DO subrout2
  110.  
  111. ACTIVATE MENU mainmenu     && ╝ñ╗ε▓╦╡Ñ mainmenu
  112. DEACTIVATE MENU mainmenu
  113. RELEASE MENUS mainmenu
  114. CLEAR
  115. CLEAR ALL
  116. RETURN
  117.  
  118. PROCEDURE subroute
  119. PARAMETERS mmenu,mpad,mprompt
  120.  
  121. DO CASE
  122.    CASE mpad="PAD1"
  123.         ACTIVATE MENU menu1
  124.    CASE mpad="PAD2"
  125.         ACTIVATE MENU menu2
  126.    CASE mpad="PAD3"
  127.         ACTIVATE MENU menu3
  128.    CASE mpad="PAD4"
  129.         ACTIVATE MENU menu4
  130.    CASE mpad="PAD5"
  131.         ACTIVATE MENU menu5
  132.    CASE mpad="PAD6"
  133.         QUIT
  134. ENDCASE
  135. RETURN
  136.  
  137. PROCEDURE subrout2
  138. SET CURSOR OFF
  139. ACTIVATE WINDOW win
  140. @ 0,10 SAY " ▒º╟╕! │╠╨≥╬┤╜¿┴ó, ╟δ░┤╚╬╥╗╝ⁿ╝╠╨° "
  141. WAIT ""
  142. DEACTIVATE WINDOW win
  143. SET CURSOR ON
  144. RETURN
  145.