home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / REOUTP1.PRG < prev    next >
Encoding:
Text File  |  1994-01-12  |  1.6 KB  |  67 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: REOUTP1.PRG                                          ⌐ª
  3. *⌐ª     Function: ╩╣╙├╧╡═│─┌┤µ▒Σ┴┐ _TEXT ║═╡═▓π║»╩²╢┴╚í╬─╫╓▓ó╓╪╡╝      ⌐ª
  4. *⌐ª               ╩Σ│÷╡╜▓╗═¼╡─╬─╝■╡─╖╢└².                              ⌐ª
  5. *⌐ª   DBF & File: SONG.DBF    DONG.FPT                                 ⌐ª
  6. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  7. SET TALK OFF
  8. SET SAFETY OFF
  9. CLEAR
  10.  
  11. DEFINE WINDOW WIN16_7  FROM 4,10 TO 20, 70 FLOAT GROW COLOR SCHEME 7
  12. SET TEXTMERGE ON NOSHOW
  13. * ┤≥┐¬╬─╫╓╢┴╚í╣ª─▄, ╡½▓╗╩Σ│÷╡╜╞┴─╗
  14. SET TEXTMERGE DELIMITERS TO
  15. * ╔Φ╢¿╩╣╙├╙Φ╢¿╡─╬─╫╓╢┴╚í╖√║┼ <<  >>
  16.  
  17. SET TEXTMERGE TO test1.txt
  18. * ╜¿┴ó▓ó╜½╩Σ│÷┤½╡╜ test1.txt
  19. STORE _TEXT TO handle1
  20. * ┤ó┤µ test1.txt ╡─┐╪╓╞┬δ╙┌ handle1
  21. STORE -1 TO _TEXT
  22. * ═ú╓╣╜½╬─╫╓╢┴╚í╡─╩Σ│÷┤½╡╜ test1.txt, ╡½▓╗╣╪▒╒ text1.txt
  23.  
  24. SET TEXTMERGE TO test2.txt
  25. * ╜¿┴ó▓ó╜½╩Σ│÷┤½╡╜ test2.txt
  26. STORE _TEXT TO handle2
  27. * ┤ó┤µ test2.txt ╡─┐╪╓╞┬δ╙┌ handle2
  28.  
  29. USE SONG
  30. * ╜½╥╘╧┬╬─╫╓╢┴╚í╡─╩Σ│÷┤½╡╜ test2.txt
  31.  
  32. \ ╕Φ┤╩╡──┌╚▌╩╟:
  33.  
  34. STORE handle1 TO _TEXT
  35. * ╜½╥╘╧┬╬─╫╓╢┴╚í╡─╩Σ│÷┤½╡╜ test1.txt
  36.  
  37. \ ╕Φ╩╓╡─╨╒├√╩╟:
  38.  
  39. STORE handle2 TO _TEXT
  40. * ╧╓╘┌╓╪╡╝╩Σ│÷╡╜ test2.txt
  41.  
  42. * CONTENT ╬¬ SONG.DBF ╓╨╡─╫╓╢╬
  43. \<<CONTENT>>
  44.  
  45. STORE handle1 TO _TEXT
  46. * ╧╓╘┌╓╪╡╝╩Σ│÷╡╜ test1.txt
  47.  
  48. * SINGER ╬¬ SONG.DBF ╓╨╡─╫╓╢╬
  49. \\ <<SINGER>>
  50.  
  51. CLOSE ALL
  52. * ╣╪▒╒╦∙╙╨╡─╬─╝■
  53.  
  54. ACTIVATE WINDOW WIN16_7
  55. TYPE test1.txt
  56. ?
  57. WAIT " ░┤╚╬╥╗╝ⁿ╝╠╨° " WINDOW  TIMEOUT 20
  58.  
  59. TYPE test2.txt
  60. WAIT " ░┤╚╬╥╗╝ⁿ╝╠╨° " WINDOW  TIMEOUT 20
  61.  
  62. DEACTIVATE WINDOW WIN16_7
  63. * ╧╡═│╫┤╠¼╕┤╘¡
  64. SET TALK ON
  65. SET SAFETY ON
  66. RETURN
  67.