home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP5_1.PRG < prev    next >
Encoding:
Text File  |  1994-01-10  |  3.3 KB  |  105 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤ 
  2. *⌐ª      Program:EXP5_1.PRG                                            ⌐ª
  3. *⌐ª     Function:╙├╘¡╙╨║»╩²╓╞╫≈╣Γ░⌠╩╜▓╦╡Ñ╡─╖╢└².                       ⌐ª
  4. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  5. SET TALK OFF
  6. SET MESSAGE TO 24 CENTER
  7. SET COLOR TO W/N
  8. CLEAR
  9. SET COLOR TO W/B,W/R
  10. * ╢¿╥σ╧╘╩╛╨┼╧ó╡─┤░┐┌win1 ║══╦│÷│╠╨≥╡─┤░┐┌win2
  11. DEFINE WINDOW win1 FROM  22,1 TO 24,79  ;
  12.        TITLE " ╨┼╧ó┤░┐┌ " SHADOW COLOR SCHEME 5
  13. DEFINE WINDOW win2 FROM 18,30 TO 21,50 SHADOW COLOR SCHEME 7
  14.  
  15. DO WHILE .T.
  16.    * ╗¡▓╦╡Ñ╡─═Γ┐≥
  17.    @ 5, 9 TO  7,70 DOUBLE
  18.    @ 6,10 SAY "                        ╓≈   ▓╦   ╡Ñ                        "
  19.    @ 5, 9 TO 12,70 DOUBLE
  20.    * ╢¿╥σ╕≈ PROMPT ╡──┌╚▌.
  21.    @ 8,10 PROMPT "\<1.▒╕╖▌         " MESSAGE "▒╕╖▌╩²╛▌┐Γ╬─╝■"
  22.    @ 9,10 PROMPT "\<2.╧╡═│╔Φ╓├     " MESSAGE "╔Φ╓├╙╨╣╪╧╡═│▓╬╩²"
  23.    @10,10 PROMPT "\<3.╩²╛▌╫╓╡Σ╬¼╗ñ " MESSAGE "╬¼╗ñ╩²╛▌╫╓╡Σ"
  24.    @11,10 PROMPT "\<4.╩╣╙├╦╡├≈     " MESSAGE "╧╘╩╛╩╣╙├╦╡├≈╩Θ"
  25.    @ 8,25 PROMPT "\<5.╫╖╝╙╨┬╝╟┬╝   " MESSAGE "╧≥╩²╛▌┐Γ╓╨╫╖╝╙╝╟┬╝ "
  26.    @ 9,25 PROMPT "\<6.╔╛│²╛╔╝╟┬╝   " MESSAGE "┤╙╩²╛▌┐Γ╓╨╔╛│²╝╟┬╝"
  27.    @10,25 PROMPT "\<7.╨▐╕─╛╔╝╟┬╝   " MESSAGE "╘┌╩²╛▌┐Γ╓╨╨▐╕─╝╟┬╝"
  28.    @11,25 PROMPT "\<8.Σ»└└┐Γ╝╟┬╝   " MESSAGE "Σ»└└╩²╛▌┐Γ╓╨╝╟┬╝"
  29.    @ 8,40 PROMPT "\<9.╣╠╢¿╝∞╦≈     " MESSAGE "╙├╣╠╢¿╠⌡╝■╝∞╦≈╩²╛▌┐Γ"
  30.    @ 9,40 PROMPT "\<A.╠⌡╝■╝∞╦≈     " MESSAGE "╙├╕°╢¿╠⌡╝■╝∞╦≈╩²╛▌┐Γ"
  31.    @10,40 PROMPT "\<B.╫╘╙╔╝∞╦≈     " MESSAGE "╙├═Ω╚½╩Σ╚δ╖╜╩╜╝∞╦≈╩²╛▌┐Γ"
  32.    @11,40 PROMPT "\<C.╫╘╢¿╥σ╝∞╦≈   " MESSAGE "╙├╫╘╢¿╥σ╠⌡╝■╝∞╦≈╩²╛▌┐Γ"
  33.    @ 8,55 PROMPT "\<D.┤≥╙í▒¿▒φ╥╗   " MESSAGE "┤≥╙í▒¿▒φ╥╗:╚╦╘▒╥╗└└▒φ"
  34.    @ 9,55 PROMPT "\<E.┤≥╙í▒¿▒φ╢■   " MESSAGE "┤≥╙í▒¿▒φ╢■:╚╦╘▒═│╝╞▒φ"
  35.    @10,55 PROMPT "\<F.┤≥╙í▒¿▒φ╚²   " MESSAGE "┤≥╙í▒¿▒φ╚²:╕÷╚╦┬─└·▒φ"
  36.    @11,55 PROMPT "\<G.═╦│÷         " MESSAGE "═╦│÷▒╛│╠╨≥"
  37.  
  38.    MENU TO SELE    && ╝ñ╗ε▓╦╡Ñ
  39.    DO CASE
  40.       CASE SELE=0 OR SELE=16  && ░┤ [ESC]╝ⁿ
  41.            ANS=yn(" ╩╟╖±═╦│÷▒╛│╠╨≥? ")
  42.            IF ANS=1
  43.               CLEAR WINDOWS win
  44.               CLEAR
  45.               EXIT
  46.            ENDIF
  47.       CASE SELE=1
  48.            DO SHOW WITH SELE
  49.       CASE SELE=2
  50.            DO SHOW WITH SELE
  51.       CASE SELE=3
  52.            DO SHOW WITH SELE
  53.       CASE SELE=4
  54.            DO SHOW WITH SELE
  55.       CASE SELE=1
  56.            DO SHOW WITH SELE
  57.       CASE SELE=5
  58.            DO SHOW WITH SELE
  59.       CASE SELE=6
  60.            DO SHOW WITH SELE
  61.       CASE SELE=7
  62.            DO SHOW WITH SELE
  63.       CASE SELE=8
  64.            DO SHOW WITH SELE
  65.       CASE SELE=9
  66.            DO SHOW WITH SELE
  67.       CASE SELE=10
  68.            DO SHOW WITH SELE
  69.       CASE SELE=11
  70.            DO SHOW WITH SELE
  71.       CASE SELE=12
  72.            DO SHOW WITH SELE
  73.       CASE SELE=13
  74.            DO SHOW WITH SELE
  75.       CASE SELE=14
  76.            DO SHOW WITH SELE
  77.       CASE SELE=15
  78.            DO SHOW WITH SELE
  79.       CASE SELE=16
  80.            DO SHOW WITH SELE
  81.    ENDCASE
  82. ENDDO
  83.  
  84. PROCEDURE SHOW
  85. PARAMETERS MITEM
  86. SET CURSOR OFF
  87. ACTIVATE WINDOW win1
  88. @ 0,4 SAY " ─π╤í╘±╡─╩╟╡┌ "+ALLTRIM(STR(MITEM))+" ╕÷╣ª─▄╤í╧ε"
  89. WAIT "╟δ░┤╚╬╥╗╝ⁿ╝╠╨°" WINDOW
  90. DEACTIVATE WINDOW win1
  91. SET CURSOR ON
  92. RETURN
  93.  
  94. FUNCTION YN
  95. PARAMETERS YNWORD
  96. SET CURSOR OFF
  97. ACTIVATE WINDOW win2
  98. @ 0,2 SAY YNWORD
  99. @ 1, 5 PROMPT "\<1.╩╟"
  100. @ 1,12 PROMPT "\<2.╖±"
  101. MENU TO YNSEL
  102. DEACTIVATE WINDOW win2
  103. SET CURSOR ON
  104. RETURN YNSEL
  105.