home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 10 / Fresh_Fish_10_2352.bin / useful / util / edit / mg / rexx / buffer.mg < prev    next >
Text File  |  1990-06-02  |  423b  |  15 lines
  1. /* Exercise the rexx-buffer command */
  2.  
  3. options failat 2
  4.  
  5. 'rexx-buffer' buffer
  6.  
  7. 'end-of-buffer'
  8. 'rexx-insert "We got' buffer.0 'items\n"'
  9. 'rexx-insert "buffer' buffer.1 'is editing file' buffer.2'.\n"'
  10. 'rexx-insert "with' buffer.3 'lines,' buffer.4 'characters.\n"'
  11. 'rexx-insert "point is on line' buffer.5'"'
  12. if buffer.0 > 5 then 'rexx-insert " and mark on line' buffer.6'.\n"'
  13. else 'rexx-insert " and no mark.\n"'
  14. exit 0
  15.