home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 9 / amigaformatcd09.iso / coverdisks / octamed6 / octamed2.dms / octamed2.adf / Extras / Rexx / RotateTrack.omed < prev   
Encoding:
Text File  |  1978-01-13  |  304 b   |  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.