home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 4: Phase Four / 17Bit_Phase_Four.iso / files / 3291.dms / 3291.adf / Rexx / TeXAddressList.dfa < prev   
Encoding:
Text File  |  1994-08-16  |  3.0 KB  |  114 lines
  1. /* $Revision Header built automatically *************** (do not edit) ************
  2. **
  3. ** © Copyright by Dirk Federlein
  4. **
  5. ** File             : TeXAddressList.dfa
  6. ** Created on       : Monday, 04.04.94 18:53:56
  7. ** Created by       : Dirk Federlein
  8. ** Current revision : V2.0
  9. **
  10. **
  11. ** Purpose
  12. ** -------
  13. **   - Puts all addresses of a running DFA application into a file.
  14. **     The formatting is done in LaTeX style, so you need TeX
  15. **     (e.g. PasTex, (c) Georg Hessmann) to print them. The 
  16. **     addresses will be printed using a very small font size, so
  17. **     a lot of addresses will fit on one page.
  18. **
  19. ** Revision V2.0
  20. ** --------------
  21. ** created on Monday, 04.04.94 18:53:56  by  Dirk Federlein.   LogMessage :
  22. **     --- Initial release ---
  23. **
  24. *********************************************************************************/
  25.  
  26. tabchar = '09'X
  27. cr    = '0A'X
  28.  
  29. TEXFILENAME        = "ram:AddressList.tex"
  30.  
  31.  
  32. pagelines = 0
  33.  
  34. options results
  35.  
  36. if open('exfh', TEXFILENAME ,'W') then
  37. do
  38.     numchars=writech('exfh', '\documentstyle[german,A4] {report}')
  39.     numchars=writech('exfh', (cr))
  40.     numchars=writech('exfh', '\begin{document}')
  41.     numchars=writech('exfh', (cr))
  42.     numchars=writech('exfh', '\noindent')
  43.     numchars=writech('exfh', (cr))
  44.     numchars=writech('exfh', '\begin{flushleft}')
  45.     numchars=writech('exfh', (cr))
  46.     numchars=writech('exfh', '\tiny\begin{tabular}[b] {|l|l|l|l|}')
  47.     numchars=writech('exfh', (cr))
  48.     numchars=writech('exfh', '\hline')
  49.     numchars=writech('exfh', (cr))
  50.     numchars=writech('exfh', 'Name&Phone Number&ZIP/PC City\\ \hline \hline')
  51.     numchars=writech('exfh', (cr))
  52.  
  53.     address "DFA"
  54.  
  55.     cr = '0A'X
  56.  
  57.     FIRST STEM ADR.
  58.  
  59.     do while RC = 0
  60.         numchars=writech('exfh', left(ADR.ADDRESS.1,20, ''))
  61.         numchars=writech('exfh', ' ')
  62.         numchars=writech('exfh', left(ADR.ADDRESS.2,20,''))
  63.         numchars=writech('exfh', '&')
  64.         numchars=writech('exfh', ADR.ADDRESS.10)
  65.         numchars=writech('exfh', '&')
  66.         numchars=writech('exfh', ADR.ADDRESS.5)
  67.         numchars=writech('exfh', ' ')
  68.         numchars=writech('exfh', left(ADR.ADDRESS.6,20,''))
  69.         numchars=writech('exfh', '\\ \hline')
  70.         numchars=writech('exfh', (cr))
  71.  
  72.         pagelines = pagelines + 1
  73.  
  74.         if pagelines > 95 then
  75.         do
  76.             numchars=writech('exfh', '\end{tabular}')
  77.             numchars=writech('exfh', (cr))
  78.             numchars=writech('exfh', '\end{flushleft}')
  79.             numchars=writech('exfh', (cr))
  80.             numchars=writech('exfh', '\newpage')
  81.  
  82.             numchars=writech('exfh', '\begin{flushleft}')
  83.             numchars=writech('exfh', (cr))
  84.             numchars=writech('exfh', '\tiny\begin{tabular}[b] {|l|l|l|l|}')
  85.             numchars=writech('exfh', (cr))
  86.             numchars=writech('exfh', '\hline')
  87.             numchars=writech('exfh', (cr))
  88.             numchars=writech('exfh', 'Name&Phone Number&ZIP/PC City\\ \hline \hline')
  89.             numchars=writech('exfh', (cr))
  90.  
  91.             pagelines = 0
  92.  
  93.         end
  94.  
  95.         next stem adr.
  96.  
  97.     end
  98.  
  99.     numchars=writech('exfh', '\end{tabular}')
  100.     numchars=writech('exfh', (cr))
  101.     numchars=writech('exfh', '\end{flushleft}')
  102.     numchars=writech('exfh', (cr))
  103.     numchars=writech('exfh', '\end{document}')
  104.     numchars=writech('exfh', (cr))
  105.     numchars=writech('exfh', '\end')
  106.     numchars=writech('exfh', (cr))
  107. end
  108.  
  109. exit
  110.  
  111.  
  112.  
  113.  
  114.