home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / REOUTP2.PRG < prev    next >
Encoding:
Text File  |  1994-01-12  |  2.1 KB  |  78 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤ 
  2. *⌐ª      Program: REOUTP2.PRG                                          ⌐ª
  3. *⌐ª     Function: ╩╣╙├╧╡═│─┌┤µ▒Σ┴┐ _TEXT ║═╡═▓π║»╩²╢┴╚í╬─╫╓▓ó╓╪╡╝      ⌐ª
  4. *⌐ª               ╩Σ│÷╡╜▓╗═¼╡─╬─╝■╡─╖╢└²╢■.                            ⌐ª
  5. *⌐ª   DBF & File: CUSTOMER.DBF      STUDENT.DBF                        ⌐ª
  6. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  7. SET TALK OFF
  8. SET SAFETY OFF
  9. *SET SYSMENU OFF
  10. CLOSE ALL
  11. CLEAR
  12.  
  13. SET TEXTMERGE ON NOSHOW
  14. * ┤≥┐¬╬─╫╓╢┴╚í╣ª─▄, ╡½▓╗╩Σ│÷╡╜╞┴─╗
  15. SET TEXTMERGE DELIMITERS TO
  16. * ╔Φ╢¿╩╣╙├╙Φ╢¿╡─╬─╫╓╢┴╚í╖√║┼ <<  >>
  17.  
  18. handle1 = FCREATE("LETTER1.TXT")
  19. * ╜¿┴ó╬─╝■ LETTER1.TXT
  20. handle2 = FCREATE("LETTER2.TXT")
  21. * ╜¿┴ó╬─╝■ LETTER2.TXT
  22.  
  23. IF handle1 < 0 OR handle2 < 0
  24.    @ SROWS()/2,0 SAY PADC("╬▐╖¿╜¿┴ó╦∙╨Φ╡─╬─╝■",SCOLS())
  25.    RETURN
  26. ENDIF
  27.  
  28. STORE handle1 TO _TEXT
  29. * ╜½╬─╝■╢┴╚í├ⁿ┴ε╡─╩Σ│÷╓╪╡╝╓┴╬─╝■┐╪╓╞┬δ handle1 ╡─╬─╝■ ( LETTER1.TXT)
  30. USE CUSTOMER
  31. SCAN
  32.    TEXT
  33.    <<DATE()>>
  34.  
  35.    <<ALLTRIM(PROPER(contact))>>
  36.    <<ALLTRIM(PROPER(company))>>
  37.    <<ALLTRIM(PROPER(address))>>
  38.    <<ALLTRIM(PROPER(city))>>,<<ALLTRIM((state))>> <<ALLTRIM(zip)>>
  39.  
  40.    ╟╫░«╡─ <<ALLTRIM(PROPER(contact))>>,
  41.  
  42.    ╕╨╨╗─·╢α─Ω└┤╓º│╓▒╛╣½╦╛╡─▓·╞╖, ╘┌╬┤└┤╡─╚╒╫╙└∩, ▒╛╣½╦╛╓«╚½╠σ═¼╚╩╩╞╜½╕ⁿ
  43.    ╝╙┼¼┴ª. ═¼╩▒╥α╜½╝ß│╓ "╞╖╓╩╡┌╥╗, ╣╦┐═╓┴╔╧" ╓«╨┼─ε╝╠╨°╬¬─·╖■╬±, ╨└╖Ω╨┬
  44.    ┤║╝╤╜┌, ╠╪╧╫╔╧┤╦╨í└±, ▓╗│╔╛┤╥Γ.
  45.    <<PADL("╜≈┤╦",SCOLS()-16)>>
  46.    <<PADL("╢½╖╜╣½╦╛ ╛┤╔╧",SCOLS()-16)>>
  47.    ENDTEXT
  48. ENDSCAN
  49.  
  50. STORE handle2 TO _TEXT
  51. * ╜½╬─╝■╢┴╚í├ⁿ┴ε╡─╩Σ│÷╓╪╡╝╓┴╬─╝■┐╪╓╞┬δ handle2 ╡─╬─╝■ ( LETTER2.TXT)
  52. USE STUDENT
  53. SCAN FOR CHINESE<60 OR ENGLISH<60
  54.   TEXT
  55.    ▓Θ <<GRADE>> ─Ω <<CLASS>> ░α╤º╔· <<RTRIM(NAME)>> ╘┌╨ú│╔╝¿╟╖╝╤, ┼╬╝╥│ñ─▄
  56.    ╢α╙Φ╕¿╡╝, ╥╘╩╣╞Σ─▄╖ó╖▄═╝╟┐, ╙¡═╖╫╖╔╧.
  57.  
  58.    <<PADL("╜╠╩ª:═⌡┤≤─Ω",SCOLS()-20)>>
  59.    <<PADL("╚╒╞┌:"+DTOC(DATE()),SCOLS()-20)>>
  60.  
  61.   ENDTEXT
  62. ENDSCAN
  63.  
  64. *╣╪▒╒╬─╝■
  65. =FCLOSE(handle1)
  66. =FCLOSE(handle2)
  67. USE
  68. USE SYS
  69. APPEND MEMO sysmem FROM LETTER1.TXT OVERWRITE
  70. APPEND MEMO secmem FROM LETTER2.TXT OVERWRITE
  71. DEFINE WINDOW mywin FROM 1,0 TO 24,79 COLOR SCHEME 5
  72. MODIFY MEMO sysmem,secmem NOEDIT WINDOW mywin
  73.  
  74. *╧╡═│╫┤╠¼╕┤╘¡
  75. SET TALK ON
  76. SET SAFETY ON
  77. RETURN
  78.