home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP17_1.PRG < prev    next >
Encoding:
Text File  |  1994-01-13  |  2.7 KB  |  80 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤ 
  2. *⌐ª      Program: EXP17_1.PRG                                          ⌐ª
  3. *⌐ª     Function: Σ»└└╝⌠▓├░σ╡──┌╚▌╡─╖╢└².                              ⌐ª
  4. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  5. SET TALK OFF
  6.  
  7. STORE 1 TO windtop
  8. STORE _CLIPTEXT TO ctext
  9. * ╜½┤µ╖┼╘┌ _CLIPTEX ╓╨╡─╝⌠▓├░σ─┌╚▌┤ó┤µ╙┌▒Σ┴┐ ctext ╓╨
  10.  
  11. IF LEN(ctext) > 2100
  12.    * ╜½ ctext ╓╨╡─╝⌠▓├░σ─┌╚▌╔Φ╢¿│╔┤░┐┌┐╔╚▌─╔╡─┤≤╨í
  13.    STORE SUBSTR(ctext, 1, 2100) TO ctext
  14. ENDIF
  15. STORE STRTRAN(ctext, CHR(9), SPACE(4), 1) to ctext   && ▓σ╚δ tabs
  16.  
  17. * ╢¿╥σ╥╗╕÷┤░┐┌: framewin ║═Σ»└└╝⌠▓├░σ╡──┌╚▌╡─┤░┐┌: clipboard
  18. DEFINE WINDOW framewin FROM 1,-1 TO 25,80 ;
  19.     TITLE "<< ╝⌠▓├░σ Clipboard >>" CLOSE COLOR SCHEME 8
  20. DEFINE WINDOW clipboard FROM -1,-1 TO 25,80  COLOR SCHEME 5
  21.  
  22. ACTIVATE WINDOW framewin
  23. ACTIVATE WINDOW clipboard IN framewin
  24. * ╘┌┤░┐┌ framewin ╓╨┤≥┐¬ clipboard ┤░┐┌
  25.  
  26. * ╘┌┤░┐┌ clipboard ╓╨╧╘╩╛╝⌠▓├░σ╡──┌╚▌
  27. IF EMPTY(ctext)
  28.     @ 0,0 SAY " ╝⌠▓├░σ (Clipboard) ╓╨├╗╙╨╚╬║╬─┌╚▌, ╩╟┐╒╡─!"
  29. ELSE
  30.     IF AT(chr(13),ctext) = 0   && ├╗╙╨╗╪│╡╖√ (CR)
  31.         @ 0,0 SAY ctext        && ╧╘╩╛╝⌠▓├░σ╡──┌╚▌
  32.     ELSE
  33.         STORE AT(CHR(13), ctext, 1) to crpos1   && ╡┌╥╗╕÷╗╪│╡╖√ (CR)
  34.         @ 0,0 SAY SUBSTR(SUBSTR(ctext, 1, crpos1 - 1), 1, 80)
  35.         FOR lineno = 1 to 24
  36.             STORE AT(CHR(13), ctext, lineno + 1) to crpos2 && ╧┬╥╗╕÷╗╪│╡╖√(CR)
  37.             @ lineno,0 SAY SUBSTR(SUBSTR(ctext, crpos1 + 1, ;
  38.                 (crpos2 - crpos1) - 1),1,80)
  39.             STORE crpos2 to crpos1
  40.         NEXT
  41.     ENDIF
  42. ENDIF
  43. DO WHILE .T.
  44.     keyval = INKEY(20,"MH")
  45.     * ╝α▓Γ╦∙░┤╡─░┤╝ⁿ, ╩≤▒Ω╗≥╡╚┤² 20 ├δ
  46.     IF (keyval = 24 OR keyval = 4) AND BETWEEN(windtop,1,23)
  47.         * ╚⌠░┤╧┬╥╞╝ⁿ╗≥╙╥╥╞╝ⁿ
  48.         MOVE WINDOW clipboard BY -1,0
  49.         * ╝⌠▓├░σ clipboard  ┤░┐┌╔╧╛φ╥╗╨╨
  50.         windtop = windtop + 1
  51.     ENDIF
  52.     IF (keyval = 3) AND BETWEEN(windtop,1,17)
  53.         * ╚⌠░┤ PgDn ╝ⁿ
  54.         MOVE WINDOW clipboard BY -20,0
  55.         * ╝⌠▓├░σ clipboard  ┤░┐┌╔╧╛φ╥╗╥│ (20╨╨)
  56.         windtop = windtop + 20
  57.     ENDIF
  58.     IF (keyval = 5 OR keyval = 19) AND BETWEEN(windtop,2,24)
  59.         * ╚⌠░┤╔╧╥╞╝ⁿ╗≥╫≤╥╞╝ⁿ
  60.         MOVE WINDOW clipboard BY 1,0
  61.         * ╝⌠▓├░σ clipboard  ┤░┐┌╧┬╛φ╥╗╨╨
  62.         windtop = windtop - 1
  63.     ENDIF
  64.     IF (keyval = 18) AND BETWEEN(windtop,8,24)
  65.         * ╚⌠░┤ PgUp ╝ⁿ
  66.         MOVE WINDOW clipboard BY 20,0
  67.         * ╝⌠▓├░σ clipboard  ┤░┐┌╧┬╛φ╥╗╥│ (20╨╨)
  68.         windtop = windtop - 20
  69.     ENDIF
  70.     * ╚τ╣√░┤╧┬╡─▓╗╩╟: ╧┬╥╞╝ⁿ,╔╧╥╞╝ⁿ,╫≤╥╞╝ⁿ,╙╥╥╞╝ⁿ,PgDn ╝ⁿ,PgUp ╝ⁿ
  71.     * ╓╨╓«╥╗╘≥╣╪▒╒┤░┐┌═╦│÷
  72.     IF keyval <> 5 AND keyval <> 19 AND keyval <> 24 AND keyval <> 4 ;
  73.        AND keyval <> 3 AND keyval <> 18
  74.         CLEAR WINDOWS
  75.         SET TALK ON
  76.         EXIT
  77.     ENDIF
  78. ENDDO
  79. RETURN
  80.