REM 944BASIC '9B REFERENCE'

REM 9B リファレンスのPDIC版を検索

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

LOADTEXT 'F1:\944BASIC\KALN9BR0.TXT',TMP
REM エラーチェック
IF STRCMP(TMP(0),'@@@')=0 THEN MESSAGE 'COMMAND.TXTが見つからないか、正常ではありません。'

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

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

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

IF LEN(M(MENUNO))<1 THEN MESSAGE 'エラーが発生しました。':END
 ST=LEFT(M(MENUNO),2)
 IF STRCMP(ST,'==')=0 THEN GOTO *DISPMENU

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

REM 文字列出力
OUTPUT M(MENUNO)
APL 'WOBP'

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