home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / database / dfa / rexx / makephonelist.ced < prev   
Encoding:
Text File  |  1995-02-27  |  721 b   |  58 lines
  1. /*    Gets all addresses stored in the running DFA's database and puts
  2.     them in the current file. The parts of the inserted addresses may be
  3.     modified to suit your needs.
  4. */
  5.  
  6. options results
  7.  
  8. address 'rexx_ced'
  9.  
  10. tabchar = '09'X
  11. cr    = '0A'X
  12.  
  13. text cr
  14.  
  15. UP
  16.  
  17. /* Make sure that DFA is running */
  18.  
  19. if ~show(ports, DFA) then
  20. do
  21.     'okay1' 'You should have DFA running, if you' cr 'want to get an address from it!'
  22.      exit 0
  23. end
  24.  
  25.  
  26. address 'DFA' FIRST STEM ADR.
  27.  
  28. do while RC = 0
  29.     text ADR.ADDRESS.2
  30.     "Beg of line"
  31.     do i=1 to 20
  32.         RIGHT
  33.     end
  34.  
  35.     text ' '
  36.  
  37.     "Delete to EOL"
  38.  
  39.     text ADR.ADDRESS.1
  40.  
  41.     "beg of line"
  42.  
  43.     do i=1 to 40
  44.         RIGHT
  45.     end
  46.  
  47.     text ' '
  48.  
  49.     "Delete to EOL"
  50.  
  51.     text ADR.ADDRESS.8
  52.  
  53.     text cr
  54.     address 'DFA' next stem adr.
  55. end
  56.  
  57. exit
  58.