home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP5_16.PRG < prev    next >
Encoding:
Text File  |  1994-01-10  |  3.6 KB  |  91 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: EXP5_16.PRG                                          ⌐ª
  3. *⌐ª     Function: ▓╦╡Ñ╤í╧ε╢α┤╬╤í╘±╡─╖╢└²                               ⌐ª
  4. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  5. SET TALK OFF
  6. SET ESCAPE ON
  7. CLEAR ALL
  8. CLEAR
  9.  
  10. * ░┤ [ESC] ╝ⁿ, ╜½╓┤╨╨ EXP5_16.PRG ╓╨╡─ STOP ╫╙│╠╨≥
  11. ON KEY LABEL ESC DO stop IN EXP5_16
  12.  
  13. * ╢¿╥σ┐╔╢α┤╬╤í╘±╤í╧ε╡─▓╦╡Ñ pop1
  14. DEFINE POPUP pop1 FROM 1,1 ;
  15.        MARGIN   MULTI  SCROLL ;
  16.        SHADOW   TITLE "<< ┐¿└¡OK ╕Φ╟·┐Γ >>" ;
  17.        COLOR  SCHEME 9
  18. DEFINE BAR  1  OF pop1 PROMPT "\<1.╥╗╬▐╦∙╙╨    " MARK CHR(251)
  19. DEFINE BAR  2  OF pop1 PROMPT "\<2.╛╞╔±╟·      " MARK CHR(251)
  20. DEFINE BAR  3  OF pop1 PROMPT "\<3.╡▀╜╬╕Φ      " MARK CHR(251)
  21. DEFINE BAR  4  OF pop1 PROMPT "\<4.╗╞═┴╕▀╘¡    " MARK CHR(251)
  22. DEFINE BAR  5  OF pop1 PROMPT "\<5.╬╥╚╚┴╡╡─╣╩╧τ" MARK CHR(251)
  23. DEFINE BAR  6  OF pop1 PROMPT "\<6.╨┼╠∞╙╬      " MARK CHR(251)
  24. DEFINE BAR  7  OF pop1 PROMPT "\<7.└Θ░╩╟╜╡─╙░╫╙" MARK CHR(251)
  25. DEFINE BAR  8  OF pop1 PROMPT "\<8.▓╗─▄╒Γ╤∙╗ε  " MARK CHR(251)
  26. DEFINE BAR  9  OF pop1 PROMPT "\<9.▒α╗¿└║      " MARK CHR(251)
  27. DEFINE BAR 10  OF pop1 PROMPT "\<A.╟δ╕·╬╥└┤    " MARK CHR(251)
  28. DEFINE BAR 11  OF pop1 PROMPT "\<B.╔┬▒▒1988    " MARK CHR(251)
  29. DEFINE BAR 12  OF pop1 PROMPT "\<C.╥╗╤∙╡─╘┬┴┴  " MARK CHR(251)
  30. DEFINE BAR 13  OF pop1 PROMPT "\<D.╤π─╧╖╔      " MARK CHR(251)
  31. DEFINE BAR 14  OF pop1 PROMPT "\<E.╚▐╗¿        " MARK CHR(251)
  32. DEFINE BAR 15  OF pop1 PROMPT "\<F.├⌐▓▌╡╪      " MARK CHR(251)
  33. DEFINE BAR 16  OF pop1 PROMPT "\<G.┼«╢∙╕Φ      " MARK CHR(251)
  34. DEFINE BAR 17  OF pop1 PROMPT "\<H.┐α└Θ░╩      " MARK CHR(251)
  35. DEFINE BAR 18  OF pop1 PROMPT "\<I.─╟╕∙╠┘▓°╩≈  " MARK CHR(251)
  36. DEFINE BAR 19  OF pop1 PROMPT "\<J.├╬╧τ        " MARK CHR(251)
  37. DEFINE BAR 20  OF pop1 PROMPT "\<K.├ⁿ╘╦▓╗╩╟ΩñΘ±" MARK CHR(251)
  38. DEFINE BAR 21  OF pop1 PROMPT "\<L.╘┌╦«╥╗╖╜    " MARK CHR(251)
  39. DEFINE BAR 22  OF pop1 PROMPT "\<M.╨í│╟╣╩╩┬    " MARK CHR(251)
  40. DEFINE BAR 23  OF pop1 PROMPT "\<N.║╬╚╒╛²╘┘└┤  " MARK CHR(251)
  41. DEFINE BAR 24  OF pop1 PROMPT "\<O.╨ª║∞│╛      " MARK CHR(251)
  42. DEFINE BAR 25  OF pop1 PROMPT "\<P.╝╕╢╚╧ª╤⌠║∞  " MARK CHR(251)
  43. DEFINE BAR 26  OF pop1 PROMPT "\<Q.Σ∞╚≈╫▀╥╗╗╪  " MARK CHR(251)
  44. DEFINE BAR 27  OF pop1 PROMPT "\<R.╬▐╤╘╡─╜ß╛╓  " MARK CHR(251)
  45. DEFINE BAR 28  OF pop1 PROMPT "\<S.╘┬┴┴┤·▒φ╬╥╡─╨─ " MARK CHR(251)
  46. DEFINE BAR 29  OF pop1 PROMPT "\<T.╬╟▒≡        " MARK CHR(251)
  47. DEFINE BAR 30  OF pop1 PROMPT "\<U.╒µ╨─╒µ╥Γ╣²╥╗╔· " MARK CHR(251)
  48. DEFINE BAR 31  OF pop1 PROMPT "\<V.═Γ╞┼╡─┼∞║■═σ" MARK CHR(251)
  49. DEFINE BAR 32  OF pop1 PROMPT "\<W.╛╞φ╖╠╚┬⌠╬▐  " MARK CHR(251)
  50. DEFINE BAR 33  OF pop1 PROMPT "\<X.┴·╡─┤½╚╦    " MARK CHR(251)
  51. DEFINE BAR 34  OF pop1 PROMPT "\<Y.╚├╬╥╧▓╗╢╚├╬╥╙╟  " MARK CHR(251)
  52. DEFINE BAR 35  OF pop1 PROMPT "\<Z.╡╜╡╫╙╨╦¡─▄╕µ╦▀╬╥" MARK CHR(251)
  53. ON SELECTION POPUP pop1 DO subroute
  54. ACTIVATE POPUP pop1
  55.  
  56. PROCEDURE subroute
  57. DEFINE WINDOW mwin1 from 1,28 TO 24,79;
  58.        DOUBLE TITLE " ╨┼╧ó┤░┐┌ " ;
  59.        FOOTER " ░┤ [Esc] ╝ⁿ╥╘═╦│÷ ";
  60.        SHADOW  COLOR SCHEME 5
  61. SET CURSOR OFF
  62. ACTIVATE WINDOW mwin1
  63. @ 1,0 SAY " ─·╤í╘±╡─╕Φ╟·: "
  64. FOR X=1 TO CNTBAR("pop1")
  65.    IF MRKBAR("pop1",X)=.T.
  66.       ? PRMBAR("pop1",X) AT 14
  67.    ENDIF
  68. ENDFOR
  69. SET CURSOR ON
  70. RETURN
  71.  
  72. PROCEDURE stop
  73. DEFINE WINDOW mwin2 ;
  74.        FROM 22,20 TO 24,60 ;
  75.        SHADOW ;
  76.        COLOR SCHEME 7
  77.  
  78. ACTIVATE WINDOW mwin2
  79. @ 0,6 SAY " ─·╩╟╖±╫╝▒╕═╦│÷? (Y/N) " GET ans PICTURE "Y" DEFAULT "N"
  80. READ
  81. IF ans="N"
  82.    DEACTIVATE WINDOW mwin2
  83.    RETRY
  84. ELSE
  85.    ON KEY
  86.    DEACTIVATE WINDOW mwin2
  87.    RELEASE WINDOWS mwin1,mwin2
  88.    CANCEL
  89. ENDIF
  90. RETURN
  91.