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