home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP5_5.PRG < prev    next >
Encoding:
Text File  |  1994-01-10  |  1.6 KB  |  47 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤ 
  2. *⌐ª      Program: EXP5_5.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 1
  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  "─π┐╔╥╘┤╙╫╩┴╧┐Γ╓╨╔╛│²▓╗╨Φ╥¬╡─╝╟┬╝"  SKIP
  22.        * ▓╬╩² SKIP ╩╣╡├┤╦╧ε▓╗─▄▒╗╤í╘±.
  23. DEFINE PAD pad4 OF menu1 PROMPT "\<4.┤≥╙í╝╟┬╝" AT 1,45;
  24.        MESSAGE  "─π┐╔╥╘┤≥╙í╘┌╫╩┴╧┐Γ╓╨╡─╝╟┬╝"
  25. DEFINE PAD pad5 OF menu1 PROMPT "\<5.═╦    ╗╪" AT 1,58;
  26.        MESSAGE  "─π┐╔╥╘═╦│÷▒╛│╠╨≥"
  27.  
  28. ON SELECTION MENU menu1 DO subroute WITH MENU(),PAD(),PROMPT()
  29. ACTIVATE MENU menu1     && ╝ñ╗ε▓╦╡Ñ menu1
  30.  
  31. PROCEDURE subroute
  32. PARAMETERS mmenu,mpad,mprompt
  33. IF mpad="PAD5"
  34.    CLEAR
  35.    CLEAR WINDOWS
  36.    DEACTIVATE MENU menu1
  37.    RELEASE MENUS menu1
  38. ENDIF
  39. SET CURSOR OFF
  40. ACTIVATE WINDOW win
  41. @ 0,10 SAY " ▒º╟╕!  ▓╦╡Ñ"+"["+ALLTRIM(mmenu)+"]"+"╓╨╓«╤í╧ε"+;
  42.    "<"+ALLTRIM(mprompt)+">"+"│╠╨≥╬┤╜¿┴ó"
  43. WAIT "╟δ░┤╚╬╥╗╝ⁿ╝╠╨°" WINDOW
  44. DEACTIVATE WINDOW win
  45. SET CURSOR ON
  46. RETURN
  47.