DIALOG を使ったセレクタのテスト

たとえば、FEP的なものを作ろうと思ったとき、漢字の確認をするには DIALOG で表示するしかない。なので、DIALOG で配列の要素を選択するということを試してみた。
DIALOGを表示している間は特殊モードでボタン操作するしかなく、DIALOGを連続して表示するしかない。なので、こんな感じのものを考えてみた。
DIM A$[5] @D DATA "AAA","BBB","CCC","DDD","EEE" COPY A$,"@D" ' VAR I I=SELECT(A$) IF I==-1 THEN PRINT "CANCELED" ELSE PRINT I,A$[I] ENDIF ' DEF SELECT _A$ OUT _I VAR _R, _V$, _F=0 VAR _L=LEN(_A$) VAR _T$="A:NEXT B:BACK Y:SELECT X:CANCEL" _I=0 WHILE _F==0 _R=DIALOG(_A$[_I],-1,_T$,0) ' A button IF _R==128 THEN INC _I IF _I>=_L THEN _I=0 ENDIF ' B button IF _R==129 THEN DEC _I IF _I<0 THEN _I=_L-1 ENDIF ' X button IF _R==130 THEN _F=1:_I=-1 ' Y button IF _R==131 THEN _F=1 WEND END
ここでは現在の要素しか表示していないが、前後の要素を一緒に表示したりしてもよいと思う。いずれにせよ文字しか使えない。DIALOG の上にグラフィックを重ねられれば別の表現もできるのだが……。
他のSLOTでの入力時に直接呼び出すのは難しいけど、一旦 DIRECT モードに抜ける形でかな漢字変換プログラムを呼び、変換結果を KEY 命令でファンクションキーに入れれば他のプログラムに挿入できる。