home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / database / dfa / rexx / export_dfa.dfa < prev    next >
Encoding:
Text File  |  1995-02-27  |  1.9 KB  |  86 lines
  1. /************************************************************************
  2.  *
  3.  * export_dfa.dfa                by Dirk Federlein 1993
  4.  *
  5.  * Exports marked addresses to another DFA address file
  6.  * Notice that this new file WILL be compatible to the DFA V1.1
  7.  * (and 1.2) format and can be loaded as usual using the "Load"
  8.  * Menu item of DFA.
  9.  *
  10.  * This script was done, because it is not possible, to save part
  11.  * of the stored addresses to another file directly out of DFA up to now.
  12.  *
  13.  *
  14.  ************************************************************************/
  15.  
  16. options results
  17.  
  18. tabchar = '09'X
  19. cr    = '0A'X
  20.  
  21. exportfile = 't:dfa_dfa.export'
  22.  
  23. if ~show(ports, DFA) then
  24. do
  25.     exit 0
  26. end
  27.  
  28.  
  29. if open('exfh',exportfile,'W') then
  30. do
  31.     address 'DFA'
  32.  
  33.     /* Write Templates */
  34.  
  35.     writech('exfh', 'DFAddress1.1')
  36.     writeln('exfh', '')
  37.     writeln('exfh', '')
  38.     writeln('exfh', '')
  39.     writeln('exfh', '')
  40.     writeln('exfh', '')
  41.     writeln('exfh', '')
  42.     writeln('exfh', '')
  43.     writeln('exfh', '')
  44.     writeln('exfh', '')
  45.     writeln('exfh', '')
  46.     writeln('exfh', '')
  47.     writeln('exfh', '')
  48.     writeln('exfh', '')
  49.     writeln('exfh', '0')
  50.     writeln('exfh', '')
  51.     writeln('exfh', '')
  52.  
  53.     FIRST STEM ADR.
  54.  
  55.     if ADR.ADDRESS.14 = 0 then
  56.         NEXTSEL STEM ADR.
  57.  
  58.     do while RC = 0
  59.  
  60.     /* Notice that the logical and the physical order differs */
  61.     /* because up compatibility to former versions of DFA     */
  62.  
  63.         writeln('exfh', ADR.ADDRESS.1)
  64.         writeln('exfh', ADR.ADDRESS.2)
  65.         writeln('exfh', ADR.ADDRESS.3)
  66.         writeln('exfh', ADR.ADDRESS.4)
  67.         writeln('exfh', ADR.ADDRESS.5)
  68.         writeln('exfh', ADR.ADDRESS.6)
  69.         writeln('exfh', ADR.ADDRESS.7)
  70.         writeln('exfh', ADR.ADDRESS.8)
  71.         writeln('exfh', ADR.ADDRESS.9)
  72.         writeln('exfh', ADR.ADDRESS.10)
  73.         writeln('exfh', ADR.ADDRESS.11)
  74.         writeln('exfh', ADR.ADDRESS.13)
  75.         writeln('exfh', ADR.ADDRESS.14)
  76.         writeln('exfh', ADR.ADDRESS.0)
  77.         writeln('exfh', ADR.ADDRESS.12)
  78.  
  79.         NEXTSEL STEM ADR.
  80.     end
  81.  
  82.     close ('exfh')
  83. end
  84.  
  85. exit
  86.