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