なるほど、そういうことでしたか。
SORT命令には複数の配列変数を指定して一番最初に指定した配列変数の
内容を元に他の配列変数も並び替える機能があります。
以下のプログラムで望みの動作になりますか?
DIM PT[5],ID[5]
FOR I=0 TO 4
READ PT[I]:ID[I]=I
NEXT
SORT PT,ID
FOR I=0 TO 4
PRINT I+1,PT[I],ID[I]+1
NEXT
DATA 35,73,11,43,51
上下ボタンで選択、Aボタンで決定。
表示位置は適当です。
SEL=0
REPEAT
OSEL=SEL:BT=BUTTON(2)
IF BT AND #UP THEN SEL=SEL-1
IF BT AND #DOWN THEN SEL=SEL+1
IF OSEL!=SEL THEN
LOCATE 5,OSEL*2+5:PRINT " ";
LOCATE 5,SEL*2+5:PRINT "→";
ENDIF
VSYNC
UNTIL BT AND #A