home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP5_2.PRG < prev    next >
Encoding:
Text File  |  1994-01-10  |  1.5 KB  |  56 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program:EXP5_2.PRG                                            ⌐ª
  3. *⌐ª     Function:╙├╘¡╙╨║»╩²╓╞╫≈╔╧╡»╩╜▓╦╡Ñ╖╢└²                          ⌐ª
  4. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  5. SET TALK OFF
  6. * ╢¿╥σ╠ß╩╛╨┼╧ó┤░┐┌ message.
  7. DEFINE WINDOW message FROM 21,1 TO 23,78;
  8. TITLE "  ╠ß╩╛╨┼╧ó  " DOUBLE SHADOW COLOR SCHEME 7
  9. STORE 1 TO sele
  10.  
  11. * ╢¿╥σ╕≈╤í╧ε╡─╩²╫Θ.
  12. DIMENSION option(5)
  13. * ░╤╕≈╤í╧ε─┌╚▌┤µ╚δ╩²╫Θ.
  14. option(1)=" \<1. ╘÷ ╝╙ ╨┬ ╝╟ ┬╝  "
  15. option(2)=" \<2. ╨▐ ╕─ ╛╔ ╝╟ ┬╝  "
  16. option(3)=" \<3. ╔╛ │² ╛╔ ╝╟ ┬╝  "
  17. option(4)=" \<4. ┤≥ ╙í ╨┬ ╝╟ ┬╝  "
  18. option(5)=" \<5. ═╦          │÷  "
  19. CLEAR
  20. DO WHILE .T.
  21.    * ╢¿╥σ╥╗╕÷╔╧╡»╩╜▓╦╡Ñ option.
  22.    @ 8,30 MENU option,5,5  TITLE " ┐Γ╬¼╗ñ▓╦╡Ñ "  SHADOW
  23.    * ╝ñ╗ε┤╦▓╦╡Ñ
  24.    READ MENU TO sele
  25.    DO CASE
  26.       CASE sele=0 .OR. sele=5
  27.            CLEAR WINDOWS
  28.            CLEAR
  29.            EXIT
  30.       CASE sele=1
  31.            DO subroute WITH sele
  32.       CASE sele=2
  33.            DO subroute WITH sele
  34.       CASE sele=3
  35.            DO subroute WITH sele
  36.       CASE sele=4
  37.            DO subroute WITH sele
  38.     ENDCASE
  39. ENDDO
  40. * ┤╙─┌┤µ╓╨╟σ│²┤░┐┌ message.
  41. RELEASE WINDOW message
  42. RETURN
  43.  
  44. PROCEDURE subroute
  45. PARAMETERS mychoice
  46. SET CURSOR OFF
  47. * ┤≥┐¬┤░┐┌ message.
  48. ACTIVATE WINDOW message
  49. @ 0,0 SAY " ╡┌"+ALLTRIM(STR(mychoice))+" ╕÷╤í╧ε "+;
  50.   option(mychoice)+" ╡─│╠╨≥╔╨╬┤▒α╨┤."
  51. WAIT "╟δ░┤╚╬╥╗╝ⁿ╝╠╨°" WINDOW
  52. * ╣╪▒╒┤░┐┌ message.
  53. DEACTIVATE WINDOW message
  54. SET CURSOR ON
  55. RETURN
  56.