home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / ftp.vapor.com / amirc / submissions / Phoenix1_21.lzx / bin / rexx / map.amirx < prev    next >
Encoding:
Text File  |  1996-10-11  |  228 b   |  12 lines
  1. /**/
  2. options results
  3. call open(f1,'ram:master.map','w')
  4. done=0
  5. 'say /raw map'
  6. do until done=1
  7.     getline
  8.     if line.command='005' then writeln(f1,substr(line.rest,2))
  9.     else if line.command='007' then done=1
  10. end
  11. call close(f1); exit
  12.