home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 4: Phase Four / 17Bit_Phase_Four.iso / files / 3291.dms / 3291.adf / Rexx / export_tex.dfa < prev    next >
Encoding:
Text File  |  1994-08-16  |  1.4 KB  |  69 lines
  1. /* $Revision Header built automatically *************** (do not edit) ************
  2. **
  3. ** © Copyright by Dirk Federlein
  4. **
  5. ** File             : export_tex.dfa
  6. ** Created on       : Monday, 04.04.94 17:10:26
  7. ** Created by       : Dirk Federlein
  8. ** Current revision : V2.0
  9. **
  10. **
  11. ** Purpose
  12. ** -------
  13. **
  14. ** Exports marked addresses to a file that you can use in connection
  15. ** with TeX and its mailmerge function.
  16. **
  17. **
  18. ** Feel free to insert additional fields or remove existing ones
  19. **
  20. **
  21. ** Revision V2.0
  22. ** --------------
  23. ** created on Monday, 04.04.94 17:10:26  by  Dirk Federlein.   LogMessage :
  24. **     --- Initial release ---
  25. **
  26. *********************************************************************************/
  27.  
  28. options results
  29.  
  30. tabchar = '09'X
  31. cr    = '0A'X
  32.  
  33. exportfile = 't:dfa_tex.export'
  34.  
  35. if ~show(ports, DFA) then
  36. do
  37.     exit 10
  38. end
  39.  
  40.  
  41. if open('exfh',exportfile,'W') then
  42. do
  43.     address 'DFA'
  44.  
  45.     FIRST STEM ADR.
  46.  
  47.     if ADR.ADDRESS.24 = 0 then
  48.         NEXTSEL STEM ADR.
  49.  
  50.     do while RC = 0
  51.         writech('exfh', '{')
  52.         writech('exfh', ADR.ADDRESS.0)
  53.         writech('exfh', ('\\ '))
  54.         writech('exfh', ADR.ADDRESS.1||' '||ADR.ADDRESS.2||'\\ ')
  55.         writech('exfh', ADR.ADDRESS.4)
  56.         writech('exfh', ('\\ '))
  57.         writech('exfh', ADR.ADDRESS.5||' '||ADR.ADDRESS.6||', '||ADR.ADDRESS.7||'\\ ')
  58.         writech('exfh', ADR.ADDRESS.8)
  59.         writech('exfh', '}')
  60.         writech('exfh', (cr))
  61.  
  62.         NEXTSEL STEM ADR.
  63.     end
  64.  
  65.     close ('exfh')
  66. end
  67.  
  68. exit
  69.