REM 944BASIC 'MORE識別子入力ヘルパー'

REM らんらんからの呼び出し推奨
REM MOREﾘｽﾄ生成に常駐いんふぉが必要

DIM 配列 TMP を @@@ で初期化
DIM TMP(1,512)
FOR I=0 TO 512
 TMP(0,I)='@@@'
NEXT I

REM 常駐いんふぉのMOREリスト読み込み
LOADCSV 'F0:\__ZAURUS\MPSFLIST.TXT',TMP
REM エラーチェック
IF STRCMP(TMP(0,0),'@@@')=0 THEN MESSAGE 'MPSFLIST.TXTが見つからないか、正常ではありません。'

REM @@@が出てきたら、配列終了
FOR I=0 TO 512
 IF STRCMP(TMP(0,I),'@@@')=0 THEN TOTAL=I: I=512
NEXT I

REM メニュー表示用配列を作成
DIM M(TOTAL)
FOR I=0 TO TOTAL
 M(I)=STR(TMP(1,I)
NEXT I
SORT M,0,TOTAL-1

REM メニュー表示
MENU M,TOTAL,0

REM 選択したﾒﾆｭｰと一致するものを検索
FOR I=0 TO TOTAL
 IF STRCMP(M(MENUNO),TMP(1,I))=0 THEN MORE=MID(TMP(0,I),4,4):I=TOTAL
NEXT I

IF LEN(MORE)<1 THEN MESSAGE 'エラーが発生しました。':END

REM ウィンドウを小さく
SCREEN 24,0,16,16
EVENT 100,999,1

REM APLでランチャにしてしまう手もある
REM 文字列出力
OUTPUT MORE

REM 自分にタッチ後SYNCすると、
REM ENDでうまく終了するようだ。
SETPEN 0,26,2
SYNC
END