とりあえずコマンドを選ぶの部分を解説します。
まず、一番簡単なのはLINPUT
ただ、これだとドラクエやFFらしくないので、もうちょっと真面目にやろうとするなら(INPUTも充分真面目ですが)
VAR Y 'Y座標
VAR N=5 '選択肢の数
REPEAT
WAIT 1
CLS
(コマンド一覧表示)
IF (BUTTON(2)AND 1)==1 THEN
Y=(Y+N-1)MOD N
ENDIF
IF (BUTTON(2)AND 2)==2 THEN
Y=(Y+N+1)MOD N
ENDIF
LOCATE X,Y
PRINT "→";
UNTIL (BUTTON(2)AND 16)==16
こんな感じです。