home *** CD-ROM | disk | FTP | other *** search
- *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
- *⌐ª Program:EXP5_2.PRG ⌐ª
- *⌐ª Function:╙├╘¡╙╨║»╩²╓╞╫≈╔╧╡»╩╜▓╦╡Ñ╖╢└² ⌐ª
- *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
- SET TALK OFF
- * ╢¿╥σ╠ß╩╛╨┼╧ó┤░┐┌ message.
- DEFINE WINDOW message FROM 21,1 TO 23,78;
- TITLE " ╠ß╩╛╨┼╧ó " DOUBLE SHADOW COLOR SCHEME 7
- STORE 1 TO sele
-
- * ╢¿╥σ╕≈╤í╧ε╡─╩²╫Θ.
- DIMENSION option(5)
- * ░╤╕≈╤í╧ε─┌╚▌┤µ╚δ╩²╫Θ.
- option(1)=" \<1. ╘÷ ╝╙ ╨┬ ╝╟ ┬╝ "
- option(2)=" \<2. ╨▐ ╕─ ╛╔ ╝╟ ┬╝ "
- option(3)=" \<3. ╔╛ │² ╛╔ ╝╟ ┬╝ "
- option(4)=" \<4. ┤≥ ╙í ╨┬ ╝╟ ┬╝ "
- option(5)=" \<5. ═╦ │÷ "
- CLEAR
- DO WHILE .T.
- * ╢¿╥σ╥╗╕÷╔╧╡»╩╜▓╦╡Ñ option.
- @ 8,30 MENU option,5,5 TITLE " ┐Γ╬¼╗ñ▓╦╡Ñ " SHADOW
- * ╝ñ╗ε┤╦▓╦╡Ñ
- READ MENU TO sele
- DO CASE
- CASE sele=0 .OR. sele=5
- CLEAR WINDOWS
- CLEAR
- EXIT
- CASE sele=1
- DO subroute WITH sele
- CASE sele=2
- DO subroute WITH sele
- CASE sele=3
- DO subroute WITH sele
- CASE sele=4
- DO subroute WITH sele
- ENDCASE
- ENDDO
- * ┤╙─┌┤µ╓╨╟σ│²┤░┐┌ message.
- RELEASE WINDOW message
- RETURN
-
- PROCEDURE subroute
- PARAMETERS mychoice
- SET CURSOR OFF
- * ┤≥┐¬┤░┐┌ message.
- ACTIVATE WINDOW message
- @ 0,0 SAY " ╡┌"+ALLTRIM(STR(mychoice))+" ╕÷╤í╧ε "+;
- option(mychoice)+" ╡─│╠╨≥╔╨╬┤▒α╨┤."
- WAIT "╟δ░┤╚╬╥╗╝ⁿ╝╠╨°" WINDOW
- * ╣╪▒╒┤░┐┌ message.
- DEACTIVATE WINDOW message
- SET CURSOR ON
- RETURN