home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 93 / af093a.adf / archives / af2.lzx / Extras / Rexx / RotateTrack.omed < prev   
Text File  |  1984-03-11  |  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.