REM 944BASIC '定型文入力サンプル(多段メニュー)' REM らんらんからの呼び出し推奨 REM 定型文 - LOADTEXTでファイルから REM 読み込んだ方がいいが、サンプルな REM のでさくっと。 DIM TEIKEI(3)='お世話になっております。','お疲れさまです。','折り返し、ご連絡ください。','以上、よろしくお願いいたします' REM メニュー DIM M(4)='日付入力(YYYY/MM/DD)','定型文入力','MORE識別子入力','9Bコマンド入力','9Bコマンド検索' MENU M,5,0 IFBLK MENUNO=0 REM 日付をYYYY/MM/DDに加工 D=DATE D=STR(D) YYYY=LEFT(D,4) MM=MID(D,5,2) DD=RIGHT(D,2) OUT=STRCAT(YYYY,'/',MM,'/',DD) ELSEIF MENUNO=1 REM 定型文メニュー MENU TEIKEI,4,0 OUT=STR(TEIKEI(MENUNO)) ELSEIF MENUNO=2 REM MORE識別子入力ヘルパーを実行 RUN 'KALUMNM0.BAS' ELSEIF MENUNO=4 REM 9B REFERENCEを実行 RUN 'KALN9BR0.BAS' ELSEIF MENUNO=3 REM 9Bコマンド 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 'KALN9BR0.TXTが見つからないか、正常ではありません。' REM @@@が出てきたら、配列終了 FOR I=0 TO 512 IF STRCMP(TMP(I),'@@@')=0 THEN TOTAL=I: I=512 NEXT I REM メニュー表示用配列を作成 DIM MN(TOTAL) FOR I=0 TO TOTAL MN(I)=STR(TMP(I) NEXT I REM SORT MN,0,TOTAL-1 *DISPMENU REM メニュー表示 MENU MN,TOTAL,0 IF LEN(MN(MENUNO))<1 THEN MESSAGE 'エラーが発生しました。':END ST=LEFT(MN(MENUNO),2) IF STRCMP(ST,'==')=0 THEN GOTO *DISPMENU OUT=STR(MN(MENUNO)) ENDIF REM ウィンドウを小さく REM SCREEN 24,0,16,16 EVENT 100,999,1 REM 文字列出力 OUTPUT OUT REM 自分にタッチ後SYNCすると、 REM ENDでうまく終了するようだ。 SETPEN 0,26,2 SYNC END