《 かるた会の読み札（上の句）を表示する 》
【内容】
かるた会の２４首の読み札を順次表示します。
【用例】
名札 読み札表示
画面表示 (24,01)-(24,32),"・を押すと字が表われます。",黄
確認 "わかった時，ESC,TABか←↑→↓を押しましょう。"
&N=1
繰り返し &N=1,24,1 ①
位置指定 行番号=&N
画面表示 (20,33)-(20,46),#連結("いま，",#全角(#STR(&N)),"枚目"),緑
&M=1
繰り返し &M=1,3 ②
条件 (&M=1) &行１=10,&桁１=44,&桁２=&桁１+1,&I=1,&J=6
条件 (&M=2) &行１=11,&桁１=42,&桁２=&桁１+1,&I=1,&J=8
条件 (&M=3) &行１=12,&桁１=40,&桁２=&桁１+1,&I=1,&J=6
繰り返し &I=1,&J
条件 (&M=1) &字=#部分列([一かな],&I,1)
条件 (&M=2) &字=#部分列([二かな],&I,1)
条件 (&M=3) &字=#部分列([三かな],&I,1)
画面表示 (&行１,&桁１)-(&行１,&桁２),&字,白,反転
機能キー入力 (24,01)-(24,48),プロンプト＝"わかった時，ESC,TABか←↑→↓を押しましょう。" \
,文字キー＝有効,入力待ち＝しない,&機能キー
条件 (&機能キー＝&ESC .or &機能キー＝&TAB .or &機能キー＝&→ .or &機能キー＝&← \
.or &機能キー＝&↓ .or &機能キー＝&↑) 確認 "とり札の番号を言ってください。"
&行１=&行１+1
遅延 ５
繰り返し終了
条件 (&機能キー＝&ESC .or &機能キー＝&TAB .or &機能キー＝&→ .or &機能キー＝&← \
.or &機能キー＝&↓ .or &機能キー＝&↑) 確認 "とり札の番号を言ってください。"
繰り返し終了
条件 (&機能キー＝&ESC .or &機能キー＝&TAB .or &機能キー＝&→ .or &機能キー＝&← \
.or &機能キー＝&↓ .or &機能キー＝&↑) 確認 "とり札の番号を言ってください。"
確認 "下の句を表示しますので確かめてください。"
&M=4,&I=1,&J=8
繰り返し &M=4,5 ③
条件 (&M=4) &行１=10,&桁１=38,&桁２=&桁１+1
条件 (&M=5) &行１=11,&桁１=36,&桁２=&桁１+1
繰り返し &I=1,&J
条件 (&M=4) &字=#部分列([四かな],&I,1)
条件 (&M=5) &字=#部分列([五かな],&I,1)
画面表示 (&行１,&桁１)-(&行１,&桁２),&字,白,反転
&行１=&行１+1
遅延 ３
繰り返し終了
繰り返し終了
条件 (&TEN=1) 手続き実行 得点入力
繰り返し
メニュー２ &POP1,1,(21,32),”続けますか。”￥ ④
,"つづけます,止めます"
条件 (&POP1=1) 画面消去 文字,(09,33)-(18,48),白,反転
条件 (&POP1=1) 繰り返し中止
条件 (&POP1=2 .and &TEN=1) 手続き実行 結果発表
条件 (&POP1=2 .and &TEN=2) 手続き実行 かるたとり終了
繰り返し終了
繰り返し終了
手続き終了
【解説】
① 読み札を最大２４首まで表示します。
② 上の句（３句目まで）は１文字ずつ表示します。
途中で表示を止めて、解答することができます。
③ 正解の確認として下の句を表示します。
④ かるた会を中断することができます。
【参考】
END of FILE 《戻る》 《玄関へ》