home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP12_6.PRG < prev    next >
Encoding:
Text File  |  1994-01-17  |  1.3 KB  |  41 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤ 
  2. *⌐ª      Program: EXP12_6.PRG                                          ⌐ª
  3. *⌐ª     Function: ╩╣╙├ MODIFY MEMO ├ⁿ┴ε╝∞╦≈▒╕╫ó╫╓╢╬╓╨╓╕╢¿╡─╫╓╖√┤«      ⌐ª
  4. *⌐ª               ╡─╙ª╙├╖╢└².                                          ⌐ª
  5. *⌐ª   DBF & File: SONG.DBF      SONG.FPT                               ⌐ª
  6. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  7. SET TALK OFF
  8. CLEAR ALL
  9. CLEAR
  10. USE SONG
  11. * ╓╕╢¿╘┌▒╕╫ó╫╓╢╬╓╨╥¬╝∞╦≈╡─╫╓╖√┤«
  12. STORE "╟δ╕·╬╥└┤" TO string
  13. SCAN
  14.     poisition=ATC(string,CONTENT)
  15.     IF poisition = 0
  16.        mMESS="╙┌╡┌ "+STR(RECNO(),2)+" ╠⌡╝╟┬╝╡─▒╕╫ó╫╓╢╬╓╨╒╥"+;
  17.              "▓╗╡╜─π╓╕╢¿╡─╫╓╖√┤«, ╟δ░┤╚╬╥╗╝ⁿ╝╠╨°═∙╧┬╤░╒╥"
  18.        WAIT (mMESS) WINDOW
  19.     ELSE
  20.        offset=poisition+LEN(string)
  21.        pre_scheme=SCHEME(17)
  22.        IF ISCOLOR()
  23.           SET COLOR OF SCHEME 17 TO SCHEME 5
  24.        ELSE
  25.           SET COLOR OF SCHEME 17 TO W+/ ,W/W,N+/N
  26.        ENDIF
  27.        winname=SYS(2015)
  28.        DEFINE WINDOW (winname) FROM 1,1 TO 23,78 " " ;
  29.           SHADOW COLOR SCHEME 17
  30.        SET WINDOW OF MEMO TO (winname)
  31.        MODIFY MEMO content NOEDIT RANGE poisition,offset
  32.        RELEASE WINDOWS (winname)
  33.        SET COLOR OF SCHEME 17 TO (pre_scheme)
  34.     ENDIF
  35. ENDSCAN
  36.  
  37. USE
  38. SET WINDOW OF MEMO TO
  39. SET TALK ON
  40. RETURN
  41.