home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 10 / Fresh_Fish_10_2352.bin / useful / util / edit / mg / rexx / buffers.mg < prev    next >
Text File  |  1990-06-02  |  249b  |  13 lines
  1. /* Exercise the rexx-buffer-list command */
  2.  
  3. options failat 2
  4.  
  5. 'rexx-buffer-list' buffers
  6.  
  7. 'rexx-insert "We got' buffers.0 'buffers\n"'
  8.  
  9. do i = 1 to buffers.0
  10.     'rexx-insert "' buffers.i.name 'file:' buffers.i.file buffers.i.status '\n"'
  11.     end
  12. exit 0
  13.