当サイト関連記事：
・【プチコンmkII】テキスト文字拡大表示サブルーチンを改変しました。
・プチコンmkIIでプログラムを作るときの役立ちサイト自分用メモ
・石焼き芋屋さんの売り声を3DS・DSiにしゃべらせるプログラムを作りました。
こちら、「蘇るBASICプログラミング プチコン公式活用テクニック」の56ページにあるテキスト文字拡大プログラムを改造しました。
プログラムを実行すると、入力した5文字までを拡大して表示します。1～4文字の場合はその数どおりの文字を拡大して表示します。また、6文字以上は画面からはみ出てしまうので表示しないようにしてあります。
アルファベットやカタカナは8ドット（ピクセル）ずらさないで6ドットだけずらしただけでも読めるので、ギリギリ画面に5文字入ります。
絵文字（記号文字）は8ドット目一杯使ったフォントなので、6ドットだけずらしただけではこのように重なってしまいます。
そんなわけで、45行目の X=X+6 をX=X+8 に直すと、重ならなずに表示します（赤印のところ）。その代わり横に広がってしまうので、画面には4文字までの表示が限界となります。
このプログラムを汎用的に使うには、B$="アイウエオ" などとして文字列を入れて、GOSUB @DEKA として拡大表示します。INPUT "5モジマデ・・・"のところ無くして、B$="アイウエオ" などとします。
使い道があまりないのが難点です。何らかのメッセージを表示するといっても5文字では限られてしまいますね。ゴハンヨ。意味不明(笑)。
それではQRコードです。
プチコンのQRコード読み込み機能を使って、DSiまたは3DSのカメラでQRコードからプログラムが読み込めます。
こちらがプログラムリストです。
’────────────────────
’テ゛カモシ゛５モシ゛ＳＵＢ
’ｂｙ ｕｒｏｎｐｏｉ
’２０１４．３
’────────────────────
’─── ショキセッテイ
ＶＩＳＩＢＬＥ １，１，１，１，１，１
ＣＬＥＡＲ：ＣＬＳ：ＧＣＬＳ：ＳＰＣＬＲ
ＤＩＭ Ａ＄（５）
’─── モシ゛ニュウリョク
＠ＩＮＰＵＴ
ＣＯＬＯＲ ０
Ｘ＝０：Ｙ＝８：ＹＹ＝Ｙ
ＩＮＰＵＴ ”５モシ゛マテ゛ニュウリョク［Ｅｎｔｅｒ］”；Ｂ＄
Ｌ＝ＬＥＮ（Ｂ＄）－１
ＩＦ Ｌ＞３ ＴＨＥＮ Ｌ＝４
ＧＯＳＵＢ ＠ＤＥＫＡ
ＣＯＬＯＲ ０
ＷＡＩＴ １８０
ＣＬＳ
ＧＯＴＯ ＠ＩＮＰＵＴ
’─── テ゛カモシ゛ＳＵＢ
＠ＤＥＫＡ
ＦＯＲ Ｉ＝０ ＴＯ Ｌ
Ａ＄（Ｉ）＝ＭＩＤ＄（Ｂ＄，Ｉ，１）
ＮＥＸＴ
ＣＯＬＯＲ ９
ＧＯＳＵＢ ＠ＭＡＩＮ
ＲＥＴＵＲＮ
’─── カクタ゛イモシ゛＠ＭＡＩＮ
＠ＭＡＩＮ
ＦＯＲ Ｊ＝０ ＴＯ Ｌ
ＬＯＣＡＴＥ Ｘ，Ｙ
ＣＨＲＲＥＡＤ（”ＢＧＦ０”，ＡＳＣ（Ａ＄（Ｊ））），ＢＦ＄
ＦＯＲ Ｉ＝０ ＴＯ ６３
Ｖ＝ＶＡＬ（”＆Ｈ”＋ＭＩＤ＄（ＢＦ＄，Ｉ，１））
ＩＦ Ｖ＝＝０ ＴＨＥＮ ＰＲＩＮＴ ” ”；
ＩＦ Ｖ！＝０ ＴＨＥＮ ＰＲＩＮＴ ”■”；
ＩＦ （Ｉ％８）＝＝７ ＴＨＥＮ Ｙ＝Ｙ＋１：ＬＯＣＡＴＥ Ｘ，Ｙ
ＮＥＸＴ Ｉ
Ｘ＝Ｘ＋６：Ｙ＝ＹＹ
ＮＥＸＴ Ｊ
ＲＥＴＵＲＮ
関連：蘇るBASICプログラミング プチコン公式活用テクニック
（Amazon）- 関連記事
