home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / OB3.2D4.DMS / in.adf / rexx / cF6.oed < prev    next >
Encoding:
Text File  |  1992-10-15  |  330 b   |  32 lines
  1. /* OEd Rexx Command  'Ctrl + F6'
  2.  *
  3.  * comment out marked block
  4.  *
  5.  */
  6.  
  7.  
  8. address 'OEd'
  9.  
  10. options results;
  11. blockbegin;
  12. b=result;
  13. if b>0 then do
  14.   blockend;
  15.   e=result;
  16.   gotoy b;
  17.   first;
  18.   split;
  19.   up;
  20.   bend;
  21.   'write "(*"';
  22.   do while b<=e
  23.     b=b+1;
  24.     down;
  25.     first;
  26.     'write " *"';
  27.   end;
  28.   'return';
  29.   'write "*)"'
  30. end
  31.  
  32.