home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP4_2.PRG < prev    next >
Encoding:
Text File  |  1994-01-10  |  1.0 KB  |  37 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: EXP4_2.PRG                                           ⌐ª
  3. *⌐ª     Function: ┤░┐┌╥╞╢»╖╢└².                                        ⌐ª
  4. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  5. SET TALK OFF
  6. SET CURSOR OFF
  7. SET ESCAPE OFF
  8. CLEAR
  9.  
  10. * ╙├WEXIST()║»╩²╝∞▓Θ┤░┐┌ win ╩╟╖±┤µ╘┌, ╚τ╣√┤µ╘┌╘≥▓╗╓╪╨┬╢¿╥σ.
  11. IF !WEXIST("win")
  12.    DEFINE WINDOW win FROM 0,0 TO 5,20 DOUBLE;
  13.     FOOTER " 1993-9-10" TITLE " ╗ε╢»┤░┐┌ " SHADOW COLOR SCHEME 7
  14. ENDIF
  15. CLEAR
  16. ACTIVATE WINDOW win
  17. WAIT " ░┤╚╬╥╗╝ⁿ┐¬╩╝╥╞╢»┤░┐┌ " WINDOW
  18. FOR I=1 TO 19
  19.     FOR J=1 TO 59
  20.         MOVE WINDOW win TO I,J
  21.         mykey=INKEY(0.1,"H")
  22.         * INKEY()=27 ╩╟[ESC]╝ⁿ╓╡.
  23.         IF mykey=27
  24.            STORE 19 TO I
  25.         ENDIF
  26.     ENDFOR
  27. ENDFOR
  28. WAIT " ░┤╚╬╥╗╝ⁿ╜½┤░┐┌╥╞╡╜╞┴─╗╫≤╔╧╜╟ " WINDOW
  29. FOR I=1 TO 19
  30.     MOVE WINDOW win BY -1,-3
  31. ENDFOR
  32. WAIT " ░┤╚╬╥╗╝ⁿ╟σ│²┤░┐┌ " WINDOW
  33. DEACTIVATE WINDOW win
  34. RELEASE WINDOWS win
  35. SET CURSOR ON
  36. SET ESCAPE ON
  37.