double att[0], nl, asp, cw
int et
ulong id
:loop
SET mask, 15
GETENT "Select note to modify...", et, id
IF (@key==-3)
   GOTO end
IF (@key==-2)
   GOTO end
IF (@key==-1)
   GOTO end
GETCUR "Select new position for end of note...", 3, 1, @fltdat[0], @fltdat[1], @fltdat[2]
IF (@key==-3)
   GOTO end
IF (@key==-2)
   GOTO loop
IF (@key==-1)
   GOTO loop
nl=(@xview-@fltdat[0])
IF (nl<=0)
   nl=abs(nl)
cw=(nl/(@numstr-1))
asp=(cw/@txtatt[6])
ARRAY att[9]
att[0]=@txtatt[0]
att[1]=@txtatt[1]
att[2]=@txtatt[2]
att[3]=@txtatt[3]
att[4]=@txtatt[4]
att[5]=@txtatt[5]
att[6]=@txtatt[6]
att[7]=asp
att[8]=@txtatt[8]
DELENT id
NNOTE @fltdat[0], @fltdat[1], @fltdat[2], @strdat, @txtinfo, att, @entatt
GOTO loop
:end
SET mask
CLEAR
CLEARSEL 1
EXIT