home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP5_6.PRG < prev    next >
Encoding:
Text File  |  1994-01-10  |  1.6 KB  |  53 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: EXP5_6.PRG                                           ⌐ª
  3. *⌐ª     Function: ╣Γ░⌠╩╜▓╦╡Ñ╖╢└²╢■                                     ⌐ª
  4. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  5. SET TALK OFF
  6. SET MESSAGE TO 24 CENTER
  7.  
  8. * ╢¿╥σ╥╗╕÷╨┼╧ó╧╘╩╛┤░┐┌:win
  9. DEFINE WINDOW win FROM 21,2 TO 23,78  ;
  10.        DOUBLE SHADOW COLOR SCHEME 7
  11. CLEAR
  12. @ 0,5 TO 2,70 DOUBLE
  13. * ╢¿╥σ╣Γ░⌠╩╜▓╦╡Ñ menu1
  14. DEFINE MENU menu1 COLOR SCHEME 7
  15. * ╢¿╥σ▓╦╡Ñ╕≈╧ε─┌╚▌
  16. DEFINE PAD pad1 OF menu1 PROMPT "\<1.▓Θ╤»╝╟┬╝" AT 1, 6;
  17.        MESSAGE  "─π┐╔╥╘╘┌╫╩┴╧┐Γ╓╨╜°╨╨▓Θ╤»"
  18. DEFINE PAD pad2 OF menu1 PROMPT "\<2.╘÷╝╙╝╟┬╝" AT 1,19;
  19.        MESSAGE  "─π┐╔╥╘╘÷╝╙╝╟┬╝╡╜╫╩┴╧┐Γ╓╨"
  20. DEFINE PAD pad3 OF menu1 PROMPT "\<3.╔╛│²╝╟┬╝" AT 1,32;
  21.        MESSAGE  "─π┐╔╥╘┤╙╫╩┴╧┐Γ╓╨╔╛│²▓╗╨Φ╥¬╡─╝╟┬╝"
  22. DEFINE PAD pad4 OF menu1 PROMPT "\<4.┤≥╙í╝╟┬╝" AT 1,45;
  23.        MESSAGE  "─π┐╔╥╘┤≥╙í╘┌╫╩┴╧┐Γ╓╨╡─╝╟┬╝"
  24. DEFINE PAD pad5 OF menu1 PROMPT "\<5.═╦    ╗╪" AT 1,58;
  25.        MESSAGE  "─π┐╔╥╘═╦│÷▒╛│╠╨≥"
  26.  
  27. ON SELECTION PAD pad1 OF menu1 DO submenu1
  28. ON SELECTION PAD pad2 OF menu1 DO submenu2
  29. ON SELECTION PAD pad3 OF menu1 DO submenu3
  30. ON SELECTION PAD pad4 OF menu1 DO submenu4
  31. ON SELECTION PAD pad5 OF menu1 DO submenu5
  32. ACTIVATE MENU menu1     && ╝ñ╗ε▓╦╡Ñ menu1
  33.  
  34. PROCEDURE submenu1
  35. =SORRY()
  36. PROCEDURE submenu2
  37. =SORRY()
  38. PROCEDURE submenu3
  39. =SORRY()
  40. PROCEDURE submenu4
  41. =SORRY()
  42. PROCEDURE submenu5
  43. CLEAR
  44. CLEAR WINDOWS
  45. DEACTIVATE MENU menu1
  46. RELASE MENUS menu1
  47.  
  48. FUNCTION SORRY
  49. SET CURSOR OFF
  50. WAIT " ▒º╟╕!  ╦∙╤í╘±╡─│╠╨≥╬┤╜¿┴ó" WINDOW
  51. SET CURSOR ON
  52. RETURN
  53.