home *** CD-ROM | disk | FTP | other *** search
- *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
- *⌐ª Program: REOUTP2.PRG ⌐ª
- *⌐ª Function: ╩╣╙├╧╡═│─┌┤µ▒Σ┴┐ _TEXT ║═╡═▓π║»╩²╢┴╚í╬─╫╓▓ó╓╪╡╝ ⌐ª
- *⌐ª ╩Σ│÷╡╜▓╗═¼╡─╬─╝■╡─╖╢└²╢■. ⌐ª
- *⌐ª DBF & File: CUSTOMER.DBF STUDENT.DBF ⌐ª
- *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
- SET TALK OFF
- SET SAFETY OFF
- *SET SYSMENU OFF
- CLOSE ALL
- CLEAR
-
- SET TEXTMERGE ON NOSHOW
- * ┤≥┐¬╬─╫╓╢┴╚í╣ª─▄, ╡½▓╗╩Σ│÷╡╜╞┴─╗
- SET TEXTMERGE DELIMITERS TO
- * ╔Φ╢¿╩╣╙├╙Φ╢¿╡─╬─╫╓╢┴╚í╖√║┼ << >>
-
- handle1 = FCREATE("LETTER1.TXT")
- * ╜¿┴ó╬─╝■ LETTER1.TXT
- handle2 = FCREATE("LETTER2.TXT")
- * ╜¿┴ó╬─╝■ LETTER2.TXT
-
- IF handle1 < 0 OR handle2 < 0
- @ SROWS()/2,0 SAY PADC("╬▐╖¿╜¿┴ó╦∙╨Φ╡─╬─╝■",SCOLS())
- RETURN
- ENDIF
-
- STORE handle1 TO _TEXT
- * ╜½╬─╝■╢┴╚í├ⁿ┴ε╡─╩Σ│÷╓╪╡╝╓┴╬─╝■┐╪╓╞┬δ handle1 ╡─╬─╝■ ( LETTER1.TXT)
- USE CUSTOMER
- SCAN
- TEXT
- <<DATE()>>
-
- <<ALLTRIM(PROPER(contact))>>
- <<ALLTRIM(PROPER(company))>>
- <<ALLTRIM(PROPER(address))>>
- <<ALLTRIM(PROPER(city))>>,<<ALLTRIM((state))>> <<ALLTRIM(zip)>>
-
- ╟╫░«╡─ <<ALLTRIM(PROPER(contact))>>,
-
- ╕╨╨╗─·╢α─Ω└┤╓º│╓▒╛╣½╦╛╡─▓·╞╖, ╘┌╬┤└┤╡─╚╒╫╙└∩, ▒╛╣½╦╛╓«╚½╠σ═¼╚╩╩╞╜½╕ⁿ
- ╝╙┼¼┴ª. ═¼╩▒╥α╜½╝ß│╓ "╞╖╓╩╡┌╥╗, ╣╦┐═╓┴╔╧" ╓«╨┼─ε╝╠╨°╬¬─·╖■╬±, ╨└╖Ω╨┬
- ┤║╝╤╜┌, ╠╪╧╫╔╧┤╦╨í└±, ▓╗│╔╛┤╥Γ.
- <<PADL("╜≈┤╦",SCOLS()-16)>>
- <<PADL("╢½╖╜╣½╦╛ ╛┤╔╧",SCOLS()-16)>>
- ENDTEXT
- ENDSCAN
-
- STORE handle2 TO _TEXT
- * ╜½╬─╝■╢┴╚í├ⁿ┴ε╡─╩Σ│÷╓╪╡╝╓┴╬─╝■┐╪╓╞┬δ handle2 ╡─╬─╝■ ( LETTER2.TXT)
- USE STUDENT
- SCAN FOR CHINESE<60 OR ENGLISH<60
- TEXT
- ▓Θ <<GRADE>> ─Ω <<CLASS>> ░α╤º╔· <<RTRIM(NAME)>> ╘┌╨ú│╔╝¿╟╖╝╤, ┼╬╝╥│ñ─▄
- ╢α╙Φ╕¿╡╝, ╥╘╩╣╞Σ─▄╖ó╖▄═╝╟┐, ╙¡═╖╫╖╔╧.
-
- <<PADL("╜╠╩ª:═⌡┤≤─Ω",SCOLS()-20)>>
- <<PADL("╚╒╞┌:"+DTOC(DATE()),SCOLS()-20)>>
-
- ENDTEXT
- ENDSCAN
-
- *╣╪▒╒╬─╝■
- =FCLOSE(handle1)
- =FCLOSE(handle2)
- USE
- USE SYS
- APPEND MEMO sysmem FROM LETTER1.TXT OVERWRITE
- APPEND MEMO secmem FROM LETTER2.TXT OVERWRITE
- DEFINE WINDOW mywin FROM 1,0 TO 24,79 COLOR SCHEME 5
- MODIFY MEMO sysmem,secmem NOEDIT WINDOW mywin
-
- *╧╡═│╫┤╠¼╕┤╘¡
- SET TALK ON
- SET SAFETY ON
- RETURN