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

投稿プログラム : プチコン用ひらがなフォント「PETIKANA」

パンくずリスト

2012年4月17日投稿 / 投稿者 : こあ/co.a / タグ : 投稿プログラム 投稿素材 フォント QRコード mkII専用

概要

PETIKANAは、5x7ドットのひらがなフォントです。
以下で紹介する、PETIKANA利用のためのサブルーチン集に組み込まれています。

”ＰＲＧ：ＰＥＴＩＫＡＮＡ”

”ＰＲＧ：ＰＥＴＩＫＡＮＡ” は、以下のサブルーチン集とその使用サンプルコードのセットです。
実行するとプチコンフォントの一部をひらがなフォント「PETIKANA」に書き換えた後、説明文を表示します。
以下に各サブルーチンの説明を記述します。

＠ＰＥＴＩＫＡＮＡ

プチコンフォントの一部をひらがなフォント「PETIKANA」に書き換えるサブルーチンです。
ＧＯＳＵＢ　＠ＰＥＴＩＫＡＮＡ で呼び出せます。

＠ＰＫＮ

文字列内の＠で囲まれた範囲を、カタカナからひらがなに変換するサブルーチンです。
以下の文字列に関しても変換されます。

  • −(マイナス) → ー(長音)
  • ｀ → ”

ＰＫＮ＄ に変換したい文字列を代入した後、
ＧＯＳＵＢ　＠ＰＫＮ でサブルーチンを呼び出すと、
ＰＫＮ＄ に変換済み文字列が格納されます。

”ＰＲＧ：ＰＴＫＡＮＡ＿Ｓ”

こちらは、実際に ＭＥＲＧＥ して利用するため、”ＰＲＧ：ＰＥＴＩＫＡＮＡ” からサンプルコードを抜いたものです。
サブルーチン内のコメントとインデントも削って省サイズ化しております。

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

スクリーンショットの代わりに、フォント一覧画像を貼り付けておきます。
petikana_font.png

QR コード

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

”ＰＲＧ：ＰＥＴＩＫＡＮＡ”

PRG:PETIKANA
petikana01.pngpetikana02.png
1/22/2

”ＰＲＧ：ＰＴＫＡＮＡ＿Ｓ”

PRG:PTKANA_S
ptkana_s01.png
1/1

プログラムリスト

”ＰＲＧ：ＰＥＴＩＫＡＮＡ” のリストのみ記載します。

  1. ＣＬＥＡＲ：ＡＣＬＳ
  2. ＦＯＲ　Ｉ＝０　ＴＯ　２５５
  3. 　？ＣＨＲ＄（Ｉ）；
  4. ＮＥＸＴ
  5. ＧＯＳＵＢ　＠ＰＥＴＩＫＡＮＡ
  6. ？
  7. ＲＥＳＴＯＲＥ　＠ＲＥＡＤＭＥ
  8. ＠ＲＥＡＤ
  9. ＲＥＡＤ　ＰＫＮ＄
  10. ＧＯＳＵＢ　＠ＰＫＮ
  11. ＩＦ　ＰＫＮ＄！＝”Ｅ”　ＴＨＥＮ　？ＰＫＮ＄：ＧＯＴＯ　＠ＲＥＡＤ
  12. ＠ＫＥＹＬＯＯＰ
  13. ＩＦ　ＩＮＫＥＹ＄（）＝＝””　ＡＮＤ　ＢＵＴＴＯＮ（０）＝＝０　ＧＯＴＯ　＠ＫＥＹＬＯＯＰ
  14. ＥＮＤ
  16. ＠ＲＥＡＤＭＥ
  17. ＤＡＴＡ　”●フ゜チコン＠ヨウ　ヒラカ゛ナ＠フォント　「ＰＥＴＩＫＡＮＡ」”
  18. ＤＡＴＡ　”・＠＠ＰＥＴＩＫＡＮＡ”
  19. ＤＡＴＡ　”　フォント＠ヲ　ヒラカ゛ナニ　カキカエル＠　サフ゛ルーチン”
  20. ＤＡＴＡ　”　「ＧＯＳＵＢ　＠＠ＰＥＴＩＫＡＮＡ」＠テ゛　カキカエ＠”
  21. ＤＡＴＡ　”・＠＠ＰＫＮ”
  22. ＤＡＴＡ　”　＠モシ゛レツヲ＠　カナ→＠カナ　ニ　ヘンカンスル＠　サフ゛ルーチン”
  23. ＤＡＴＡ　”　−（マイナス）＠→−（チョウオン）＠　｀＠→｀　ニモ　ヘンカン＠”
  24. ＤＡＴＡ　”　ＰＫＮ＄＠ニ　ヘンカンシタイ　カショヲ＠　＠＠＠テ゛　カコンテ゛＠”
  25. ＤＡＴＡ　”　＠タ゛イニュウコ゛＠　「ＧＯＳＵＢ　＠＠ＰＫＮ」＠ヲ　ヨヒ゛タ゛スト＠”
  26. ＤＡＴＡ　”　ＰＫＮ＄＠ニ　ヘンカンス゛ミ　モシ゛レツカ゛　カクノウサレル＠”
  27. ＤＡＴＡ　”＊サフ゛ルーチン＠ノミ　ハ゛ッスイシ　＠コメント＠ト＠　インテ゛ント＠ヲ＠”
  28. ＤＡＴＡ　”　＠ケス゛ッタ　｀ＰＲＧ：ＰＴＫＡＮＡ＿Ｓ｀モ　アリマスノテ゛＠”
  29. ＤＡＴＡ　”　＠コ゛リヨウノ　サイハ　ソチラヲ　ＭＥＲＧＥ　シテクタ゛サイ＠”
  30. ＤＡＴＡ　”−−−−−−−−−　ＨＩＴ　ＡＮＹ　ＫＥＹ　−−−−−−−−−”
  31. ＤＡＴＡ　”Ｅ”
  33. ’フ゜チコン　ヨウ　ヒラカ゛ナフォント
  34. ＠ＰＥＴＩＫＡＮＡ　’ｂｙ　ｃｏ．ａ
  35. 　ＲＥＳＴＯＲＥ　＠ＳＰＫＤ
  37. 　’モシ゛コート゛　ヨミコミ
  38. 　ＤＩＭ　ＳＰＫＡ［５６］
  39. 　ＳＰＫＮ＝０
  40. 　ＦＯＲ　ＳＰＫＩ＝１　ＴＯ　９
  41. 　　ＲＥＡＤ　ＳＰＫＦ，ＳＰＫＴ
  42. 　　ＦＯＲ　ＳＰＫＪ＝ＳＰＫＦ　ＴＯ　ＳＰＫＴ
  43. 　　　ＳＰＫＡ［ＳＰＫＮ］＝ＳＰＫＪ
  44. 　　　ＳＰＫＮ＝ＳＰＫＮ＋１
  45. 　　ＮＥＸＴ
  46. 　ＮＥＸＴ
  48. 　’フォントテ゛ータ　ヨミコミ
  49. 　ＲＥＡＤ　ＳＰＫＤ＄，ＳＰＫ２＄，ＳＰＫ３＄
  50. 　ＳＰＫＤ＄＝ＳＰＫＤ＄＋ＳＰＫ２＄＋ＳＰＫ３＄
  52. 　’メイン
  53. 　ＳＰＫＮ＝０：ＳＰＫＣ＝０
  54. 　ＦＯＲ　ＳＰＫＩ＝０　ＴＯ　ＬＥＮ（ＳＰＫＤ＄）−１
  56. 　　’アスキーコート゛カラ　フォント　セイセイ
  57. 　　ＳＰＫＤ＝ＡＳＣ（ＭＩＤ＄（ＳＰＫＤ＄，ＳＰＫＩ，１））　ＸＯＲ　２１
  58. 　　ＦＯＲ　ＳＰＫＪ＝０　ＴＯ　７
  60. 　　　’フォントテイキ゛　モシ゛レツ　クリア
  61. 　　　ＩＦ　ＳＰＫＣ＝＝０　ＴＨＥＮ　ＳＰＫＦ＄＝””
  63. 　　　’フォント　ヒタ゛リ１ｄｏｔハ　０コテイ
  64. 　　　ＩＦ　ＳＰＫＣ％５＝＝０　ＴＨＥＮ　ＳＰＫＦ＄＝ＳＰＫＦ＄＋”０”
  66. 　　　’１ｂｉｔス゛ツ　フォントテイキ゛ニ　ヘンカン
  67. 　　　ＳＰＫＦ＄＝ＳＰＫＦ＄＋ＣＨＲ＄（４８＋（ＳＰＫＤ％２）＊２２）
  68. 　　　ＳＰＫＤ＝ＳＰＫＤ／２　ＡＮＤ　２５５
  69. 　　　ＳＰＫＣ＝ＳＰＫＣ＋１
  71. 　　　’フォント　ミキ゛３ｄｏｔハ　０コテイ
  72. 　　　ＩＦ　ＳＰＫＣ％５＝＝０　ＴＨＥＮ　ＳＰＫＦ＄＝ＳＰＫＦ＄＋”００”
  74. 　　　’フォントテイキ゛カ゛　７レツ　テ゛キレハ゛　セット
  75. 　　　ＩＦ　ＳＰＫＣ＜３５　ＧＯＴＯ　＠ＳＰＫＸ
  77. 　　　　’ラスト　１ラインハ　０コテイ
  78. 　　　　ＳＰＫＦ＄＝ＳＰＫＦ＄＋”００００００００”
  80. 　　　　ＣＨＲＳＥＴ　”ＢＧＦ０”，ＳＰＫＡ［ＳＰＫＮ］，ＳＰＫＦ＄
  81. 　　　　ＳＰＫＣ＝０
  82. 　　　　ＳＰＫＮ＝ＳＰＫＮ＋１
  84. 　　＠ＳＰＫＸ
  85. 　　ＮＥＸＴ
  86. 　ＮＥＸＴ
  87. ＲＥＴＵＲＮ
  89. ’フォントテ゛ータ
  90. ＠ＳＰＫＤ
  91. ＤＡＴＡ　３，８，１４，１７，２１，２３，２６，２７，１２８，１４３，１５６，１５９，１７６，１７６，２３２，２３９，２４４，２５５
  92. ＤＡＴＡ　”ё＞カ┿н─）ニАСオア１С％３４У─ｌＱ！Сチ％〜РＥ［ＧУСヌЙГС←６ロУСЗ┬ХЫムж＞Ｔ┰＄Вгユ│ДГП＋７３┥＞ノ┫＿ンセＧ７аГ└┿Ｖ┰←ＴД＿（ーＱユ│”
  93. ＤＡＴＡ　”ＵОＺлＶ−ュДＷ┰ワオレАＶОシコ━д┘лＶОБＺлＥ’ЫёＴンユ│Д７У＋７Ｗｅ４┠←ヤ┥＞ЕニО●ДＷヤ＿ャＮ「ВＲフシ　％クテシС←ЙС─ｏ＿ク６ア」━┣→７｝ク”
  94. ＤＡＴＡ　”О←ＤЁО）■チ／７┻ｉニзＥ゜コ◇ム◇ｖ］┼━ホィ＿４┘−┣→■。Ａ┿。ＮМГ┬ｅｗ┷！］ュ←К┸＄ＷＱЗ’］Ｃ２チＦ〜￥├┰┥ナ→ヲケ┫＿←４＿Ｘ”
  96. ’カタカタ→ヒラカ゛ナ　ヘンカン
  97. ＠ＰＫＮ
  98. 　’ショキカ
  99. 　ＰＫＮＶ＄＝ＰＫＮ＄
  100. 　ＰＫＮ＄＝””
  102. 　’メインルーフ゜
  103. 　＠ＰＫＮＭ
  104. 　　’＠ノ　カイシイチ　シュトク
  105. 　　ＰＫＮＡ＝ＩＮＳＴＲ（ＰＫＮＶ＄，”＠”）
  106. 　　ＩＦ　ＰＫＮＡ＝＝−１　ＧＯＴＯ　＠ＰＫＮＲ
  108. 　　’＠ノ　マエノ　モシ゛レツヲ　ケッカニ　カクノウ
  109. 　　ＰＫＮ＄＝ＰＫＮ＄＋ＬＥＦＴ＄（ＰＫＮＶ＄，ＰＫＮＡ）
  110. 　　ＰＫＮＶ＄＝ＲＩＧＨＴ＄（ＰＫＮＶ＄，ＬＥＮ（ＰＫＮＶ＄）−ＰＫＮＡ−１）
  112. 　　’＠ノ　シュウリョウイチ　シュトク
  113. 　　ＰＫＮＥ＝ＩＮＳＴＲ（ＰＫＮＶ＄，”＠”）
  114. 　　ＩＦ　ＰＫＮＥ＝＝−１　ＧＯＴＯ　＠ＰＫＮＭ
  116. 　　’＠＠ハ　＠ニ　ヘンカン
  117. 　　ＩＦ　ＰＫＮＥ＝＝０　ＴＨＥＮ　ＰＫＮ＄＝ＰＫＮ＄＋”＠”
  119. 　　’カタカナ−ヒラカ゛ナ　ヘンカン　ルーフ゜
  120. 　　ＦＯＲ　ＰＫＮＩ＝０　ＴＯ　ＰＫＮＥ−１
  121. 　　　ＰＫＮＣ＄＝ＭＩＤ＄（ＰＫＮＶ＄，ＰＫＮＩ，１）
  122. 　　　ＧＯＳＵＢ　＠ＰＫＮＣ
  123. 　　　ＰＫＮ＄＝ＰＫＮ＄＋ＰＫＮＣ＄
  124. 　　ＮＥＸＴ
  125. 　　ＰＫＮＶ＄＝ＲＩＧＨＴ＄（ＰＫＮＶ＄，ＬＥＮ（ＰＫＮＶ＄）−ＰＫＮＥ−１）
  126. 　　ＧＯＴＯ　＠ＰＫＮＭ
  128. 　’メインルーフ゜　オワリ
  129. 　＠ＰＫＮＲ
  130. 　ＰＫＮ＄＝ＰＫＮ＄＋ＰＫＮＶ＄
  131. ＲＥＴＵＲＮ
  133. ’カタカナ→ヒラカ゛ナ　ヘンカン（１モシ゛）
  134. ＠ＰＫＮＣ
  135. 　’ナカ゛サ　チェック
  136. 　ＩＦ　ＬＥＮ（ＰＫＮＣ＄）！＝１　ＴＨＥＮ　ＲＥＴＵＲＮ
  138. 　ＰＫＣＡ＝ＡＳＣ（ＰＫＮＣ＄）
  140. 　’−（マイナス）ハ　ー（チョウオン）ニ　ヘンカン
  141. 　ＩＦ　ＰＫＣＡ＝＝４５　ＴＨＥＮ　ＰＫＮＣ＄＝”ー”：ＲＥＴＵＲＮ
  143. 　’｀ハ　”ニ　ヘンカン
  144. 　ＩＦ　ＰＫＣＡ＝＝９６　ＴＨＥＮ　ＰＫＮＣ＄＝ＣＨＲ＄（３４）：ＲＥＴＵＲＮ
  146. 　’ヘンカン　タイショウカ゛イ　ナラ　モト゛ル
  147. 　ＰＫＣＡ＝ＰＫＣＡ−１６３
  148. 　ＩＦ　ＰＫＣＡ＜３　ＴＨＥＮ　ＲＥＴＵＲＮ
  149. 　ＩＦ　ＰＫＣＡ＝＝１３　ＴＨＥＮ　ＲＥＴＵＲＮ
  150. 　ＩＦ　ＰＫＣＡ＞５８　ＴＨＥＮ　ＲＥＴＵＲＮ
  152. 　’カタカナハ　ヒラカ゛ナニ　ヘンカン
  153. 　ＩＦ　ＰＫＣＡ＞８　ＴＨＥＮ　ＰＫＣＡ＝ＰＫＣＡ＋５
  154. 　ＩＦ　ＰＫＣＡ＞１７　ＴＨＥＮ　ＰＫＣＡ＝ＰＫＣＡ＋２
  155. 　ＩＦ　ＰＫＣＡ＞２３　ＴＨＥＮ　ＰＫＣＡ＝ＰＫＣＡ＋２
  156. 　ＩＦ　ＰＫＣＡ＞２７　ＴＨＥＮ　ＰＫＣＡ＝ＰＫＣＡ＋１００
  157. 　ＩＦ　ＰＫＣＡ＞１４３　ＴＨＥＮ　ＰＫＣＡ＝ＰＫＣＡ＋１２
  158. 　ＩＦ　ＰＫＣＡ＞１５９　ＴＨＥＮ　ＰＫＣＡ＝ＰＫＣＡ＋７２
  159. 　ＩＦ　ＰＫＣＡ＞２３９　ＴＨＥＮ　ＰＫＣＡ＝ＰＫＣＡ＋４
  160. 　ＰＫＮＣ＄＝ＣＨＲ＄（ＰＫＣＡ）
  161. ＲＥＴＵＲＮ

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

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

  • とも : うごくメ○帳でつかっていいですか？ (2012/04/21 (土) 15:33:54)
  • 匿名 : どうやって使うんだよ (2012/04/21 (土) 17:38:52)
  • こあ/co.a : うごメモでのご使用、どうぞどうぞ。あと、使い方に関しては"PRG:PETIKANA"を読んだりいじくったりすると分かりやすいかも。 (2012/04/21 (土) 22:48:53)
  • 名無しさん : QRコードのところをちょっと見やすく変えてみました。おきに召さなければバックアップから戻してください。 (2012/04/29 (日) 16:55:57)
  • こあ/co.a : あ、うごメモでどう使うんだよ！ってことか。目トレースだと思う、きっと。メモできたらURL希望です。あとwiki整形ありがとう！ (2012/05/08 (火) 09:39:50)
  • hoy : 2012.5.16 投稿の「お誕生日おめでとう！」にひらがなフォントを使わせてもらいました。ありがとうございます。 (2012/05/27 (日) 15:21:17)
  • 菜緒君 : 高校の課題研究でマイコンを使ったLEDグラフィック表示器のフォントに使用したいのですが、よろしいですか？ (2012/06/08 (金) 01:00:18)
  • こあ/co.a : どういたしまして。LEDグラフィックの方も、どうぞどうぞ。 (2012/06/10 (日) 11:29:49)
  • 菜緒君 : ありがとうございます。 (2012/06/12 (火) 21:07:50)
  • ウイング : ＰＲＧじゃなくて、ＢＧＦでロードする、ひらがなフォントが欲しいです (2012/07/26 (木) 10:53:02)
  • 名無しさん : ↑SAVE"BGF:PETIKANAでいいと思う。 (2012/07/26 (木) 12:36:13)
  • わぁぃ＠ : うごメモでの使い方（上級者向け）：GRPにフォント一覧を作成してそれをGIF等に変換してさらにPPMに変換したらうごメモが入っているフォルダにそれをぶち込み最後に管理ファイルをいじって終了。
    意外と管理ファイルがいじれずに失敗するのでいじれるソフトがあるか確認すること。 (2012/08/05 (日) 18:01:17)
  • 涼季遊 : 現在作成中のギャルゲーに使用して(非公式)プチコンコンテスト投稿に投稿したいのですが、よろしいですか？ (2012/08/16 (木) 12:45:17)
  • Lv100 : プログラムリストを見るとカタカタ→ヒラガナってなってるところがある。 (2012/08/16 (木) 12:52:52)
  • Fox : ＠をつけてPKN$を呼び出しても変換されない・・ (2012/08/19 (日) 12:33:23)
  • ウイング : 便利ですね。使ってもいいですか？ (2012/08/19 (日) 12:49:32)
  • わぁぃ@ : ↑素材として投稿していると思うので、普通に使うのであれば大丈夫なはず。 (2012/09/01 (土) 18:34:54)
  • わぁぃ@ : ↑↑変換範囲を終わりにも@をつけましたか？ (2012/09/01 (土) 18:35:51)
  • るかか : 連絡が凄く遅くなってしまい、申し訳ありませんが、現在開発中のゲームで使わせて頂いています (2012/11/23 (金) 13:41:04)
  • n : 事後連絡になってしまい、すみません。 「PETIKANA」ありがたく使わせて頂いてます。サイズがコンパクトで、配布する際にほとんどQRコードが増えない点も素晴らしいですね！ (2013/01/08 (火) 20:41:05)
  • こあ/co.a : 随分放ったらかしで申し訳ないですが、PETIKANAをご利用頂いた皆様、ありがとうございました。他の皆様もプチコンでご自由にご利用ください。ソースコードやフォントの改変もOKです。 (2013/01/29 (火) 22:24:57)
  • 12さいくん(12SsoftWare) : 開発中のOSもどきに使わせてもらいます。 (2013/07/29 (月) 15:38:25)
  • IKKI : こんにちわ、読み込まさせていただきました。 (2013/09/05 (木) 21:16:37)
  • IKKI : ”ＰＲＧ：ＰＴＫＡＮＡ＿Ｓ”で[RETURN without GOSUB (32, RETURN)]と、表示されるのですが、どうしたら良いですか? (2013/09/05 (木) 21:40:18)
    • ふぁーｓ天郷思音 : 仕様ですね。プチコンの仕様というかプログラムの仕様です。もしＧＯＳＵＢを使わずに組み込む場合はＲＥＴＵＲＮを削ってください。 (2013/09/06 (金) 16:09:48)
  • プチコン初心者 : PRINTはDATAに書き換えれば良いんですか？ならINPUTはどうすれば良いんですか？ (2013/09/18 (水) 18:48:45)
  • ちくわ : ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ (2013/09/18 (水) 18:58:00)
  • ふぁーｓ天郷思音 : ＲＥＴＵＲＮをけずる以外そのままで実行してみて。＞プチコン初心者 (2013/09/18 (水) 20:09:04)
  • 愛知っこ : した画面に表示しようとしてもできない (2013/10/07 (月) 18:43:23)
  • 木 : か＠ＡＢＣ (2022/01/31 (月) 10:58:26)

表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.172 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:13 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30