投稿プログラム : 手書き入力プログラム

パンくずリスト

概要
- 操作方法
スクリーンショット・動画
QR コード
プログラムリスト
CHECKER FLAG (ひとことコメント)

2013年03月31日投稿 / 投稿者 : BASIC-Ishida / タグ : 投稿プログラム実用ツール QRコード mkII専用

概要

手書きで文字入力ができたら、便利だと思い作りました。

操作方法

下画面のマス目を基準に文字を書いて、Aボタンで変換、Bボタンで消去、Yボタンで一文字消す。

スクリーンショット・動画

動作しているところを撮影した写真や動画があれば貼り付けてください。

QR コード

プチコンmkII 向けの QR コードです。

ＰＲＧ：ＴＥＧＡＫＩ

プログラムリスト

ＡＣＬＳ
ＣＬＥＡＲ
Ｗ＝１６７
ＤＩＭ　ＣＯＡＤ＄（Ｗ），Ｓ＄（Ｗ），Ｉ（４，４）
ＲＥＳＴＯＲＥ　＠ＤＡＴＡ
ＦＯＲ　Ｉ＝０　ＴＯ　Ｗ－１
ＲＥＡＤ　ＣＯＡＤ＄（Ｉ），Ｓ＄（Ｉ）
ＮＥＸＴ
ＲＥＳＴＯＲＥ　＠ＳＵＺＩ
ＦＯＲ　Ｙ＝１　ＴＯ　３
ＦＯＲ　Ｘ＝１　ＴＯ　３
ＲＥＡＤ　Ｉ（Ｘ，Ｙ）
ＮＥＸＴ
ＮＥＸＴ
ＰＮＬＴＹＰＥ　”ＯＦＦ”
Ｚ＄＝”０”
＠ＬＯＯＰ
ＧＰＡＧＥ　１
ＦＯＲ　ＦＸ＝０　ＴＯ　２５５　ＳＴＥＰ　２５５／３
ＦＯＲ　ＦＹ＝０　ＴＯ　１９１　ＳＴＥＰ　１９１／３
ＧＬＩＮＥ　ＦＸ，０，ＦＸ，１９１，１１
ＧＬＩＮＥ　０，ＦＹ，２５５，ＦＹ，１１
ＮＥＸＴ
ＮＥＸＴ
ＴＸ＝ＴＣＨＸ：ＴＹ＝ＴＣＨＹ
Ｘ＝（ＴＸ／（２５５／３））＋１：Ｙ＝（ＴＹ／（１９１／３））＋１
ＳＸ＝ＦＬＯＯＲ（Ｘ）：ＳＹ＝ＦＬＯＯＲ（Ｙ）
ＩＦ　ＳＸ＝＝４　ＴＨＥＮ　ＳＸ＝３
ＩＦ　ＳＹ＝＝４　ＴＨＥＮ　ＳＹ＝３
Ｚ＝Ｉ（ＳＸ，ＳＹ）＊ＴＣＨＳＴ
ＣＯＬ＝１５：ＧＯＳＵＢ　＠ＳＥＴＬＩＮＴ
ＷＡＩＴ　１
Ｘ＿＝（ＴＣＨＸ／（２５５／３））＋１：Ｙ＿＝（ＴＣＨＹ／（１９１／３））＋１
ＳＸ＿＝ＦＬＯＯＲ（Ｘ＿）：ＳＹ＿＝ＦＬＯＯＲ（Ｙ＿）
ＩＦ　ＳＸ＿＝＝４　ＴＨＥＮ　ＳＸ＿＝３
ＩＦ　ＳＹ＿＝＝４　ＴＨＥＮ　ＳＹ＿＝３
Ｚ＿＝Ｉ（ＳＸ＿，ＳＹ＿）＊ＴＣＨＳＴ
ＩＦ　ＴＣＨＳＴ＝＝１　ＴＨＥＮ　ＤＸ＄＝ＳＴＲ＄（ＳＸ＿）：ＤＹ＄＝ＳＴＲ＄（ＳＹ＿）　ＥＬＳＥ　ＤＸ＄＝”０”：ＤＹ＄＝”０”
ＩＦ　ＳＸ！＝ＳＸ＿　ＴＨＥＮ　Ｘ＄＝Ｘ＄＋ＤＸ＄
ＩＦ　ＳＹ！＝ＳＹ＿　ＴＨＥＮ　Ｙ＄＝Ｙ＄＋ＤＹ＄
ＩＦ　Ｚ！＝Ｚ＿　ＡＮＤ　ＢＵＴＴＯＮ（）＝＝０　ＴＨＥＮ　Ｚ＄＝Ｚ＄＋ＳＴＲ＄（Ｚ＿）
ＩＦ　ＢＵＴＴＯＮ（１）＝＝１６　ＴＨＥＮ　ＧＯＳＵＢ　＠ＫＡＩＳＥＫＩ：Ｚ＄＝”０”：Ｘ＄＝””：Ｙ＄＝””：ＣＬＳ：ＧＣＬＳ
ＩＦ　ＢＵＴＴＯＮ（１）＝＝３２　ＴＨＥＮ　Ｚ＄＝”０”：Ｘ＄＝””：Ｙ＄＝””：ＣＬＳ：ＧＣＬＳ
ＩＦ　ＢＵＴＴＯＮ（１）＝＝１２８　ＡＮＤ　ＬＥＮ（Ｄ＄）＞０　ＴＨＥＮ　Ｄ＄＝ＭＩＤ＄（Ｄ＄，０，ＬＥＮ（Ｄ＄）－１）：：Ｚ＄＝”０”：Ｘ＄＝””：Ｙ＄＝””：ＣＬＳ：ＧＣＬＳ
ＬＯＣＡＴＥ　０，０
？Ｆ＄：？Ｄ＄：？Ｚ＄
ＧＯＴＯ　＠ＬＯＯＰ

＠ＤＡＴＡ
ＤＡＴＡ　”０２５４７０２５６９０４５６０”，”Ａ”
ＤＡＴＡ　”０１４７０１２３６５４５６９８７０”，”Ｂ”
ＤＡＴＡ　”０３２１４７８９０”，”Ｃ”
ＤＡＴＡ　”０１４７０１２３６９８７０”，”Ｄ”
ＤＡＴＡ　”０１４７０１２３０４５６０７８９０”，”Ｅ”
ＤＡＴＡ　”０１４７０１２３０４５０７８９０”，”Ｅ”
ＤＡＴＡ　”０１２３０１４７８９０４５６０”，”Ｅ”
ＤＡＴＡ　”０１２３０４５６０１４７８９０”，”Ｅ”
ＤＡＴＡ　”０１４７０１２３０４５６０”，”Ｆ”
ＤＡＴＡ　”０１４７０１２３０４５０”，”Ｆ”
ＤＡＴＡ　”０３２１４７８９０５６９０”，”Ｇ”
ＤＡＴＡ　”０１４７０４５６０３６９０”，”Ｈ”
ＤＡＴＡ　”０１２３０２５８０７８９０”，”Ｉ”
ＤＡＴＡ　”０１２３０２５８７０”，”Ｊ”
ＤＡＴＡ　”０１４７０３６５６９０”，”Ｋ”
ＤＡＴＡ　”０１４７０３２５４５８９０”，”Ｋ”
ＤＡＴＡ　”０１４７８９０”，”Ｌ”
ＤＡＴＡ　”０７４１４５６３６９０”，”Ｍ”
ＤＡＴＡ　”０７４１４５８９６３０”，”Ｎ”
ＤＡＴＡ　”０２１４７８９６３２０”，”Ｏ”
ＤＡＴＡ　”０１４７０１２３６５４０”，”Ｐ”
ＤＡＴＡ　”０２１４７８９６３２０５８９０”，”Ｑ”
ＤＡＴＡ　”０１４７０１２３６５８９０”，”Ｒ”
ＤＡＴＡ　”０１４７０１２３６５４７８９０”，”Ｒ”
ＤＡＴＡ　”０３２１４５６９８７０”，”Ｓ”
ＤＡＴＡ　”０１２３０２５８０”，”Ｔ”
ＤＡＴＡ　”０１４７８９６３０”，”Ｕ”
ＤＡＴＡ　”０１４５８５６３０”，”Ｖ”
ＤＡＴＡ　”０１４７８５８９６３０”，”Ｗ”
ＤＡＴＡ　”０１４５８９０３６５８７０”，”Ｘ”
ＤＡＴＡ　”０１４５８９０３６５８７０”，”Ｘ”
ＤＡＴＡ　”０１４５８０３６５０”，”Ｙ”
ＤＡＴＡ　”０１４５０３６５８０”，”Ｙ”
ＤＡＴＡ　”０１２３６５８７８９０”，”Ｚ”

ＤＡＴＡ　”０５４７８５８０”，”ａ”
ＤＡＴＡ　”０１４７４５８７０”，”ｂ”
ＤＡＴＡ　”０５４７８０”，”ｃ”
ＤＡＴＡ　”０２５８５４７８０”，”ｄ”
ＤＡＴＡ　”０４５２１４７８０”，”ｅ”
ＤＡＴＡ　”０４５６０８５２３０”，”ｆ”
ＤＡＴＡ　”０２１４５２５８７０”，”ｇ”
ＤＡＴＡ　”０１４７４５８０”，”ｈ”
ＤＡＴＡ　”０２０５８０”，”ｉ”
ＤＡＴＡ　”０２０５８７０”，”ｊ”
ＤＡＴＡ　”０１４７０５８７０７８０”，”ｋ”
ＤＡＴＡ　”０１４７０５８４５６４０４７８０”，”ｋ”
ＤＡＴＡ　”０２５８０”，”ｌ”
ＤＡＴＡ　”０４７４５８５６９０”，”ｍ”
ＤＡＴＡ　”０４７４５８０”，”ｎ”
ＤＡＴＡ　”０５４７７３３８５４０”，”ｏ”
ＤＡＴＡ　”０５４７８５２２４５８５０”，”ｏ”
ＤＡＴＡ　”０４７８５４０”，”ｏ”
ＤＡＴＡ　”０１２５８２４４１４７０”，”ｐ”
ＤＡＴＡ　”０２１４５２５８０”，”ｑ”
ＤＡＴＡ　”０４７８５０”，”ｒ”
ＤＡＴＡ　”０４７４５０”，”ｒ”
ＤＡＴＡ　”０２１４５８７０”，”ｓ”
ＤＡＴＡ　”０４５６０２５８９０”，”ｔ”
ＤＡＴＡ　”０４７８５８０”，”ｕ”
ＤＡＴＡ　”０４７８９６０”，”ｖ”
ＤＡＴＡ　”０４７８５８９６０”，”ｗ”
ＤＡＴＡ　”０１４５８０２５４７０”，”ｘ”
ＤＡＴＡ　”０１４５２５８７０”，”ｙ”
ＤＡＴＡ　”０１２５４７８０”，”ｚ”

ＤＡＴＡ　”０３２５８９６３０３６５８０”，”０”
ＤＡＴＡ　”０２５８９６３２０３６５８０”，”０”
ＤＡＴＡ　”０３６９０”，”１”
ＤＡＴＡ　”０３５０３６９０”，”１”
ＤＡＴＡ　”０２３６５８９０”，”２”
ＤＡＴＡ　”０２３６５６９８０”，”３”
ＤＡＴＡ　”０２５６０３６９０”，”４”
ＤＡＴＡ　”０３６５６０３６９０”，”４”
ＤＡＴＡ　”０２３０２５６９８０”，”５”
ＤＡＴＡ　”０３２５８９６５０”，”６”
ＤＡＴＡ　”０２５８９６５０”，”６”
ＤＡＴＡ　”０２５０２３６９０”，”７”
ＤＡＴＡ　”０２３６９０”，”７”
ＤＡＴＡ　”０２５０２３６５８０”，”７”
ＤＡＴＡ　”０２３６５８０”，”７”
ＤＡＴＡ　”０３２５６９８５６３０”，”８”
ＤＡＴＡ　”０２５６９８５６３２０”，”８”
ＤＡＴＡ　”０２５６９８５６３０”，”８”
ＤＡＴＡ　”０３２５６３６９０”，”９”
ＤＡＴＡ　”０３２５６３６９８０”，”９”
ＤＡＴＡ　”０３２５６３６５８０”，”９”

ＤＡＴＡ　”０１２３６０５８０”，”ア”
ＤＡＴＡ　”０１２３６０５８７０”，”ア”
ＤＡＴＡ　”０３２５４０５８０”，”イ”
ＤＡＴＡ　”０２５０４５６９８０”，”ウ”
ＤＡＴＡ　”０４５６０５８０７８９０”，”エ”
ＤＡＴＡ　”０１２３０３６９０３６５８７０”，”オ”
ＤＡＴＡ　”０１２３６９０２５８０”，”カ”
ＤＡＴＡ　”０４５６９０２５８０”，”カ”
ＤＡＴＡ　”０４５６０７８９０２５８０”，”キ”
ＤＡＴＡ　”０２５４０２３６５８０”，”ク”
ＤＡＴＡ　”０２５４７０５６９８０”，”ケ”
ＤＡＴＡ　”０１２３６９８７０”，”コ”
ＤＡＴＡ　”０４５６０１４０３６９８０”，”サ”
ＤＡＴＡ　”０１２０４５０７８９６３０”，”シ”
ＤＡＴＡ　”０１２３６５８７０５８９０”，”ス”
ＤＡＴＡ　”０１２３６５０１４７８９０”，”セ”
ＤＡＴＡ　”０１４５０３６９８０”，”ソ”
ＤＡＴＡ　”０２５４０２３６９８０５６０”，”タ”
ＤＡＴＡ　”０３２１０４５６０２５８７０”，”チ”
ＤＡＴＡ　”０１４０２５０３６９８０”，”ツ”
ＤＡＴＡ　”０１２３０４５６０５８７０”，”テ”
ＤＡＴＡ　”０２５８０５６０”，”ト”
ＤＡＴＡ　”０４５６０２５８７０”，”ナ”
ＤＡＴＡ　”０１２３０７８９０”，”ニ”
ＤＡＴＡ　”０２０７８９０”，”ニ”
ＤＡＴＡ　”０１２３６５８７０４５８９０”，”ヌ”
ＤＡＴＡ　”０２０４５６５８７０５８９０５８０”，”ネ”
ＤＡＴＡ　”０２５０４５６５８７０５８９０５８０”，”ネ”
ＤＡＴＡ　”０３６５８７０”，”ノ”
ＤＡＴＡ　”０１４７０３６９０”，”ハ”
ＤＡＴＡ　”０２５４７０２５６９０”，”ハ”
ＤＡＴＡ　”０４５６０１４７８９０”，”ヒ”
ＤＡＴＡ　”０１２３６５８７０”，”フ”
ＤＡＴＡ　”０４５２５６９０”，”ヘ”
ＤＡＴＡ　”０４５６０２５８０７０９０”，”ホ”
ＤＡＴＡ　”０１２３６５０４５８０”，”マ”
ＤＡＴＡ　”０１２３０４５６０７８９０”，”ミ”
ＤＡＴＡ　”０２５４７８９０６９０”，”ム”
ＤＡＴＡ　”０２５６０３６５８７０”，”メ”
ＤＡＴＡ　”０１２３０４５６０２５８９０”，”モ”
ＤＡＴＡ　”０４５６９８０２５８０”，”ヤ”
ＤＡＴＡ　”０１２５８０７８９０”，”ユ”
ＤＡＴＡ　”０１２３６９０４５６０７８９０”，”ヨ”
ＤＡＴＡ　”０１２３０４５６９８０”，”ラ”
ＤＡＴＡ　”０１４０３６９８０”，”リ”
ＤＡＴＡ　”０１４７０２５８９０”，”ル”
ＤＡＴＡ　”０１４７８９６０”，”レ”
ＤＡＴＡ　”０１４７０１２３６９０７８９０”，”ロ”
ＤＡＴＡ　”０１４０１２３６９８０”，”ワ”
ＤＡＴＡ　”０１２３６９８０４５６０”，”ヲ”
ＤＡＴＡ　”０１２０７８９６３０”，”ン”

ＤＡＴＡ　”０４０５０６９８０”，”ッ”
ＤＡＴＡ　”０４５６９０５８０”，”ャ”
ＤＡＴＡ　”０４５８０７８９０”，”ュ”
ＤＡＴＡ　”０１２５８０４５０７８０”，”ョ”

ＤＡＴＡ　”０５８９０”，”、”
ＤＡＴＡ　”０９０”，”、”
ＤＡＴＡ　”０５８９６５０”，”。”
ＤＡＴＡ　”０６５８９６０”，”。”
ＤＡＴＡ　”０１２３６５０８０”，”？”
ＤＡＴＡ　”０４１２３６５０８０”，”？”
ＤＡＴＡ　”０２５０８０”，”！”
ＤＡＴＡ　”０１４０１２０”，”「”
ＤＡＴＡ　”０２５０２３０”，”「”
ＤＡＴＡ　”０８９０６９０”，”」”
ＤＡＴＡ　”０７８０５８０”，”」”
ＤＡＴＡ　”０２１４７８０”，”（”
ＤＡＴＡ　”０３２５８９０”，”（”
ＤＡＴＡ　”０１２５８７０”，”）”
ＤＡＴＡ　”０２３６９８０”，”）”
ＤＡＴＡ　”０４５６０”，”－”
ＤＡＴＡ　”０２５０３６０”，”゛”
ＤＡＴＡ　”０１４０２５０”，”゛”
ＤＡＴＡ　”０３２５６３０”，”゜”
ＤＡＴＡ　”０２５６３２０”，”゜”
ＤＡＴＡ　”０２１４５２０”，”゜”
ＤＡＴＡ　”０１４５２１０”，”゜”
ＤＡＴＡ　””

＠ＳＵＺＩ
ＤＡＴＡ　１，２，３
ＤＡＴＡ　４，５，６
ＤＡＴＡ　７，８，９

＠ＫＡＩＳＥＫＩ
Ｆ＄＝””
ＦＯＲ　Ｉ＝０　ＴＯ　Ｗ－１
ＩＦ　ＣＯＡＤ＄（Ｉ）＝＝Ｚ＄　ＴＨＥＮ　Ｆ＄＝Ｓ＄（Ｉ）
ＮＥＸＴ
Ｄ＄＝Ｄ＄＋Ｆ＄
ＲＥＴＵＲＮ

＠ＳＥＴＬＩＮＴ
ＩＦ　ＴＣＨＳＴ＝＝０　ＴＨＥＮ　ＯＴ＝０：ＲＥＴＵＲＮ
ＩＦ　ＯＴ＝＝０　ＴＨＥＮ　ＯＸ＝ＴＸ：ＯＹ＝ＴＹ
’セン　ヲ　ヒク　ショリ　２
＠ＬＩＮＥ
ＧＬＩＮＥ　ＯＸ，ＯＹ，ＴＸ，ＴＹ，ＣＯＬ
ＯＸ＝ＴＸ：ＯＹ＝ＴＹ：ＯＴ＝１
ＲＥＴＵＲＮ

CHECKER FLAG (ひとことコメント)

この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)

名無しさん : 9分割だとパターン簡単でいいけどその分読み取りづらいですね。 (2013/03/31 (日) 21:43:06)

メニュー【mkII】

プチコン3号まとめWiki

ヘルプ

リンク

Petit Computer Wiki

プチコンリンク集

オンライン情報

現在同時に 1 人がこのサイトを見ています

ページの先頭に戻る

プチコンまとめWiki (初代/mkII)

投稿プログラム : 手書き入力プログラム

パンくずリスト

概要

操作方法

スクリーンショット・動画

QR コード

プログラムリスト

CHECKER FLAG (ひとことコメント)

メニュー【mkII】

ヘルプ

リンク

最近の更新

2022/08/29

2022/07/29

2022/05/18

2022/05/01

2022/03/18

オンライン情報

プチコンまとめWiki (初代/mkII)

投稿プログラム : 手書き入力プログラム

パンくずリスト

概要

操作方法

スクリーンショット・動画

QR コード

プログラムリスト

CHECKER FLAG (ひとことコメント)

メニュー 【mkII】

ヘルプ

リンク

最近の更新

2022/08/29

2022/07/29

2022/05/18

2022/05/01

2022/03/18

オンライン情報

メニュー【mkII】