私はBGが多いですね。
DEF SELECT(L%,X%,Y%,N%,T$)
VAR B%=BUTTON(1)
VAR M%=LEN(T$)
VAR A%
FOR A%=0 TO M%-1
BGで文章表示する奴 L%,X%,Y%+A%,T$[A%]
NEXT
BGPUT L%,X%,Y%+N%,0
IF (B% AND #UP)&&N%>0 THEN
N%=N%-1
ENDIF
IF (B% AND #DOWN)&&N%<M%-1 THEN
N%=N%+1
ENDIF
BGPUT L%,X%,Y%+N%,ASC(">")
RETURN N%
END
みたいな。