【カシオ】プログラム関数電卓 Ｌｏｃａｔｅ

　ＢＡＳＩＣ言語ではおなじみの、文字を任意の行と桁から表示させる命令《Ｌｏｃａｔｅ》。ｆｘ－５８００Ｐにもこの命令を持っています。
　この電卓は、１６桁×４行の表示枠。桁をＸ、行をＹとすると、命令書式は、
　Ｌｏｃａｔｅ　Ｘ，Ｙ，”文字列”または変数
　注意する主な点は、文字列がはみ出るとエラー（Ａｒｇｕｍｅｎｔ　ＥＲＲＯＲ）になります。
　Ｘ，Ｙの部分にも変数が使えます。例えば、Ｌｏｃａｔｅ　変数，変数，”文字列”の記述も可能です。

　表示位置のＸ，Ｙに数式を入れられる点を利用して、整数の乱数を５回発生させ、間隔を開けて表示させるプログラムを考えました。

【プログラムリスト】
Lbl 0
2→J
5→I
Lbl 1
RanInt#(0,9)→A；整数０～９乱数発生
J+2→J　　　　　；桁位置を２ずつすらす
Locate J,2,A　　　　
Dsz I　　　　　　；減算カウンタ　０になれば次の処理
Goto 1
Locate 1,3," "▲　；繰り返し操作時に発生する行ずれ防止の空白表示
Goto 0

　これは、応用として、ポーカーもどきで遊ぶのもおもしろい。こういう役を決めてそれぞれ表示させて遊びます。

（役の例）
　・同じ数字が２～５つ出現。
　・１２３４５等の数字が出現。

　出力した数字を並べ替える処理も考えられる。そこは、みなさんの工夫と言うことにしておきましょう。