2012年1月10日投稿 2012年1月11日更新 / 投稿者 : 名無しさん / タグ : 投稿プログラム ツール 初代対応 QRコード
プチコン標準のキーボードではないソフトキーボードを実現します。
主な用途は、プチコン標準のものでは都合が悪い場合や、並びが気に入らない場合などになります。
今回のサンプルコードでは、一部PCGをひらがなに書き換え、ひらがなの入力ができるようになっています。
サンプルコードでは下画面にソフトキーボードを表示し、
入力した文字を、上画面の矩形領域内に64文字を折り返して表示します。
BSや上下左右で文字を消したりカーソル移動したりできます。
ENTER、ESCで終了。ENTERの場合は、入力した文字列がT$に格納され、ESCの場合はT$は空文字となります。
IX,IY,IMAX,ICPLを指定して@LINを呼ぶと、指定文字数の入力が可能になります。
IX,IYは入力した文字列の表示位置、IMAXは最大入力文字数、ICPLは折り返し文字数です。
また、@KEYCHKを呼ぶと、RETにキーコードが返ります。
(押されていない場合は0、特殊キーは256以上)
0は押されていない、
256未満の場合は、その文字コードの文字が入力されたものとして考え、
256以上の場合は、そのキーに応じた動作をさせてください。
サンプルコードでの特殊キーは以下のようになっています。
256 シフトキー 257 CAPS LOCK 258 Back Space 259 ESC 260 ↑ 261 ↓ 262 ← 263 → 264 英数キー 265 かなキー 266 カナキー 267 記号キー
267については定義のみで動作を実装していないので、機能しません。
それ以外は動作します。
サンプルコードのひらがなフォントは以下のフォントを使用しています。(ライセンスOK)
8*8ドット日本語フォント「美咲フォント」
なお、ひらがなフォントは134〜159(144を除く)および224〜253に設定されます。
(マまではカナ-32、ミ以降はカナ+32)
プチコンmkII 向けの QR コードは、作者サイトにて公開されています。
- ＣＬＥＡＲ：ＧＯＳＵＢ＠ＣＬＲＡＬＬ
- ＰＮＬＴＹＰＥ”ＯＦＦ”
- ＧＯＳＵＢ＠ＬＤＦＯＮＴ
- ＧＯＳＵＢ＠ＬＤＳＰ
- ＧＯＳＵＢ＠ＬＤＫＥＹＭＡＰ
- ＧＯＳＵＢ＠ＤＲＡＷＫＢ
- ＴＴ＝５２４２８７
- ＧＢＯＸ ６３，６３，１９３，９７，１１
- ＩＸ＝８：ＩＹ＝８：ＩＭＡＸ＝６４：ＩＣＰＬ＝１６
- ＧＯＳＵＢ＠ＬＩＮ
- ？Ｔ＄
- ＥＮＤ
- ＠ＬＩＮ
- Ｔ＄＝ＭＩＤ＄（Ｔ＄，０，ＩＭＡＸ）：ＬＥＮＴ＝ＬＥＮ（Ｔ＄）
- ＳＰＣ＄＝””
- ＦＯＲ Ｉ＝０ ＴＯ ＩＭＡＸ−１
- ＳＰＣ＄＝ＳＰＣ＄＋” ”
- ＮＥＸＴ
- ＩＳＰ＄＝””：ＩＬＭ＝ＦＬＯＯＲ（ＩＭＡＸ／ＩＣＰＬ）＋（ＩＭＡＸ％ＩＣＰＬ！＝０）
- ＦＯＲ Ｉ＝０ ＴＯ ＩＣＰＬ−１
- ＩＳＰ＄＝ＩＳＰ＄＋” ”
- ＮＥＸＴ
- ＧＯＳＵＢ＠ＰＵＴＩＴＸＴ
- ＳＰＳＥＴ ０，０，０，０，０，１
- ＧＯＳＵＢ＠ＰＵＴＩＣＵＲ
- ＧＯＳＵＢ＠ＤＲＡＷＫＢ
- ＴＴ＝５２４２８７
- ＠ＬＰ
- ＶＳＹＮＣ １
- ＯＢ＝Ｂ：Ｂ＝ＢＵＴＴＯＮ（）
- ＰＢ＝（ＯＢ ＸＯＲ ＆ＨＦＦＦ）ＡＮＤ Ｂ
- ＯＳＦ＝ＳＦ：ＳＦ＝ＳＦ ＯＲ（（Ｂ ＡＮＤ ２５６）／２５６）
- ＩＦ（ＯＢ ＡＮＤ ２５６）！＝０ ＡＮＤ（Ｂ ＡＮＤ ２５６）＝＝０ ＴＨＥＮ ＳＦ＝０
- ＩＦ ＳＦ！＝ＯＳＦ ＴＨＥＮ ＧＯＳＵＢ＠ＤＲＡＷＫＢ
- ＧＯＳＵＢ＠ＫＥＹＣＨＫ
- ＩＦ ＲＥＴ＝＝０ ＴＨＥＮ ＠ＬＩＮＫ
- ＩＦ ＲＥＴ＞２５５ ＴＨＥＮ ＧＯＳＵＢ ＠ＣＮＴＬＫＥＹ：ＧＯＴＯ＠ＬＩＮＫ
- ＩＦ ＳＦ＝＝１ ＴＨＥＮ ＳＦ＝（Ｂ ＡＮＤ ２５６）／２５６：ＧＯＳＵＢ＠ＤＲＡＷＫＢ
- ＩＦ ＲＥＴ＝＝１３ ＴＨＥＮ ＠ＬＩＮＫ
- Ｔ＄＝ＭＩＤ＄（ＭＩＤ＄（Ｔ＄，０，ＣＵＲ）＋ＣＨＲ＄（ＲＥＴ）＋ＭＩＤ＄（Ｔ＄，ＣＵＲ，ＬＥＮＴ−ＣＵＲ）＋ＳＰＣ＄，０，ＩＭＡＸ）
- ＬＥＮＴ＝ＬＥＮ（Ｔ＄）：ＣＵＲ＝ＣＵＲ＋（ＣＵＲ＜ＬＥＮＴ）＊（ＣＵＲ＜ＩＭＡＸ−１）
- ＧＯＳＵＢ＠ＰＵＴＩＴＸＴ
- ＧＯＳＵＢ＠ＰＵＴＩＣＵＲ
- ＠ＬＩＮＫ
- ＩＦ（ＰＢ ＡＮＤ １）ＴＨＥＮ ＲＥＴ＝２６０：ＧＯＳＵＢ＠ＣＮＴＬＫＥＹ：ＧＯＴＯ＠ＬＰ
- ＩＦ（ＰＢ ＡＮＤ ２）／２ＴＨＥＮ ＲＥＴ＝２６１：ＧＯＳＵＢ＠ＣＮＴＬＫＥＹ：ＧＯＴＯ＠ＬＰ
- ＩＦ（ＰＢ ＡＮＤ ４）／４ＴＨＥＮ ＲＥＴ＝２６２：ＧＯＳＵＢ＠ＣＮＴＬＫＥＹ：ＧＯＴＯ＠ＬＰ
- ＩＦ（ＰＢ ＡＮＤ ８）／８ＴＨＥＮ ＲＥＴ＝２６３：ＧＯＳＵＢ＠ＣＮＴＬＫＥＹ：ＧＯＴＯ＠ＬＰ
- ＩＦ（ＰＢ ＡＮＤ １２８）／１２８ＴＨＥＮ ＲＥＴ＝２５８：ＧＯＳＵＢ＠ＣＮＴＬＫＥＹ：ＧＯＴＯ＠ＬＰ
- ＩＦ（ＰＢ ＡＮＤ １０２４）／１０２４ＴＨＥＮ ＲＥＴ＝１３
- ＩＦ ＲＥＴ！＝１３ ＡＮＤ ＲＥＴ！＝２５９ ＴＨＥＮ ＠ＬＰ
- ＳＰＣＬＲ ０：ＧＰＡＧＥ ０：ＧＣＬＳ：ＣＬＳ
- ＩＦ ＲＥＴ＝＝２５９ ＴＨＥＮ Ｔ＄＝””
- ＲＥＴＵＲＮ
- ＠ＣＮＴＬＫＥＹ
- ＯＮ ＲＥＴ−２５６ ＧＯＴＯ ＠ＳＦ，＠ＣＬ，＠ＢＳ，＠ＮＯＰ，＠ＵＰ，＠ＤＮ，＠ＬＦ，＠ＲＴ，＠ＣＨＧＭＤ，＠ＣＨＧＭＤ，＠ＣＨＧＭＤ，＠ＣＨＧＭＤ
- ＠ＮＯＰ
- ＲＥＴＵＲＮ
- ＠ＳＦ
- ＳＦ＝ＳＦ−１：ＧＯＳＵＢ＠ＤＲＡＷＫＢ：ＲＥＴＵＲＮ
- ＠ＣＬ
- ＣＬ＝ＣＬ−１：ＧＯＳＵＢ＠ＤＲＡＷＫＢ：ＲＥＴＵＲＮ
- ＠ＢＳ
- ＩＦ ＣＵＲ＜１ ＴＨＥＮ ＲＥＴＵＲＮ
- Ｔ＄＝ＭＩＤ＄（ＭＩＤ＄（Ｔ＄，０，ＣＵＲ−１）＋ＭＩＤ＄（Ｔ＄，ＣＵＲ，ＬＥＮＴ−ＣＵＲ）＋ＳＰＣ＄，０，ＩＭＡＸ）
- ＬＥＮＴ＝ＬＥＮ（Ｔ＄）：ＣＵＲ＝ＣＵＲ−１
- ＧＯＳＵＢ＠ＰＵＴＩＴＸＴ：ＧＯＳＵＢ＠ＰＵＴＩＣＵＲ
- ＲＥＴＵＲＮ
- ＠ＵＰ
- ＣＵＲ＝ＣＵＲ−ＩＣＰＬ
- ＩＦ ＣＵＲ＜０ ＴＨＥＮ ＣＵＲ＝０
- ＧＯＳＵＢ＠ＰＵＴＩＣＵＲ
- ＲＥＴＵＲＮ
- ＠ＤＮ
- ＣＵＲ＝ＣＵＲ＋ＩＣＰＬ
- ＩＦ ＣＵＲ＞＝ＬＥＮＴ ＴＨＥＮ ＣＵＲ＝ＬＥＮＴ
- ＩＦ ＣＵＲ＞＝ＩＭＡＸ−１ ＴＨＥＮ ＣＵＲ＝ＩＭＡＸ−１
- ＧＯＳＵＢ＠ＰＵＴＩＣＵＲ
- ＲＥＴＵＲＮ
- ＠ＬＦ
- ＣＵＲ＝ＣＵＲ−（ＣＵＲ＞０）
- ＧＯＳＵＢ＠ＰＵＴＩＣＵＲ
- ＲＥＴＵＲＮ
- ＠ＲＴ
- ＣＵＲ＝ＣＵＲ＋（ＣＵＲ＜ＬＥＮＴ）＊（ＣＵＲ＜ＩＭＡＸ−１）
- ＧＯＳＵＢ＠ＰＵＴＩＣＵＲ
- ＲＥＴＵＲＮ
- ＠ＣＨＧＭＤ
- ＭＯＤＥ＝ＭＯＤＥ−２６４：ＳＦ＝０：ＣＬ＝０
- ＧＯＳＵＢ＠ＤＲＡＷＫＢ：ＲＥＴＵＲＮ
- ＠ＰＵＴＩＴＸＴ
- ＰＮ＝ＦＬＯＯＲ（ＬＥＮＴ／ＩＣＰＬ）＋（ＬＥＮＴ％ＩＣＰＬ！＝０）
- ＦＯＲ Ｙ＝０ ＴＯ ＩＬＭ−１
- ＬＯＣＡＴＥ ＩＸ，ＩＹ＋Ｙ
- ＩＦ Ｙ＞＝ＰＮ ＴＨＥＮ ？ＩＳＰ＄；：ＧＯＴＯ＠ＰＴＮ
- ？ＭＩＤ＄（ＭＩＤ＄（Ｔ＄，Ｙ＊ＩＣＰＬ，ＩＣＰＬ）＋ＩＳＰ＄，０，ＩＣＰＬ）；
- ＠ＰＴＮ
- ＮＥＸＴ
- ＲＥＴＵＲＮ
- ＠ＰＵＴＩＣＵＲ
- ＳＰＡＮＩＭ ０，２，３０，０
- ＳＰＯＦＳ ０，（ＩＸ＋ＣＵＲ％ＩＣＰＬ）＊８，（ＩＹ＋ＦＬＯＯＲ（ＣＵＲ／ＩＣＰＬ））＊８
- ＲＥＴＵＲＮ
- ＠ＬＤＳＰ
- Ｃ＄＝””
- ＦＯＲ Ｉ＝０ ＴＯ ７
- Ｃ＄＝Ｃ＄＋”００００００００”
- ＮＥＸＴ
- ＦＯＲ Ｉ＝１ ＴＯ ７
- ＣＨＲＳＥＴ”ＳＰＵ０”，Ｉ，Ｃ＄
- ＮＥＸＴ
- Ｃ＄＝ＭＩＤ＄（Ｃ＄，０，５６）＋”ＣＣＣＣＣＣＣＣ”
- ＣＨＲＳＥＴ”ＳＰＵ０”，０，Ｃ＄
- ＲＥＴＵＲＮ
- ＠ＫＥＹＣＨＫ
- ＲＥＴ＝０
- ＩＦ １−ＴＣＨＳＴ ＴＨＥＮ ＲＥＴＵＲＮ
- ＯＴ＝ＴＴ：ＴＴ＝ＴＣＨＴＩＭＥ
- ＩＦ ＯＴ＜ＴＴ ＴＨＥＮ ＲＥＴＵＲＮ
- ＴＣＸ＝ＴＣＨＸ：ＴＣＹ＝ＴＣＨＹ
- ＴＸ＝ＦＬＯＯＲ（ＴＣＸ／１６）
- ＴＹ＝ＦＬＯＯＲ（ＴＣＹ／１６）
- ＴＰＯＳ＝ＴＸ＋ＴＹ＊１６
- ＧＰＡＧＥ １
- Ｃ＝ＧＳＰＯＩＴ（ＴＣＸ，ＴＣＹ）
- ＧＰＡＧＥ ０
- ＩＦ Ｃ＜１５ ＴＨＥＮ ＲＥＴＵＲＮ
- ＴＢ＝ＭＯＤＥ＊２＋（ＳＦ ＸＯＲ ＣＬ）
- ＲＥＴ＝ＫＭ（ＴＢ，ＴＰＯＳ）
- ＲＥＴＵＲＮ
- ＠ＤＲＡＷＫＢ
- ＧＰＡＧＥ １
- ＴＢ＝ＭＯＤＥ＊２＋（ＳＦ ＸＯＲ ＣＬ）
- ＦＯＲ Ｙ＝０ ＴＯ １１
- ＦＯＲ Ｘ＝０ ＴＯ １５
- ＰＯＳ＝Ｘ＋Ｙ＊１６
- Ｋ＝ＫＭ（ＴＢ，ＰＯＳ）
- Ｎ＝（Ｘ＜１５）＊ＫＭ（ＴＢ，ＰＯＳ＋１）
- ＧＦＩＬＬ Ｘ＊１６，Ｙ＊１６，Ｘ＊１６＋１４＋（Ｎ＝＝Ｋ ＯＲ Ｋ＝＝０），Ｙ＊１６＋１４，１５＊（Ｋ＞０）
- ＩＦ Ｋ＝＝０ ＴＨＥＮ ＠ＢＮ
- ＩＦ Ｋ＞＝２５６ ＴＨＥＮ ＧＯＳＵＢ＠ＰＵＴＳＰ：ＧＯＴＯ＠ＢＮ
- ＧＰＵＴＣＨＲ Ｘ＊１６＋４，Ｙ＊１６＋４，”ＢＧＦ０”，Ｋ，１，１：ＬＳＰ＝０
- ＠ＢＮ
- ＮＥＸＴ
- ＮＥＸＴ
- ＰＮＬＳＴＲ ０，０，”ＣＡＰＳ ＬＯＣＫ”，２−ＣＬ＊２
- ＰＮＬＳＴＲ ０，１，”ＳＨＩＦＴ”，２−ＳＦ＊２
- ＧＰＡＧＥ ０：ＲＥＴＵＲＮ
- ＠ＰＵＴＳＰ
- ＩＦ Ｋ！＝ＬＳＰ ＴＨＥＮ ＬＳＰ＝Ｋ：ＳＣ＝０
- ＯＮ Ｋ−２５６ ＧＯＳＵＢ ＠ＰＳＦＴ，＠ＰＣＰＬ，＠ＰＢＳ，＠ＰＥＳＣ，＠ＰＵＤ，＠ＰＵＤ，＠ＰＬＦ，＠ＰＲＴ，＠ＰＡＬＰ，＠ＰＨＧ，＠ＰＫＮ，＠ＰＭＫ
- ＳＣ＝ＳＣ＋１：ＲＥＴＵＲＮ
- ＠ＰＳＦＴ
- ＩＦ ＭＯＤＥ＝＝０ ＡＮＤ ＳＣ＜２ ＴＨＥＮ ＧＰＵＴＣＨＲ Ｘ＊１６＋８＊（ＳＣ＝＝０），Ｙ＊１６＋４，”ＢＧＵ０”，Ｋ−２５５＋ＳＣ，１，１
- ＩＦ（ＦＬＯＯＲ（（ＭＯＤＥ＋１）／２）＝＝１）ＡＮＤ ＳＣ＜２ ＴＨＥＮ ＧＰＵＴＣＨＲ Ｘ＊１６＋８＊（ＳＣ＝＝０），Ｙ＊１６＋４，”ＢＧＵ０”，Ｋ−２５１＋ＳＣ，１，１
- ＲＥＴＵＲＮ
- ＠ＰＣＰＬ
- ＩＦ ＳＣ＜２ ＴＨＥＮ ＧＰＵＴＣＨＲ Ｘ＊１６＋８＊（ＳＣ＝＝０），Ｙ＊１６＋４，”ＢＧＵ０”，Ｋ−２５４＋ＳＣ，１，１
- ＲＥＴＵＲＮ
- ＠ＰＢＳ
- ＩＦ ＳＣ＝＝０ ＴＨＥＮ ＧＰＵＴＣＨＲ Ｘ＊１６＋８，Ｙ＊１６＋４，”ＢＧＦ０”，６６，１，１
- ＩＦ ＳＣ＝＝１ ＴＨＥＮ ＧＰＵＴＣＨＲ Ｘ＊１６，Ｙ＊１６＋４，”ＢＧＦ０”，８３，１，１
- ＲＥＴＵＲＮ
- ＠ＰＵＤ
- ＧＰＵＴＣＨＲ Ｘ＊１６＋４，Ｙ＊１６＋４，”ＢＧＦ０”，Ｋ−２３０，１，１
- ＲＥＴＵＲＮ
- ＠ＰＲＴ
- ＧＰＵＴＣＨＲ Ｘ＊１６＋４，Ｙ＊１６＋４，”ＢＧＦ０”，２８，１，１
- ＲＥＴＵＲＮ
- ＠ＰＬＦ
- ＧＰＵＴＣＨＲ Ｘ＊１６＋４，Ｙ＊１６＋４，”ＢＧＦ０”，２９，１，１
- ＲＥＴＵＲＮ
- ＠ＰＡＬＰ
- ＩＦ ＳＣ＜２ ＴＨＥＮ ＧＰＵＴＣＨＲ Ｘ＊１６＋８＊（ＳＣ＝＝０），Ｙ＊１６＋４，”ＢＧＵ０”，Ｋ−２５７＋ＳＣ，１，１
- ＲＥＴＵＲＮ
- ＠ＰＫＮ
- ＩＦ ＳＣ＝＝０ ＴＨＥＮ ＧＰＵＴＣＨＲ Ｘ＊１６＋８，Ｙ＊１６＋４，”ＢＧＦ０”，１８２，１，１
- ＩＦ ＳＣ＝＝１ ＴＨＥＮ ＧＰＵＴＣＨＲ Ｘ＊１６，Ｙ＊１６＋４，”ＢＧＦ０”，１９７，１，１
- ＲＥＴＵＲＮ
- ＠ＰＨＧ
- ＩＦ ＳＣ＝＝０ ＴＨＥＮ ＧＰＵＴＣＨＲ Ｘ＊１６＋８，Ｙ＊１６＋４，”ＢＧＦ０”，１５０，１，１
- ＩＦ ＳＣ＝＝１ ＴＨＥＮ ＧＰＵＴＣＨＲ Ｘ＊１６，Ｙ＊１６＋４，”ＢＧＦ０”，２２９，１，１
- ＲＥＴＵＲＮ
- ＠ＰＭＫ
- ＩＦ ＳＣ＜２ ＴＨＥＮ ＧＰＵＴＣＨＲ Ｘ＊１６＋８＊（ＳＣ＝＝０），Ｙ＊１６＋４，”ＢＧＵ０”，Ｋ−２５８＋ＳＣ，１，１
- ＲＥＴＵＲＮ
- ＠ＰＥＳＣ
- ＧＰＵＴＣＨＲ Ｘ＊１６＋４，Ｙ＊１６＋４，”ＢＧＵ０”，１１，１，１
- ＲＥＴＵＲＮ
- ＠ＬＤＫＥＹＭＡＰ
- ＤＩＭ ＫＭ（８，１９３）
- ＲＥＳＴＯＲＥ ＠ＫＭＡＦＩＸ
- ＦＯＲ Ｉ＝１２８ ＴＯ １９１
- ＲＥＡＤ ＫＭ（０，Ｉ）
- ＦＯＲ Ｊ＝１ ＴＯ ７
- ＫＭ（Ｊ，Ｉ）＝ＫＭ（０，Ｉ）
- ＮＥＸＴ
- ＮＥＸＴ
- ＲＥＳＴＯＲＥ ＠ＫＭＡ１
- ＦＯＲ Ｉ＝０ ＴＯ １２７
- ＲＥＡＤ ＫＭ（０，Ｉ）
- ＮＥＸＴ
- ＲＥＳＴＯＲＥ ＠ＫＭＡ２
- ＦＯＲ Ｉ＝０ ＴＯ １２７
- ＲＥＡＤ ＫＭ（１，Ｉ）
- ＮＥＸＴ
- ＲＥＳＴＯＲＥ ＠ＫＭＫ１
- ＦＯＲ Ｉ＝０ ＴＯ １２７
- ＲＥＡＤ ＫＭ（４，Ｉ）
- Ｋ＝ＫＭ（４，Ｉ）
- Ｋ＝Ｋ＋（Ｋ＞１９１）＊（Ｋ＜２２２）＊３２
- Ｋ＝Ｋ−（Ｋ＞１６５）＊（Ｋ！＝１７６）＊（Ｋ＜１９２）＊３２
- ＫＭ（２，Ｉ）＝Ｋ
- ＮＥＸＴ
- ＲＥＳＴＯＲＥ ＠ＫＭＫ２
- ＦＯＲ Ｉ＝０ ＴＯ １２７
- ＲＥＡＤ ＫＭ（５，Ｉ）
- Ｋ＝ＫＭ（５，Ｉ）
- Ｋ＝Ｋ＋（Ｋ＞１９１）＊（Ｋ＜２２２）＊３２
- Ｋ＝Ｋ−（Ｋ＞１６５）＊（Ｋ！＝１７６）＊（Ｋ＜１９２）＊３２
- ＫＭ（３，Ｉ）＝Ｋ
- ＮＥＸＴ
- ＲＥＴＵＲＮ
- ＠ＣＬＲＡＬＬ
- ＣＬＳ：ＣＯＬＯＲ ０：ＧＰＡＧＥ ０
- ？”Ｎｏｗ Ｉｎｉｔｉａｌｉｚｉｎｇ．．．”
- ＫＥＹ １，”ＦＩＬＥＳ”＋ＣＨＲ＄（１３）
- ＫＥＹ ２，”ＬＯＡＤ”＋ＣＨＲ＄（３４）
- ＫＥＹ ３，”ＳＡＶＥ”＋ＣＨＲ＄（３４）
- ＫＥＹ ４，”ＣＯＮＴ”＋ＣＨＲ＄（１３）
- ＫＥＹ ５，”ＲＵＮ”＋ＣＨＲ＄（１３）
- ＦＯＲ Ｉ＝０ ＴＯ ２５５
- ＣＯＬＩＮＩＴ ”ＢＧ”，Ｉ
- ＣＯＬＩＮＩＴ ”ＳＰ”，Ｉ
- ＣＯＬＩＮＩＴ ”ＧＲＰ”，Ｉ
- ＮＥＸＴ
- ＦＯＲ Ｉ＝０ ＴＯ １
- ＢＧＰＡＧＥ Ｉ：ＢＧＣＬＩＰ ０，０，３１，２３：ＢＧＯＦＳ Ｉ，０，０
- ＦＯＲ Ｙ＝０ ＴＯ ６３
- ＦＯＲ Ｘ＝０ ＴＯ ６３
- ＢＧＰＵＴ ０，Ｘ，Ｙ，０，０，０，０
- ＢＧＰＵＴ １，Ｘ，Ｙ，０，０，０，０
- ＮＥＸＴ
- ＮＥＸＴ
- ＧＰＡＧＥ Ｉ
- ＧＣＯＬＯＲ ０：ＧＣＬＳ
- ＳＰＰＡＧＥ Ｉ：ＳＰＣＬＲ
- ＣＨＲＩＮＩＴ ”ＢＧＦ０”
- ＣＨＲＩＮＩＴ”ＢＧＵ０”
- ＣＨＲＩＮＩＴ”ＢＧＵ１”
- ＣＨＲＩＮＩＴ”ＢＧＵ２”
- ＣＨＲＩＮＩＴ”ＢＧＵ３”
- ＮＥＸＴ
- ＧＰＡＧＥ ０：ＢＧＰＡＧＥ ０：ＳＰＰＡＧＥ ０
- ＣＨＲＩＮＩＴ”ＳＰＵ０”
- ＣＨＲＩＮＩＴ”ＳＰＵ１”
- ＣＨＲＩＮＩＴ”ＳＰＵ２”
- ＣＨＲＩＮＩＴ”ＳＰＵ３”
- ＣＨＲＩＮＩＴ”ＳＰＵ４”
- ＣＨＲＩＮＩＴ”ＳＰＵ５”
- ＣＨＲＩＮＩＴ”ＳＰＵ６”
- ＣＨＲＩＮＩＴ”ＳＰＵ７”
- ＣＨＲＩＮＩＴ”ＳＰＳ０”
- ＣＬＳ
- ＲＥＴＵＲＮ
- ＠ＬＤＦＯＮＴ
- ＤＩＭ ＦＮＴＭ＄（１６）
- ＲＥＳＴＯＲＥ ＠ＦＯＮＴＭ
- ＦＯＲ Ｉ＝０ ＴＯ １５
- ＲＥＡＤ ＦＮＴＭ＄（Ｉ）
- ＮＥＸＴ
- ＲＥＳＴＯＲＥ ＠ＨＩＲＡ
- ＦＯＲ Ｉ＝１３４ ＴＯ １５９
- ＩＦ Ｉ＝＝１４４ ＴＨＥＮ Ｉ＝Ｉ＋１
- ＧＯＳＵＢ＠ＲＥＡＤＣＨ
- ＢＧＰＡＧＥ ０：ＣＨＲＳＥＴ ”ＢＧＦ０”，Ｉ，Ｃ＄
- ＢＧＰＡＧＥ １：ＣＨＲＳＥＴ ”ＢＧＦ０”，Ｉ，Ｃ＄
- ＮＥＸＴ
- ＦＯＲ Ｉ＝２２４ ＴＯ ２５３
- ＧＯＳＵＢ＠ＲＥＡＤＣＨ
- ＢＧＰＡＧＥ ０：ＣＨＲＳＥＴ ”ＢＧＦ０”，Ｉ，Ｃ＄
- ＢＧＰＡＧＥ １：ＣＨＲＳＥＴ ”ＢＧＦ０”，Ｉ，Ｃ＄
- ＮＥＸＴ
- ＲＥＳＴＯＲＥ ＠ＳＰＫＥＹ
- ＦＯＲ Ｉ＝１ ＴＯ １１
- ＧＯＳＵＢ ＠ＲＥＡＤＣＨ
- ＢＧＰＡＧＥ ０：ＣＨＲＳＥＴ ”ＢＧＵ０”，Ｉ，Ｃ＄
- ＢＧＰＡＧＥ １：ＣＨＲＳＥＴ ”ＢＧＵ０”，Ｉ，Ｃ＄
- ＮＥＸＴ
- ＲＥＴＵＲＮ
- ＠ＲＥＡＤＣＨ
- Ｃ＄＝””：ＲＥＡＤ Ｈ＄
- ＦＯＲ Ｊ＝０ ＴＯ １５
- Ｃ＄＝Ｃ＄＋ＦＮＴＭ＄（ＶＡＬ（”＆Ｈ”＋ＭＩＤ＄（Ｈ＄，Ｊ，１）））
- ＮＥＸＴ
- ＲＥＴＵＲＮ
- ＠ＦＯＮＴＭ
- ＤＡＴＡ”００００”，”０００Ｆ”，”００Ｆ０”，”００ＦＦ”
- ＤＡＴＡ”０Ｆ００”，”０Ｆ０Ｆ”，”０ＦＦ０”，”０ＦＦＦ”
- ＤＡＴＡ”Ｆ０００”，”Ｆ００Ｆ”，”Ｆ０Ｆ０”，”Ｆ０ＦＦ”
- ＤＡＴＡ”ＦＦ００”，”ＦＦ０Ｆ”，”ＦＦＦ０”，”ＦＦＦＦ”
- ＠ＫＭＫ１
- ＤＡＴＡ ０，０，０，０，０，０，０，０，０，０，０，０，０，０，０，０
- ＤＡＴＡ ０，２５６，２５６，０，２２０，２１５，２１２，２０７，２０２，１９７，１９２，１８７，１８２，１７７，０，０
- ＤＡＴＡ ０，２２２，２２３，０， ０，２１６， ０，２０８，２０３，１９８，１９３，１８８，１８３，１７８，０，０
- ＤＡＴＡ ０，１６２，１６３，０， ０，２１７，２１３，２０９，２０４，１９９，１９４，１８９，１８４，１７９，０，０
- ＤＡＴＡ ０，１７６，１６５，０，１６６，２１８， ０，２１０，２０５，２００，１９５，１９０，１８５，１８０，０，０
- ＤＡＴＡ ０，１６４，１６１，０，２２１，２１９，２１４，２１１，２０６，２０１，１９６，１９１，１８６，１８１，０，０
- ＤＡＴＡ ０，０，０，０，０，０，０，０，０，０，０，０，０，０，０，０
- ＤＡＴＡ ０，０，０，０，０，０，０，０，０，０，０，０，０，０，０，０
- ＠ＫＭＫ２
- ＤＡＴＡ ０，０，０，０，０，０，０，０，０，０，０，０，０，０，０，０
- ＤＡＴＡ ０，２５６，２５６，０，２２０，２１５，１７２，２０７，２０２，１９７，１９２，１８７，１８２，１６７，０，０
- ＤＡＴＡ ０，２２２，２２３，０， ０，２１６， ０，２０８，２０３，１９８，１９３，１８８，１８３，１６８，０，０
- ＤＡＴＡ ０，１６２，１６３，０， ０，２１７，１７３，２０９，２０４，１９９，１７５，１８９，１８４，１６９，０，０
- ＤＡＴＡ ０，１７６，１６５，０，１６６，２１８， ０，２１０，２０５，２００，１９５，１９０，１８５，１７０，０，０
- ＤＡＴＡ ０，１６４，１６１，０，２２１，２１９，１７４，２１１，２０６，２０１，１９６，１９１，１８６，１７１，０，０
- ＤＡＴＡ ０，０，０，０，０，０，０，０，０，０，０，０，０，０，０，０
- ＤＡＴＡ ０，０，０，０，０，０，０，０，０，０，０，０，０，０，０，０
- ＠ＫＭＡ１
- ＤＡＴＡ ０，０，０，０，０，０，０，０，０，０，０，０，０，０，０，０
- ＤＡＴＡ ０，０，０，０，０，０，０，０，０，０，０，０，０，０，０，０
- ＤＡＴＡ ０， ４９，５０，５１，５２，５３，５４，５５，５６，５７，４８，４５， ９４，９２，２５８，２５８
- ＤＡＴＡ ０， ８１，８７，６９，８２，８４，８９，８５，７３，７９，８０，６４， ９１， ０，０，０
- ＤＡＴＡ ２５７，２５７，６５，８３，６８，７０，７１，７２，７４，７５，７６，５９， ６０，９３，０，０
- ＤＡＴＡ ２５６，２５６，９０，８８，６７，８６，６６，７８，７７，４４，４６，４７，１２７， ０，２５６，２５６
- ＤＡＴＡ ０，０，０，０，０，０，０，０，０，０，０，０，０，０，０，０
- ＤＡＴＡ ０，０，０，０，０，０，０，０，０，０，０，０，０，０，０，０
- ＠ＫＭＡ２
- ＤＡＴＡ ０，０，０，０，０，０，０，０，０，０，０，０，０，０，０，０
- ＤＡＴＡ ０，０，０，０，０，０，０，０，０，０，０，０，０，０，０，０
- ＤＡＴＡ ０， ３３， ３４， ３５， ３６， ３７， ３８， ３９， ４０， ４１， ０，６１，１２６，１２４，２５８，２５８
- ＤＡＴＡ ０，１１３，１１９，１０１，１１４，１１６，１２１，１１７，１０５，１１１，１１２，９６，１２３， ０，０，０
- ＤＡＴＡ ２５７，２５７， ９７，１１５，１００，１０２，１０３，１０４，１０６，１０７，１０８，４３， ４２，１２５，０，０
- ＤＡＴＡ ２５６，２５６，１２２，１２０， ９９，１１８， ９８，１１０，１０９， ６０， ６２，６３， ９５， ０，２５６，２５６
- ＤＡＴＡ ０，０，０，０，０，０，０，０，０，０，０，０，０，０，０，０
- ＤＡＴＡ ０，０，０，０，０，０，０，０，０，０，０，０，０，０，０，０
- ＠ＫＭＡＦＩＸ
- ＤＡＴＡ ０，２６４，２６４，０，０，２５８，２５８， ０，３２， ３２，３２， ３２，０，０，０，０
- ＤＡＴＡ ０，２６５，２６５，０，０， ０， ０， ０， ０， ０， ０， ０，０，０，２５９，２５９
- ＤＡＴＡ ０，２６６，２６６，０，０，２６０， ０，２６１， ０，２６２， ０，２６３，０，０，０，０
- ＤＡＴＡ ０，２６７，２６７，０，０， ０， ０， ０， ０， ０， ０， ０，０，０，１３，１３
- ＠ＳＰＫＥＹ
- ＤＡＴＡ”５５９５９５ＤＤ５５５５９５００”：’ＳＨＩ
- ＤＡＴＡ”７Ｅ４４４４６４４４４４４４００”：’ＦＴ
- ＤＡＴＡ”６４８Ａ８Ａ８Ａ８Ｅ８Ａ６Ａ００”：’ＣＡ
- ＤＡＴＡ”Ｃ６Ａ８Ａ８Ａ４Ｃ２８２８Ｃ００”：’ＰＳ
- ＤＡＴＡ”２１２７ＡＡＡＡＡＡ２１６６００”：’コモシ゛
- ＤＡＴＡ”０８ＦＥＡＥ８４ＢＥ０８Ｄ８００”：’コモシ゛
- ＤＡＴＡ”２８ＦＥ２８５４ＦＥ１０ＥＥ００”：’エイ
- ＤＡＴＡ”ＡＣ７６ＡＡ４ＡＦＡ５４ＥＡ００”：’スウ
- ＤＡＴＡ”５ＥＥ２０２５Ｅ１０Ｄ２ＤＥ００”：’キ
- ＤＡＴＡ”３８２８ＦＥ２０３Ｃ０４０Ｃ００”：’コ゛ウ
- ＤＡＴＡ”Ｃ９９２９２ＤＡ８Ａ８ＡＤ１００”：’ＥＳＣ
- ’−−−−−−−−−−−−−−−−−−−−−−−−−−−
- ’ ＭＩＳＡＫＩ ＦＯＮＴ
- ’ （Ｃ）２００２−２００８ Ｎｕｍ Ｋｏｍａｄａ
- ’−−−−−−−−−−−−−−−−−−−−−−−−−−−
- ＠ＨＩＲＡ
- ＤＡＴＡ”１０７Ｃ２０７６９８２８１Ｅ００
- ＤＡＴＡ”００１０３Ｃ１０３Ｃ５Ａ３２００
- ＤＡＴＡ”００００４８４４４４５０２０００
- ＤＡＴＡ”００３８００３８４４０８３０００
- ＤＡＴＡ”００３８００７８１０３０４Ｃ００
- ＤＡＴＡ”００２０７４２０３８６４２８００
- ＤＡＴＡ”０００８２Ｃ７２１４１００８００
- ＤＡＴＡ”００１０５８７４５４１８２０００
- ＤＡＴＡ”０００８０８０Ｃ３８４８３４００
- ＤＡＴＡ”００００００１８６４０４１８００
- ＤＡＴＡ”２０７Ｃ２０３Ｃ６ＡＢ２６４００
- ＤＡＴＡ”００８８８４８２８２５０２０００
- ＤＡＴＡ”３Ｃ００３Ｃ４２０２０４３８００
- ＤＡＴＡ”３Ｃ００７Ｃ０８１８２８４６００
- ＤＡＴＡ”２０Ｆ４２２３Ｃ６２Ａ２６Ｃ００
- ＤＡＴＡ”２０２０Ｆ４２Ａ４Ａ４８Ｂ０００
- ＤＡＴＡ”１０７Ｃ０８７Ｅ２４４０３Ｃ００
- ＤＡＴＡ”０４０８３０４０３００８０４００
- ＤＡＴＡ”８８８８ＢＥ８８８８８８１０００
- ＤＡＴＡ”００３Ｃ００００２０４０３Ｅ００
- ＤＡＴＡ”０８０８７Ｅ０４２４４０３Ｃ００
- ＤＡＴＡ”２０２０２０２０２０２２１Ｃ００
- ＤＡＴＡ”０８ＦＥ１８２８１８０８１０００
- ＤＡＴＡ”２４２４ＦＥ２４２Ｃ２０１Ｅ００
- ＤＡＴＡ”３Ｃ０８１０７Ｅ１０１００Ｃ００
- ＤＡＴＡ”２０Ｆ０２Ｅ４０４８５０８Ｅ００
- ＤＡＴＡ”０８７Ｅ１０１Ｃ２２０２１Ｃ００
- ＤＡＴＡ”００３ＣＣ２０２０２１Ｃ００００
- ＤＡＴＡ”０Ｅ７４０８１０１００８０６００
- ＤＡＴＡ”２０２０２６１８２０４０３Ｅ００
- ＤＡＴＡ”２０Ｆ４２２４４９Ｃ２６１８００
- ＤＡＴＡ”８０９Ｃ８０８０９０Ａ０９Ｅ００
- ＤＡＴＡ”０８４８５Ｃ６ＡＢ２Ａ６５６００
- ＤＡＴＡ”２０２ＣＦ２２２６６ＡＡ２４００
- ＤＡＴＡ”００３８５４９２Ａ２４４１８００
- ＤＡＴＡ”８４８４ＢＥ８４９ＣＡ６９８００
- ＤＡＴＡ”２８Ｅ４２６４４４４４４３８００
- ＤＡＴＡ”１００８１０１０４Ｃ４ＡＢ２００
- ＤＡＴＡ”００２０５０８８０６００００００
- ＤＡＴＡ”８０ＢＥ８８ＢＥ８８ＢＣＢＡ００
- ＤＡＴＡ”０８７Ｅ０８７Ｅ０８７Ｃ７Ａ００
- ＤＡＴＡ”７０１０２４７ＣＡ６Ｃ４１８００
- ＤＡＴＡ”２０Ｆ４２２６０Ａ０６２３Ｃ００
- ＤＡＴＡ”０８４８５Ｃ６ＡＢ２Ａ２５４００
- ＤＡＴＡ”１０７Ｃ２０７Ｃ２２２２１Ｃ００
- ＤＡＴＡ”４８５ＣＥ２２４２０１０１０００
- ＤＡＴＡ”１０ＢＣＤ２９２ＢＣ１０２０００
- ＤＡＴＡ”０８０８０Ｅ０８３８４Ｃ３２００
- ＤＡＴＡ”３００８４０５Ｃ６２０２３Ｃ００
- ＤＡＴＡ”５８６４４４４４０４０８３０００
- ＤＡＴＡ”３Ｃ０８１０３Ｃ４２３２３Ｃ００
- ＤＡＴＡ”２０２ＣＦ４２４６４Ａ４２２００
- ＤＡＴＡ”３Ｃ０８１０３Ｃ４２０２３Ｃ００
- ＤＡＴＡ”２０２ＣＦ２２２６２Ａ２２Ｃ００
- ＤＡＴＡ”１０１０２０２０５０５２８Ｃ００
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.139 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:13 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30