home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP17_2.PRG < prev    next >
Encoding:
Text File  |  1994-01-12  |  3.0 KB  |  86 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: EXP17_2.PRG                                          ⌐ª
  3. *⌐ª     Function: ╩╣╙├╧╡═│─┌┤µ▒Σ┴┐ _DBLCLIK ▓Γ╩╘╩╣╙├╒▀░┤┴╦╥╗┤╬,        ⌐ª
  4. *⌐ª               ┴¼╨°┴╜┤╬╗≥┴¼╨°╚²┤╬╩≤▒Ω╡─╫≤░┤┼ñ╡─╖╢└².                ⌐ª
  5. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  6. SET TALK OFF
  7. SET ESCAPE OFF
  8.  
  9. DEFINE WINDOW mywin FROM 5,5 TO 21,75 ;
  10.        TITLE " ▓Γ╩╘░┤┴╦╥╗┤╬, ┴¼╨°┴╜┤╬╗≥╚²┤╬╩≤▒Ω╡─╫≤░┤┼ñ " ;
  11.        SHADOW COLOR SCHEME 7
  12. ACTIVATE WINDOW mywin
  13. CLEAR
  14.  
  15. @ WROWS()/2-2,0 SAY PADC(" ╟δ░┤╚╬╥╗╝ⁿ╗≥┴¼╨°┴╜┤╬░┤╩≤▒Ω╡─╫≤░┤┼ñ"+;
  16.        "╥╘┐¬╩╝▓Γ╩╘",WCOLS())
  17. @ WROWS()/2,  0 SAY PADC("░┤╝ⁿ╓╡╙δ╩≤▒Ω╣Γ▒Ω╡─╬╗╓├,"+;
  18.        " ┐╔░┤ [ESC] ╝ⁿ═╦│÷. ",WCOLS())
  19. catch1=0
  20. DO WHILE .T.
  21.    catch1=INKEY(0.05,"HM")
  22.    DO CASE
  23.       CASE catch1=0  && ╬┤░┤╚╬║╬╝ⁿ╗≥╩≤▒Ω╡─╫≤░┤┼ñ
  24.            LOOP
  25.       CASE catch1=27 && ░┤┴╦ [ESC] ╝ⁿ
  26.            EXIT
  27.       CASE catch1=151
  28.            ROW=MROW()
  29.            COL=MCOL()
  30.            timewait=SECONDS()+_DBLCLICK
  31.            catch2=0
  32.            DO WHILE SECONDS() < timewait
  33.               catch2=INKEY("HM")
  34.               IF catch2=151
  35.                  catch3=0
  36.                  DO WHILE SECONDS() < timewait+_DBLCLICK
  37.                     catch3=INKEY("HM")
  38.                     * ░┤╚²┤╬╩≤▒Ω╡─╫≤░┤┼ñ
  39.                     IF catch3=151  AND COL <> -1 AND ROW <> -1
  40.                        CLEAR
  41.                        @ 7,11 SAY "─π╙┌┤░┐┌╓╨╫∙▒Ω (╨╨:"
  42.                          ?? ALLTRIM(STR(ROW))+",┴╨:" ;
  43.                             +ALLTRIM(STR(COL))+") ┴¼╨°░┤╚²┤╬╩≤▒Ω╡─╫≤░┤┼ñ"
  44.                        EXIT
  45.                     ENDIF
  46.                     IF catch3=151  AND (COL = -1 OR ROW = -1)
  47.                        CLEAR
  48.                        @ 7,11 SAY "─π╙┌┤░┐┌═Γ┴¼╨°░┤╚²┤╬╩≤▒Ω╡─╫≤░┤┼ñ"
  49.                        EXIT
  50.                     ENDIF
  51.                  ENDDO
  52.                  * ░┤┴╜┤╬╩≤▒Ω╡─╫≤░┤┼ñ
  53.                  IF catch3=0 AND COL <> -1 AND ROW <> -1
  54.                     CLEAR
  55.                     @ 7,11 SAY "─π╙┌┤░┐┌╓╨╫∙▒Ω (╨╨:"
  56.                       ?? ALLTRIM(STR(ROW))+",┴╨:" ;
  57.                          +ALLTRIM(STR(COL))+") ┴¼╨°░┤┴╜┤╬╩≤▒Ω╡─╫≤░┤┼ñ"
  58.                     EXIT
  59.                  ENDIF
  60.                  IF catch3=0 AND (COL = -1 OR ROW = -1)
  61.                     CLEAR
  62.                     @ 7,17 SAY "─π╙┌┤░┐┌═Γ┴¼╨°░┤┴╜┤╬╩≤▒Ω╡─╫≤░┤┼ñ"
  63.                     EXIT
  64.                  ENDIF
  65.                  EXIT
  66.               ENDIF
  67.            ENDDO
  68.            * ╙┌┤░┐┌╓╨░┤╥╗┤╬╩≤▒Ω╡─╫≤░┤┼ñ
  69.            IF catch2=0 AND COL <> -1 AND ROW <> -1
  70.                 CLEAR
  71.                 @ 7,11 SAY "─π╙┌┤░┐┌╓╨╫∙▒Ω (╨╨:"
  72.                 ?? ALLTRIM(STR(ROW))+",┴╨" ;
  73.                    +ALLTRIM(STR(COL))+") ░┤╥╗┤╬╩≤▒Ω╡─╫≤░┤┼ñ"
  74.                 LOOP
  75.            ENDIF
  76.            * ╙┌┤░┐┌═Γ░┤╥╗┤╬╩≤▒Ω╡─╫≤░┤┼ñ  ñ
  77.            IF catch2=0 AND (COL = -1 OR ROW = -1)
  78.               CLEAR
  79.               @ 7,17 SAY "─π╙┌┤░┐┌═Γ░┤╥╗┤╬╩≤▒Ω╡─╫≤░┤┼ñ"
  80.               LOOP
  81.            ENDIF
  82.    ENDCASE
  83. ENDDO
  84. CLEAR WINDOWS
  85. SET TALK ON
  86.