home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b060 / 1.ddi / G_MNU001.MPR < prev    next >
Encoding:
Text File  |  1993-11-08  |  10.9 KB  |  256 lines
  1. *       ╓─────────────────────────────────────────────────────────╖
  2. *       ║                                                         ║
  3. *       ║ 11/08/93            G_MNU001.MPR              16:30:09  ║
  4. *       ║                                                         ║
  5. *       ╟─────────────────────────────────────────────────────────╢
  6. *       ║                                                         ║
  7. *       ║ Author's Name                                           ║
  8. *       ║                                                         ║
  9. *       ║ Copyright (c) 1993 Company Name                         ║
  10. *       ║ Address                                                 ║
  11. *       ║ City,     Zip                                           ║
  12. *       ║                                                         ║
  13. *       ║ Description:                                            ║
  14. *       ║ This program was automatically generated by GENMENU.    ║
  15. *       ║                                                         ║
  16. *       ╙─────────────────────────────────────────────────────────╜
  17.  
  18.  
  19. *       ╓─────────────────────────────────────────────────────────╖
  20. *       ║                                                         ║
  21. *       ║                      Menu Definition                    ║
  22. *       ║                                                         ║
  23. *       ╙─────────────────────────────────────────────────────────╜
  24. *
  25.  
  26. SET SYSMENU TO
  27.  
  28. SET SYSMENU AUTOMATIC
  29.  
  30. DEFINE PAD _qkr0zdcj8 OF _MSYSMENU PROMPT "_\<A_╧╡═│" COLOR SCHEME 3 ;
  31.     KEY ALT+A, "ALT+A"
  32. DEFINE PAD _qkr0zdcjv OF _MSYSMENU PROMPT "_\<B_┐Γ┤µ" COLOR SCHEME 3 ;
  33.     KEY ALT+B, "ALT+B"
  34. DEFINE PAD _qkr0zdck8 OF _MSYSMENU PROMPT "_\<C_╧·╩█" COLOR SCHEME 3 ;
  35.     KEY ALT+C, "ALT+C"
  36. DEFINE PAD _qkr0zdckl OF _MSYSMENU PROMPT "_\<D_═│╝╞" COLOR SCHEME 3 ;
  37.     KEY ALT+D, "ALT+D"
  38. DEFINE PAD _qkr0zdco9 OF _MSYSMENU PROMPT "_\<E_▓Θ╤»" COLOR SCHEME 3 ;
  39.     KEY ALT+E, "ALT+E"
  40. DEFINE PAD _qkr0zdcoq OF _MSYSMENU PROMPT "_\<F_┤░┐┌" COLOR SCHEME 3 ;
  41.     KEY ALT+F, "ALT+F"
  42. ON PAD _qkr0zdcj8 OF _MSYSMENU ACTIVATE POPUP a
  43. ON PAD _qkr0zdcjv OF _MSYSMENU ACTIVATE POPUP b
  44. ON PAD _qkr0zdck8 OF _MSYSMENU ACTIVATE POPUP c
  45. ON PAD _qkr0zdckl OF _MSYSMENU ACTIVATE POPUP d
  46. ON PAD _qkr0zdco9 OF _MSYSMENU ACTIVATE POPUP e
  47. ON PAD _qkr0zdcoq OF _MSYSMENU ACTIVATE POPUP f
  48.  
  49. DEFINE POPUP a MARGIN RELATIVE SHADOW COLOR SCHEME 4
  50. DEFINE BAR 1 OF a PROMPT "_\<A_░∩╓·" ;
  51.     KEY F1, "F1" ;
  52.     SKIP FOR YEAR(DATE())=1993
  53. DEFINE BAR 2 OF a PROMPT "\-"
  54. DEFINE BAR 3 OF a PROMPT "_\<B_▒╕╖▌╩²╛▌" ;
  55.     SKIP FOR YEAR(DATE())=1993
  56. DEFINE BAR 4 OF a PROMPT "_\<C_╗╓╕┤╩²╛▌" ;
  57.     SKIP FOR YEAR(DATE())=1993
  58. DEFINE BAR 5 OF a PROMPT "_\<D_╔Φ╓├┐┌┴ε" ;
  59.     SKIP FOR YEAR(DATE())=1993
  60. DEFINE BAR 6 OF a PROMPT "\-"
  61. DEFINE BAR 7 OF a PROMPT "_\<E_╖╡╗╪DOS" ;
  62.     KEY F12, "F12"
  63. ON SELECTION BAR 1 OF a HELP
  64. ON SELECTION BAR 7 OF a QUIT
  65.  
  66. DEFINE POPUP b MARGIN RELATIVE SHADOW COLOR SCHEME 4
  67. DEFINE BAR 1 OF b PROMPT "_\<A_┼Σ╝■╚δ┐Γ"
  68. ON SELECTION BAR 1 OF b do g_pro001.prg
  69.  
  70. DEFINE POPUP c MARGIN RELATIVE SHADOW COLOR SCHEME 4
  71. DEFINE BAR 1 OF c PROMPT "_\<A_╧·╩█"
  72. DEFINE BAR 2 OF c PROMPT "\-"
  73. DEFINE BAR 3 OF c PROMPT "_\<B_═╦╗⌡" ;
  74.     SKIP FOR YEAR(DATE())=1993
  75. DEFINE BAR 4 OF c PROMPT "\-"
  76. DEFINE BAR 5 OF c PROMPT "_\<C_┐Γ═Γ╧·╩█" ;
  77.     SKIP FOR YEAR(DATE())=1993
  78. ON SELECTION BAR 1 OF c do g_pro002.prg
  79. ON SELECTION BAR 3 OF c do g_pro003.prg
  80. ON SELECTION BAR 5 OF c do g_pro004.prg
  81.  
  82. DEFINE POPUP d MARGIN RELATIVE SHADOW COLOR SCHEME 4
  83. DEFINE BAR 1 OF d PROMPT "_\<A_╚╒▒¿▒φ"
  84. DEFINE BAR 2 OF d PROMPT "_\<B_╘┬▒¿▒φ" ;
  85.     SKIP FOR day(date()) <> 25
  86. ON BAR 1 OF d ACTIVATE POPUP _ql809senj
  87. ON BAR 2 OF d ACTIVATE POPUP _ql809yz1y
  88.  
  89. DEFINE POPUP _ql809senj MARGIN RELATIVE SHADOW COLOR SCHEME 4
  90. DEFINE BAR 1 OF _ql809senj PROMPT "_A_╞┴─╗"
  91. DEFINE BAR 2 OF _ql809senj PROMPT "_B_┤≥╙í╗·"
  92. ON SELECTION BAR 1 OF _ql809senj ;
  93.     DO _qkr0zdd73 ;
  94.     IN LOCFILE("G_MNU001" ,"MPX;MPR|FXP;PRG" ,"Where is G_MNU001?")
  95. ON SELECTION BAR 2 OF _ql809senj ;
  96.     DO _qkr0zdd7r ;
  97.     IN LOCFILE("G_MNU001" ,"MPX;MPR|FXP;PRG" ,"Where is G_MNU001?")
  98.  
  99. DEFINE POPUP _ql809yz1y MARGIN RELATIVE SHADOW COLOR SCHEME 4
  100. DEFINE BAR 1 OF _ql809yz1y PROMPT "_A_╞┴─╗"
  101. DEFINE BAR 2 OF _ql809yz1y PROMPT "_B_┤≥╙í╗·"
  102. ON SELECTION BAR 1 OF _ql809yz1y ;
  103.     DO _qkr0zddas ;
  104.     IN LOCFILE("G_MNU001" ,"MPX;MPR|FXP;PRG" ,"Where is G_MNU001?")
  105. ON SELECTION BAR 2 OF _ql809yz1y ;
  106.     DO _qkr0zddbo ;
  107.     IN LOCFILE("G_MNU001" ,"MPX;MPR|FXP;PRG" ,"Where is G_MNU001?")
  108.  
  109. DEFINE POPUP e MARGIN RELATIVE SHADOW COLOR SCHEME 4
  110. DEFINE BAR 1 OF e PROMPT "_\<A_┐Γ┤µ╟Θ┐÷"
  111. DEFINE BAR 2 OF e PROMPT "_\<B_╧·╩█╟Θ┐÷"
  112. DEFINE BAR 3 OF e PROMPT "_\<C_╢⌐╗⌡╟Θ┐÷" ;
  113.     SKIP FOR YEAR(DATE())=1993
  114. ON BAR 1 OF e ACTIVATE POPUP _qkk06ggn8
  115. ON BAR 2 OF e ACTIVATE POPUP _qkk06m822
  116. ON BAR 3 OF e ACTIVATE POPUP _qkk06snpl
  117.  
  118. DEFINE POPUP _qkk06ggn8 MARGIN RELATIVE SHADOW COLOR SCHEME 4
  119. DEFINE BAR 1 OF _qkk06ggn8 PROMPT "_\<A_╚½▓┐"
  120. DEFINE BAR 2 OF _qkk06ggn8 PROMPT "_\<B_▒α┬δ"
  121. DEFINE BAR 3 OF _qkk06ggn8 PROMPT "_\<C_╨═║┼"
  122. DEFINE BAR 4 OF _qkk06ggn8 PROMPT "_\<D_├√│╞"
  123. DEFINE BAR 5 OF _qkk06ggn8 PROMPT "_\<E_│╡╨═"
  124. ON SELECTION BAR 1 OF _qkk06ggn8 do g_chk001.prg
  125. ON SELECTION BAR 2 OF _qkk06ggn8 do g_chk002.prg with prompt(),bar()
  126. ON SELECTION BAR 3 OF _qkk06ggn8 do g_chk002.prg with prompt(),bar()
  127. ON SELECTION BAR 4 OF _qkk06ggn8 do g_chk002.prg with prompt(),bar()
  128. ON SELECTION BAR 5 OF _qkk06ggn8 do g_chk002.prg with prompt(),bar()
  129.  
  130. DEFINE POPUP _qkk06m822 MARGIN RELATIVE SHADOW COLOR SCHEME 4
  131. DEFINE BAR 1 OF _qkk06m822 PROMPT "_\<A_╚½▓┐"
  132. DEFINE BAR 2 OF _qkk06m822 PROMPT "_\<B_╨≥║┼"
  133. DEFINE BAR 3 OF _qkk06m822 PROMPT "_\<C_╙├╗º"
  134. DEFINE BAR 4 OF _qkk06m822 PROMPT "_\<D_▒α┬δ"
  135. DEFINE BAR 5 OF _qkk06m822 PROMPT "_\<E_╨═║┼"
  136. DEFINE BAR 6 OF _qkk06m822 PROMPT "_\<F_├√│╞"
  137. DEFINE BAR 7 OF _qkk06m822 PROMPT "_\<G_│╡╨═"
  138. DEFINE BAR 8 OF _qkk06m822 PROMPT "_\<H_╚╒╞┌"
  139. ON SELECTION BAR 1 OF _qkk06m822 do g_chk005.prg
  140. ON SELECTION BAR 2 OF _qkk06m822 do g_chk006.prg with prompt(),bar()
  141. ON SELECTION BAR 3 OF _qkk06m822 do g_chk006.prg with prompt(),bar()
  142. ON SELECTION BAR 4 OF _qkk06m822 do g_chk006.prg with prompt(),bar()
  143. ON SELECTION BAR 5 OF _qkk06m822 do g_chk006.prg with prompt(),bar()
  144. ON SELECTION BAR 6 OF _qkk06m822 do g_chk006.prg with prompt(),bar()
  145. ON SELECTION BAR 7 OF _qkk06m822 do g_chk006.prg with prompt(),bar()
  146. ON SELECTION BAR 8 OF _qkk06m822 do g_chk006.prg with prompt(),bar()
  147.  
  148. DEFINE POPUP _qkk06snpl MARGIN RELATIVE SHADOW COLOR SCHEME 4
  149. DEFINE BAR 1 OF _qkk06snpl PROMPT "_\<A_╚½▓┐"
  150. DEFINE BAR 2 OF _qkk06snpl PROMPT "_\<B_▒α┬δ"
  151. DEFINE BAR 3 OF _qkk06snpl PROMPT "_\<C_╨═║┼"
  152. DEFINE BAR 4 OF _qkk06snpl PROMPT "_\<D_├√│╞"
  153. DEFINE BAR 5 OF _qkk06snpl PROMPT "_\<E_│╡╨═"
  154. ON SELECTION BAR 1 OF _qkk06snpl do g_chk003 with bar()
  155. ON SELECTION BAR 2 OF _qkk06snpl do g_chk003 with bar()
  156. ON SELECTION BAR 3 OF _qkk06snpl do g_chk003 with bar()
  157. ON SELECTION BAR 4 OF _qkk06snpl do g_chk003 with bar()
  158. ON SELECTION BAR 5 OF _qkk06snpl do g_chk003 with bar()
  159.  
  160. DEFINE POPUP f MARGIN RELATIVE SHADOW COLOR SCHEME 4
  161. DEFINE BAR _mwi_hide OF f PROMPT "_\<A_╥■▓╪"
  162. DEFINE BAR _mwi_hidea OF f PROMPT "_\<B_╚½▓┐╥■▓╪"
  163. DEFINE BAR _mwi_showa OF f PROMPT "_\<C_╚½▓┐╧╘╩╛"
  164. DEFINE BAR _mwi_clear OF f PROMPT "_\<D_╟σ│²"
  165. DEFINE BAR 5 OF f PROMPT "\-"
  166. DEFINE BAR _mwi_move OF f PROMPT "_\<E_╥╞╢»"
  167. DEFINE BAR _mwi_rotat OF f PROMPT "_\<F_╫¬╗╗" ;
  168.     KEY F11, "F11"
  169.  
  170.  
  171. *       ╓─────────────────────────────────────────────────────────╖
  172. *       ║                                                         ║
  173. *       ║ _QKR0ZDD73  ON SELECTION BAR 1 OF POPUP _ql809senj      ║
  174. *       ║                                                         ║
  175. *       ║ Procedure Origin:                                       ║
  176. *       ║                                                         ║
  177. *       ║ From Menu:  G_MNU001.MPR,            Record:   26       ║
  178. *       ║ Called By:  ON SELECTION BAR 1 OF POPUP _ql809senj      ║
  179. *       ║ Prompt:     _A_╞┴─╗                                     ║
  180. *       ║ Snippet:    1                                           ║
  181. *       ║                                                         ║
  182. *       ╙─────────────────────────────────────────────────────────╜
  183. *
  184. PROCEDURE _qkr0zdd73
  185. CLOSE ALL
  186. DO G_RQBE01.QPR
  187. CLOSE ALL
  188. RETURN
  189.  
  190.  
  191. *       ╓─────────────────────────────────────────────────────────╖
  192. *       ║                                                         ║
  193. *       ║ _QKR0ZDD7R  ON SELECTION BAR 2 OF POPUP _ql809senj      ║
  194. *       ║                                                         ║
  195. *       ║ Procedure Origin:                                       ║
  196. *       ║                                                         ║
  197. *       ║ From Menu:  G_MNU001.MPR,            Record:   27       ║
  198. *       ║ Called By:  ON SELECTION BAR 2 OF POPUP _ql809senj      ║
  199. *       ║ Prompt:     _B_┤≥╙í╗·                                   ║
  200. *       ║ Snippet:    2                                           ║
  201. *       ║                                                         ║
  202. *       ╙─────────────────────────────────────────────────────────╜
  203. *
  204. PROCEDURE _qkr0zdd7r
  205. CLOSE ALL
  206. SET DEVICE TO PRINTER
  207. DO G_RQBE02.QPR
  208. SET DEVICE TO SCREEN
  209. CLOSE ALL
  210. RETURN
  211.  
  212.  
  213.  
  214. *       ╓─────────────────────────────────────────────────────────╖
  215. *       ║                                                         ║
  216. *       ║ _QKR0ZDDAS  ON SELECTION BAR 1 OF POPUP _ql809yz1y      ║
  217. *       ║                                                         ║
  218. *       ║ Procedure Origin:                                       ║
  219. *       ║                                                         ║
  220. *       ║ From Menu:  G_MNU001.MPR,            Record:   30       ║
  221. *       ║ Called By:  ON SELECTION BAR 1 OF POPUP _ql809yz1y      ║
  222. *       ║ Prompt:     _A_╞┴─╗                                     ║
  223. *       ║ Snippet:    3                                           ║
  224. *       ║                                                         ║
  225. *       ╙─────────────────────────────────────────────────────────╜
  226. *
  227. PROCEDURE _qkr0zddas
  228. CLOSE ALL
  229. DO G_RQBE03.QPR
  230. CLOSE ALL
  231. RETURN
  232.  
  233.  
  234.  
  235. *       ╓─────────────────────────────────────────────────────────╖
  236. *       ║                                                         ║
  237. *       ║ _QKR0ZDDBO  ON SELECTION BAR 2 OF POPUP _ql809yz1y      ║
  238. *       ║                                                         ║
  239. *       ║ Procedure Origin:                                       ║
  240. *       ║                                                         ║
  241. *       ║ From Menu:  G_MNU001.MPR,            Record:   31       ║
  242. *       ║ Called By:  ON SELECTION BAR 2 OF POPUP _ql809yz1y      ║
  243. *       ║ Prompt:     _B_┤≥╙í╗·                                   ║
  244. *       ║ Snippet:    4                                           ║
  245. *       ║                                                         ║
  246. *       ╙─────────────────────────────────────────────────────────╜
  247. *
  248. PROCEDURE _qkr0zddbo
  249. CLOSE ALL
  250. SET DEVICE TO PRINTER
  251. DO G_RQBE04.QPR
  252. SET DEVICE TO SCREEN
  253. CLOSE ALL
  254. RETURN
  255.  
  256.