home *** CD-ROM | disk | FTP | other *** search
/ Merciful 3 / Merciful_Release_3.bin / software / o / octamed / octamedv6.12.lha / rexx / RotateTrack.omed < prev   
Text File  |  1995-03-29  |  304b  |  17 lines
  1. /* RotateTrack.omed */
  2.  
  3. address OCTAMED_REXX
  4.  
  5. 'op_update off'
  6. 'ed_getnumlines var line'
  7. 'ed_getcurrtrack var track'
  8. 'ed_getcurrline var currline'
  9.  
  10. 'rn_setrange' track line-1 track line-1
  11. 'rn_copy range'
  12. 'ed_advanceline fkey 6'
  13. 'ed_insertemptynote'
  14. 'rn_paste range'
  15. 'ed_goto line' currline
  16. 'op_update on'
  17.