home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / MENU.PRG < prev    next >
Encoding:
Text File  |  1994-01-10  |  6.9 KB  |  178 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: MENU.PRG                                             ⌐ª
  3. *⌐ª     Function: ╧┬└¡╩╜▓╦╡Ñ╖╢└².                                      ⌐ª
  4. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  5. * ▒╛│╠╨≥╓╗╩╟╩╣╙├ FOXPRO 2.5 for DOS ╓╨╡─├ⁿ┴ε║═║»╩²╔Φ╝╞╧┬└¡╩╜▓╦╡Ñ╡─╥╗
  6. * ╕÷╩╡└². ╫ó╥Γ╞Σ▓╗░ⁿ║¼╦∙╡≈╙├╡─╫╙│╠╨≥.
  7.  
  8. SET TALK   OFF
  9. SET SAFETY OFF
  10. SET MESSAGE TO 24 CENTER
  11. SET COLOR OF SCHEME 2 TO BG/W,N/W,N/W,B/W,B/BG,N/BG,GR+/W,N+/N,B/W,W/N,+
  12. * ╨▐╕─ 2║┼╡≈╔½┼╠╡─╡┌ 7╕÷╔½▓╩╢╘, ╩╣╚╚╝ⁿ╤╒╔½╙╔+W/W ╕─╬¬ GR+/W.
  13. SET BORDER TO SINGLE
  14. * ╓╕╢¿═Γ┐≥╬¬╡Ñ╧▀.
  15.  
  16. ON ERROR DO ERR_2 WITH PROGRAM(),LINENO(),ERROR(),MESSAGE(1),MESSAGE()
  17. *ON ERROR DO ERR_PRO WITH LINENO(1),PROGRAM(),MESSAGE(),MESSAGE(1),ERROR(),;
  18.                     WLAST(),WREAD(),WONTOP(),RDLEVEL()
  19. * │÷┤φ╩▒, ╡≈╙├┤φ╬≤┤ª└φ│╠╨≥:ERR_1.PRG.
  20.  
  21. PUBLIC DBNAME,DBNAME1,DBNAME2
  22. STORE  SPACE(11) TO DBNAME
  23. CLEAR
  24. DEFINE WINDOW win FROM 20,2 TO 23,77 ;
  25.    TITLE "╦╡├≈╩╙┤░" DOUBLE SHADOW COLOR SCHEME 5
  26.  
  27. * ╢¿╥σ╧┬└¡╩╜▓╦╡Ñ:mainmenu
  28. DEFINE MENU mainmenu
  29. * ╢¿╥σ╧┬└¡╩╜▓╦╡Ñ╕≈╓≈╤í╧ε
  30. DEFINE PAD pad1 OF mainmenu PROMPT " ╧╡═│╬¼╗ñ"
  31. DEFINE PAD pad2 OF mainmenu PROMPT " ╣ñ╫╩┐Γ╬¼╗ñ "
  32. DEFINE PAD pad3 OF mainmenu PROMPT " ┤≥╙í▒¿▒φ "
  33. DEFINE PAD pad4 OF mainmenu PROMPT " ╝∞    ╦≈ "
  34. DEFINE PAD pad5 OF mainmenu PROMPT " ═│    ╝╞ "
  35. DEFINE PAD pad6 OF mainmenu PROMPT " ╞Σ    ╦ⁿ "
  36. ON PAD pad1 OF mainmenu ACTIVATE POPUP pop1
  37. ON PAD pad2 OF mainmenu ACTIVATE POPUP pop2
  38. ON PAD pad3 OF mainmenu ACTIVATE POPUP pop3
  39. ON PAD pad4 OF mainmenu ACTIVATE POPUP pop4
  40. ON PAD pad5 OF mainmenu ACTIVATE POPUP pop5
  41. ON PAD pad6 OF mainmenu ACTIVATE POPUP pop6
  42.  
  43. * ╢¿╥σ╧┬└¡╩╜▓╦╡Ñmainmenu╡─╡┌╥╗╕÷╫╙▓╦╡Ñ:pop1
  44. DEFINE POPUP pop1 MARGIN MESSAGE "╧╡═│╬¼╗ñ: ░µ▒╛║┼íó╧╡═│╔Φ╓├íó╤╒╔½╝»╔Φ╓├íó;
  45.        ▒╕╖▌íó╧╘╩╛╩╣╙├╦╡├≈╩Θíó┤·┬δ┐Γ╬¼╗ñíó╝╞╦π╞≈íó─Ω└·/╚╒╝╟" SHADOW
  46. DEFINE BAR  1 OF pop1 PROMPT "\<1.░µ▒╛"
  47. DEFINE BAR  2 OF pop1 PROMPT "\<2.╧╡═│╔Φ╓├"
  48. DEFINE BAR  3 OF pop1 PROMPT "\<3.╤╒╔½╝»╔Φ╓├"
  49. DEFINE BAR  4 OF pop1 PROMPT "\<4.▒╕╖▌"
  50. DEFINE BAR  5 OF pop1 PROMPT "\<5.╩╣╙├╦╡├≈"  KEY CTRL+S, '^S'
  51. * ╩╣╙├ KEY▓╬╩²╓╕╢¿╣ª─▄╝ⁿ
  52. DEFINE BAR  6 OF pop1 PROMPT "\<6.┤·┬δ┐Γ╬¼╗ñ"
  53. DEFINE BAR  7 OF pop1 PROMPT "\<7.╝╞╦π╞≈"    KEY CTRL+C, '^C'
  54. DEFINE BAR  8 OF pop1 PROMPT "\<8.─Ω└·/╚╒╝╟" KEY CTRL+D, '^D'
  55. DEFINE BAR  9 OF pop1 PROMPT "\-"
  56. DEFINE BAR 10 OF pop1 PROMPT "\<9.═╦│÷"
  57.  
  58. * ╢¿╥σ╫╙▓╦╡Ñpop1╕≈╤í╧ε╡─╓┤╨╨│╠╨≥╗≥├ⁿ┴ε.
  59. ON SELECT BAR  1 OF pop1  DO VERSION
  60. ON BAR 2 OF pop1 ACTIVATE POPUP POP1_1
  61. ON BAR 3 OF pop1 ACTIVATE POPUP POP1_2
  62. ON SELECT BAR  4 OF pop1  DO BACKUP
  63. ON SELECT BAR  5 OF pop1  RUN README
  64. ON BAR 6 OF pop1 ACTIVATE POPUP POP1_3
  65. ON SELECT BAR  7 OF pop1  DO  CALCULAT
  66. ON SELECT BAR  8 OF pop1  DO  CALENDAR
  67. ON SELECT BAR 10 OF poP1  QUIT
  68.  
  69. * ╢¿╥σ╧┬└¡╩╜▓╦╡Ñ╡┌╥╗╕÷╫╙▓╦╡Ñpop1╡─╢■╝╢╫╙▓╦╡Ñ:pop1_1
  70. DEFINE POPUP POP1_1 MARGIN  FROM 10,18;
  71.        MESSAGE " ╔Φ╓├╫┤╠¼╨╨, ╩▒╓╙╧╘╩╛ " SHADOW
  72.        * ╩╣╙├ FROM <row>,<col> ▓╬╩²╓╕╢¿ pop1_1╡─╬╗╓├
  73. DEFINE BAR 1 OF POP1_1 PROMPT "\<1.╫┤╠¼╨╨╔Φ╢¿"
  74. DEFINE BAR 2 OF POP1_1 PROMPT "\<2.╩▒╓╙╧╘╩╛╔Φ╢¿"
  75. ON SELECTION POPUP POP1_1 DO SYSPASET  WITH PROMPT()
  76.  
  77. * ╢¿╥σ╧┬└¡╩╜▓╦╡Ñ╡┌╥╗╕÷╫╙▓╦╡Ñpop1╡─╢■╝╢╫╙▓╦╡Ñ:pop1_2
  78. DEFINE POPUP POP1_2 MARGIN  FROM 9,18;
  79.        MESSAGE " ╔Φ╓├╤╒╔½╝» " SHADOW
  80. DEFINE BAR 1 OF POP1_2 PROMPT "\<1.╤╒╔½╝»╥╗ (╝╚╢¿)"
  81. DEFINE BAR 2 OF POP1_2 PROMPT "\<2.╤╒╔½╝»╢■"
  82. DEFINE BAR 3 OF POP1_2 PROMPT "\<3.╤╒╔½╝»╚²"
  83. DEFINE BAR 4 OF POP1_2 PROMPT "\<4.╤╒╔½╝»╦─ (╡Ñ╔½)"
  84. ON SELECTION POPUP POP1_2 DO COLORSET WITH PROMPT()
  85.  
  86. * ╢¿╥σ╧┬└¡╩╜▓╦╡Ñ╡┌╥╗╕÷╫╙▓╦╡Ñpop1╡─╢■╝╢╫╙▓╦╡Ñ:pop1_3
  87. DEFINE POPUP POP1_3 MARGIN  FROM 10,18 MESSAGE;
  88.        " ┤·┬δ┐Γ╬¼╗ñ: ▓┐├┼íó╫╓╢╬┤·┬δ┐Γ╝╟┬╝╘÷╝╙íó╔╛│²íó╨▐╕─íóΣ»└└ " SHADOW
  89. DEFINE BAR 1 OF POP1_3 PROMPT "\<1.▓┐├┼┤·┬δ┐Γ "
  90. DEFINE BAR 2 OF POP1_3 PROMPT "\<2.╫╓╢╬┤·┬δ┐Γ "
  91. ON SELECTION POPUP POP1_3 DO UPCODE
  92.  
  93. * ╢¿╥σ╧┬└¡╩╜▓╦╡Ñmainmenu╡─╡┌╢■╕÷╫╙▓╦╡Ñ:pop2
  94. DEFINE POPUP pop2 MARGIN;
  95.        MESSAGE "╩²╛▌┐Γ╬¼╗ñ: ╩²╛▌┐Γ╝╟┬╝╘÷╝╙íó╔╛│²íó╨▐╕─íóΣ»└└" SHADOW
  96. DEFINE BAR 1 OF pop2 PROMPT "\<1.╘÷╝╙╝╟┬╝"
  97. DEFINE BAR 2 OF pop2 PROMPT "\<2.╨▐╕─╝╟┬╝"
  98. DEFINE BAR 3 OF pop2 PROMPT "\<3.╡Ñ╧ε╨▐╕─"
  99. DEFINE BAR 4 OF pop2 PROMPT "\<4.╔╛│²╝╟┬╝"
  100. DEFINE BAR 5 OF pop2 PROMPT "\<5.Σ»└└╝╞┬╝"
  101. ON SELECT BAR 1 OF pop2 DO ADD_1
  102. ON SELECT BAR 2 OF pop2 DO UPDATE
  103. ON BAR 3 OF pop2 ACTIVATE POPUP POP2_1
  104. ON SELECT BAR 4 OF pop2 DO DELETE
  105. ON SELECT BAR 5 OF pop2 DO SELE_DB
  106.  
  107. * ╢¿╥σ╧┬└¡╩╜▓╦╡Ñ╡┌╢■╕÷╫╙▓╦╡Ñpop2╡─╢■╝╢╫╙▓╦╡Ñ:pop2_1
  108. DEFINE POPUP POP2_1 MARGIN  FROM 5,26;
  109.        MESSAGE " ╓╗╨▐╕─╣ñ╫╩┐Γ╓╕╢¿╡─╫╓╢╬ " SHADOW
  110. DEFINE BAR 1 OF POP2_1 PROMPT "\<1.╓≡╠⌡╨▐╕─ "
  111. DEFINE BAR 2 OF POP2_1 PROMPT "\<2.╫╘╢»╓├╗╗ "
  112. ON SELECTION BAR 1 OF POP2_1 DO SING_UP1
  113. ON SELECTION BAR 2 OF POP2_1 DO SING_UP2
  114.  
  115. * ╢¿╥σ╧┬└¡╩╜▓╦╡Ñmainmenu╡─╡┌╚²╕÷╫╙▓╦╡Ñ:pop3
  116. DEFINE POPUP pop3 MARGIN MESSAGE "┤≥╙í╕≈╓╓▒¿▒φ"  SHADOW
  117. DEFINE BAR 1 OF pop3 PROMPT "\<1.▒╛╘┬╣ñ╫╩▒φ"
  118. DEFINE BAR 2 OF pop3 PROMPT "\<2.▒╛╘┬╗π╫▄▒φ"
  119. DEFINE BAR 3 OF pop3 PROMPT "\-"
  120. DEFINE BAR 4 OF pop3 PROMPT "\<3.▓┐├┼╚╦╘▒├√╡Ñ"
  121. DEFINE BAR 5 OF pop3 PROMPT "\<4.╚╦╘▒┐╒░╫▒φ"
  122. DEFINE BAR 6 OF pop3 PROMPT "\-"
  123. DEFINE BAR 7 OF pop3 PROMPT "\<5.╞Σ╦ⁿ▒φ╥╗"
  124. DEFINE BAR 8 OF pop3 PROMPT "\<6.╞Σ╦ⁿ▒φ╢■"
  125. ON SELECT  BAR 1 OF pop3 DO SALA_P
  126. ON SELECT  BAR 2 OF pop3 DO TOTAL_P
  127. ON SELECT  BAR 4 OF pop3 DO B3_P
  128. ON SELECT  BAR 5 OF pop3 DO B4_P
  129. ON SELECT  BAR 7 OF pop3 DO Q1_P
  130. ON SELECT  BAR 8 OF pop3 DO Q2_P
  131.  
  132. * ╢¿╥σ╧┬└¡╩╜▓╦╡Ñmainmenu╡─╡┌╦─╕÷╫╙▓╦╡Ñ:pop4
  133. DEFINE POPUP pop4 MARGIN MESSAGE "╕≈╓╓╠⌡╝■╝∞╦≈"  SHADOW
  134. DEFINE BAR 1 OF pop4 PROMPT "\<1.╣╠╢¿╝∞╦≈"
  135. DEFINE BAR 2 OF pop4 PROMPT "\<2.╠⌡╝■╝∞╦≈"
  136. DEFINE BAR 3 OF pop4 PROMPT "\<3.╫╘╙╔╝∞╦≈"
  137. DEFINE BAR 4 OF pop4 PROMPT "\<4.╫╘╢¿╥σ╝∞╦≈  "
  138. ON SELECT BAR 1 OF pop4 DO FIXEDFND
  139. ON SELECT BAR 2 OF pop4 DO CONDIFND
  140. ON SELECT BAR 3 OF pop4 DO FREEFND
  141. ON SELECT BAR 4 OF pop4 DO DEFINFND
  142.  
  143. * ╢¿╥σ╧┬└¡╩╜▓╦╡Ñmainmenu╡─╡┌╬σ╕÷╫╙▓╦╡Ñ:pop5
  144. DEFINE POPUP pop5 MARGIN MESSAGE "╕≈╓╓═│╝╞╩Σ│÷" SHADOW
  145. DEFINE BAR 1  OF pop5 PROMPT "\<1.╣ñ╫╩╢ε═│╝╞"
  146. DEFINE BAR 2  OF pop5 PROMPT "\<2.▓┐├┼╚╦╩²═│╝╞"
  147. DEFINE BAR 3  OF pop5 PROMPT "\<3.▓┐├┼íó╣ñ╫╩╖╓▓╝"
  148. DEFINE BAR 4  OF pop5 PROMPT "\-"
  149. DEFINE BAR 5  OF pop5 PROMPT "\<4.╫╘╙╔╠⌡╝■═│╝╞"
  150. ON SELECT BAR  1 OF pop5 DO T1
  151. ON SELECT BAR  2 OF pop5 DO T2
  152. ON SELECT BAR  3 OF pop5 DO T3
  153. ON SELECT BAR  5 OF pop5 DO T4
  154.  
  155. * ╢¿╥σ╧┬└¡╩╜▓╦╡Ñmainmenu╡─╡┌┴∙╕÷╫╙▓╦╡Ñ:pop6
  156. DEFINE POPUP pop6 MARGIN MESSAGE "╕≈╓╓╞Σ╦ⁿ▓┘╫≈" SHADOW
  157. DEFINE BAR 1  OF pop6 PROMPT "\<1.╬─╝■▒α╝¡"
  158. DEFINE BAR 2  OF pop6 PROMPT "\<2.╩²╛▌┐ΓΣ»└└"
  159. DEFINE BAR 3  OF pop6 PROMPT "\<3.╩Σ│÷ASCII╬─╝■"
  160. DEFINE BAR 4  OF pop6 PROMPT "\-"
  161. DEFINE BAR 5  OF pop6 PROMPT "\<4.WPS ╬─╫╓▒α╝¡"
  162. DEFINE BAR 6  OF pop6 PROMPT "\<5.CCED╫╓▒φ▒α╝¡"
  163. DEFINE BAR 7  OF pop6 PROMPT "\-"
  164. DEFINE BAR 8  OF pop6 PROMPT "\<6.╖╡╗╪ DOS╧╡═│"
  165. ON SELECT BAR  1 OF POP6 FILER
  166. ON SELECT BAR  2 OF POP6 ACTIVATE WINDOW CALCULATOR
  167. ON SELECT BAR  3 OF POP6 DO W3
  168. ON SELECT BAR  5 OF POP6 DO W4
  169. ON SELECT BAR  6 OF POP6 RUN CCED
  170. ON SELECT BAR  8 OF POP6 QUIT
  171.  
  172. * ╞⌠╢»╧┬└¡╩╜▓╦╡Ñmainmenu
  173. ACTIVATE MENU MAINMENU
  174. DEACTIVATE WINDOW win
  175. SET CURSOR ON
  176. ON ERROR
  177. RETURN
  178.