/* RotateTrack.omed */

address OCTAMED_REXX

'op_update off'
'ed_getnumlines var line'
'ed_getcurrtrack var track'
'ed_getcurrline var currline'

'rn_setrange' track line-1 track line-1
'rn_copy range'
'ed_advanceline fkey 6'
'ed_insertemptynote'
'rn_paste range'
'ed_goto line' currline
'op_update on'