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

投稿プログラム：ローマ字ワープロ

パンくずリスト

2012年9月1日投稿 / 投稿者：わぁぃ＠ / タグ : 投稿プログラム 実用ツール QRコード mkII専用

概要

簡易的なワープロです。

  • ローマ字入力ができます。
  • ひらがなとカタカナの混在表示ができます。
    • 「PETIKANA」フォントのCHRファイルを”ＰＥＴＩＫＡＮＡ”というファイル名で保存しておいて下さい。
    • また、”ＰＲＧ：ＰＥＴＩＫＡＮＡ”より＠ＰＫＮルーチンをお借りしています。
  • MEMリソースやGRPリソースを用いてテキストの読み書きができます。

注意

このプログラムはv0.7です。

  • 小文字は打てません。
  • 一度改行すると前の行に戻れません。

不具合、更新情報

  • 「YA」が「も」に変換される。(2012/09/03 (月) 19:39:10)
    • 72行目のＡＳ＞３５をＡＳ＞３６にすると直るようです。(2012/09/03 (月) 19:39:10)
    • 簡単に修正できるので、修正版は出しません。(2012/09/03 (月) 19:39:10)
  1. ＩＦ　ＡＳ＞３６　ＴＨＥＮ　ＡＳ＝ＡＳ−１

操作方法

入力以外の操作はシステムアイコンで行います。

  • 「ABC」を押すたび、「直接」→「ローマ字カタカナ」→「ローマ字ひらがな」の順に入力モードを切り替わります。
  • ページを切り替え、以下の組み合わせで押すとMEMリソースやGRPリソースに読み書きができます。
    ＼ＭＥＭＧＲＰ
    ↑MEM
    読み込み    		GRP
    読み込み
    ↓MEM
    書き込み    		GRP
    書き込み

QRコード

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

PRG:WAROME
1/22/2
PRG-WAROME-QR0.pngPRG-WAROME-QR1.png
  • 補正がかかって読み込めない場合は、画像をクリックすると等倍サイズのQRコードがご覧になれますのでぜひご利用ください。

プログラムリスト

  1. ’ローマシ゛ワーフ゜ロ　ｖ０．７
  3. ＶＩＳＩＢＬＥ　１，１，０，０，０，０
  4. ＣＬＳ：ＣＯＬＯＲ　０
  5. ＣＬＥＡＲ
  6. ＬＯＡＤ　”ＢＧＦ：ＰＥＴＩＫＡＮＡ”，０
  7. ＩＣＯＮＣＬＲ：ＩＣＯＮＰＵＳＥ＝１
  8. ＩＣＯＮＰＡＧＥ＝０
  9. ＩＣＯＮＳＥＴ　０，３５
  10. ＤＩＭ　ＡＸ＄（８，３）
  11. ＤＡＴＡ　”Ａ”，”Ｉ”，”Ｕ”，”Ｅ”，”Ｏ”
  12. ＤＡＴＡ　”Ｋ”，”Ｓ”，”Ｔ”，”Ｎ”，”Ｈ”
  13. ＤＡＴＡ　”Ｍ”，”Ｙ”，”Ｒ”
  14. ＤＡＴＡ　”Ｇ”，”Ｚ”，”Ｄ”，””，”Ｂ”
  15. ＤＡＴＡ　”Ｐ”
  16. ＤＡＴＡ　４４，”ＷＡ”，−１０，”ＷＯ”
  17. ＤＡＴＡ　４５，”ＮＮ”
  18. ＦＯＲ　Ｉ＝０　ＴＯ　４
  19. ＲＥＡＤ　ＡＹ＄（Ｉ）
  20. ＮＥＸＴ
  21. ＦＯＲ　Ｉ＝０　ＴＯ　７
  22. ＲＥＡＤ　ＡＸ＄（Ｉ，０）
  23. ＮＥＸＴ
  24. ＦＯＲ　Ｉ＝０　ＴＯ　４
  25. ＲＥＡＤ　ＡＸ＄（Ｉ，１）
  26. ＮＥＸＴ
  27. ＲＥＡＤ　ＡＸ＄（０，２）
  28. ＦＯＲ　Ｉ＝０　ＴＯ　２
  29. ＲＥＡＤ　ＲＡＳ（Ｉ），ＲＡＫ＄（Ｉ）
  30. ＮＥＸＴ
  32. ＠ＬＯＯＰ
  33. ＶＳＹＮＣ　１
  34. ＯＩＰ＝ＩＰ：ＩＰ＝ＩＣＯＮＰＡＧＥ
  35. ＩＦ　ＯＩＰ！＝ＩＰ　ＴＨＥＮ　ＩＣＯＮＣＬＲ：ＯＮ　ＩＰ　ＧＯＳＵＢ　＠ＭＥＮＵ１，＠ＭＥＮＵ２
  36. ＩＫ＄＝ＩＮＫＥＹ＄（）：ＩＬ＝ＩＫ＄！＝””
  37. ＩＦ　ＩＫ＄！＝””　ＴＨＥＮ　ＩＫ＝ＡＳＣ（ＩＫ＄）
  38. ＩＦ　ＫＥＹＢＯＡＲＤ＝＝１５　ＴＨＥＮ　ＬＯＣＡＴＥ　ＣＳＲＸ−１，ＣＳＲＹ：ＰＲＩＮＴ　ＣＨＲ＄（０）；：ＬＯＣＡＴＥ　ＣＳＲＸ−１，ＣＳＲＹ
  39. ＩＦ　ＩＫ＄＝＝ＣＨＲ＄（１３）　ＴＨＥＮ　ＰＲＩＮＴ　ＣＨＲ＄（１３）：ＩＷ＄＝””：ＩＫ＄＝””
  40. ＩＦ　ＩＣＯＮＰＡＧＥ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＦＩＬＥＭＥＮＵ　ＥＬＳＥ　ＩＦ　！ＩＣＯＮＣＨＫ（）　ＴＨＥＮ　ＢＥＥＰ　９：ＭＤ＝（ＭＤ＋１）％３：ＩＷ＄＝””：ＩＫ＄＝””：ＷＡＩＴ　２
  41. ＩＦ　！ＩＬ　ＴＨＥＮ　＠ＬＯＯＰ
  42. ＩＦ　！ＭＤ　ＴＨＥＮ　ＰＲＩＮＴ　ＩＫ＄；：ＧＯＴＯ　＠ＬＯＯＰ
  43. ’−（マイナス）ハ　−（チョウオン）ニ　ヘンカン
  44. ＩＦ　ＩＫ＄＝＝”−”　ＴＨＥＮ　ＩＫ＄＝”−”
  45. ＩＦ　ＩＫ＞６４　ＡＮＤ　ＩＫ＜９１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＲＯＭＥ　ＥＬＳＥ　ＰＲＩＮＴ　ＩＫ＄；
  46. ＧＯＴＯ　＠ＬＯＯＰ
  47. ＠ＲＯＭＥ
  48. ＩＷ＄＝ＩＷ＄＋ＩＫ＄
  49. ＦＯＲ　Ｉ＝０　ＴＯ　４
  50. ＩＦ　ＩＷ＄＝＝ＡＹ＄（Ｉ）　ＴＨＥＮ　ＧＯＳＵＢ　＠ＣＨＫ
  51. ＮＥＸＴ
  52. ＩＦ　ＬＥＮ（ＩＷ＄）＞＝２　ＴＨＥＮ　ＧＯＳＵＢ　＠ＣＨＫ
  53. ＲＥＴＵＲＮ
  54. ＠ＣＨＫ
  55. ＤＤ＄＝””：ＡＸ＝０：ＡＹ＝０：Ｊ＝０
  56. ＩＦ　ＬＥＮ（ＩＷ＄）＝＝１　ＴＨＥＮ　Ｊ＝１：ＧＯＴＯ　＠ＳＫＩＰ２
  57. ＩＦ　ＭＩＤ＄（ＩＷ＄，１，１）＝＝”Ｎ”　ＴＨＥＮ　＠ＳＫＩＰ１
  58. ＩＦ　ＭＩＤ＄（ＩＷ＄，０，１）＝＝ＭＩＤ＄（ＩＷ＄，１，１）　ＴＨＥＮ　ＡＳ＝−１：ＧＯＴＯ　＠ＳＫＩＰ３
  59. ＠ＳＫＩＰ１
  60. ＦＯＲ　Ｉ＝０　ＴＯ　７
  61. ＩＦ　Ｉ＜４　ＴＨＥＮ　ＩＦ　ＩＷ＄＝＝ＲＡＫ＄（Ｉ）　ＴＨＥＮ　ＡＳ＝ＲＡＳ（Ｉ）：Ｉ＝７：Ｊ＝１
  62. ＩＦ　ＭＩＤ＄（ＩＷ＄，０，１）＝＝ＡＸ＄（Ｉ，０）　ＴＨＥＮ　ＡＸ＝Ｉ＋１
  63. ＩＦ　ＭＩＤ＄（ＩＷ＄，０，１）＝＝ＡＸ＄（Ｉ，１）　ＴＨＥＮ　ＡＸ＝Ｉ＋１：ＤＤ＄＝”゛”
  64. ＩＦ　ＭＩＤ＄（ＩＷ＄，０，１）＝＝ＡＸ＄（Ｉ，２）　ＴＨＥＮ　ＡＸ＝Ｉ＋５：ＤＤ＄＝”゜”
  65. ＮＥＸＴ
  66. ＩＦ　Ｊ　ＴＨＥＮ　＠ＳＫＩＰ３
  67. ＠ＳＫＩＰ２
  68. ＦＯＲ　Ｉ＝０　ＴＯ　４
  69. ＩＦ　ＭＩＤ＄（ＩＷ＄，１−Ｊ，１）＝＝ＡＹ＄（Ｉ）　ＴＨＥＮ　ＡＹ＝Ｉ＋１
  70. ＮＥＸＴ
  71. ＡＳ＝ＡＹ＋ＡＸ＊５
  72. ＩＦ　ＡＳ＞３５　ＴＨＥＮ　ＡＳ＝ＡＳ−１
  73. ＩＦ　ＡＳ＞３８　ＴＨＥＮ　ＡＳ＝ＡＳ−１
  74. ＠ＳＫＩＰ３
  75. ＰＫＣＡ＝ＡＳ＋１７６
  76. ＩＦ　ＭＤ＝＝２　ＴＨＥＮ　ＧＯＳＵＢ　＠ＰＫＮＣ
  77. ＰＲＩＮＴ　ＣＨＲ＄（ＰＫＣＡ）；ＤＤ＄；
  78. ＩＦ　ＡＳ＝＝−１　ＴＨＥＮ　ＩＷ＄＝ＭＩＤ＄（ＩＷ＄，１，１）：ＲＥＴＵＲＮ
  79. ＩＷ＄＝””
  80. ＲＥＴＵＲＮ
  82. ＠ＰＫＮＣ
  83. ＰＫＣＡ＝ＰＫＣＡ−１６３
  84. ’ヘンカン　タイショウカ゛イ　ナラ　モト゛ル
  85. ＩＦ　ＰＫＣＡ＜３　ＴＨＥＮ　ＲＥＴＵＲＮ
  86. ＩＦ　ＰＫＣＡ＝＝１３　ＴＨＥＮ　ＲＥＴＵＲＮ
  87. ＩＦ　ＰＫＣＡ＞５８　ＴＨＥＮ　ＲＥＴＵＲＮ
  89. ’カタカナハ　ヒラカ゛ナニ　ヘンカン
  90. ＩＦ　ＰＫＣＡ＞８　ＴＨＥＮ　ＰＫＣＡ＝ＰＫＣＡ＋５
  91. ＩＦ　ＰＫＣＡ＞１７　ＴＨＥＮ　ＰＫＣＡ＝ＰＫＣＡ＋２
  92. ＩＦ　ＰＫＣＡ＞２３　ＴＨＥＮ　ＰＫＣＡ＝ＰＫＣＡ＋２
  93. ＩＦ　ＰＫＣＡ＞２７　ＴＨＥＮ　ＰＫＣＡ＝ＰＫＣＡ＋１００
  94. ＩＦ　ＰＫＣＡ＞１４３　ＴＨＥＮ　ＰＫＣＡ＝ＰＫＣＡ＋１２
  95. ＩＦ　ＰＫＣＡ＞１５９　ＴＨＥＮ　ＰＫＣＡ＝ＰＫＣＡ＋７２
  96. ＩＦ　ＰＫＣＡ＞２３９　ＴＨＥＮ　ＰＫＣＡ＝ＰＫＣＡ＋４
  97. ＲＥＴＵＲＮ
  99. ＠ＭＥＮＵ１
  100. ＩＣＯＮＳＥＴ　０，３５
  101. ＲＥＴＵＲＮ
  103. ＠ＭＥＮＵ２
  104. ＩＣＯＮＳＥＴ　０，４４
  105. ＩＣＯＮＳＥＴ　１，４６
  106. ＩＣＯＮＳＥＴ　２，４９
  107. ＩＣＯＮＳＥＴ　３，５３
  108. ＲＥＴＵＲＮ
  110. ＠ＦＩＬＥＭＥＮＵ
  111. ＩＦ　ＩＣＯＮＣＨＫ（）＝＝０　ＴＨＥＮ　Ｆ１＝１
  112. ＩＦ　ＩＣＯＮＣＨＫ（）＝＝１　ＴＨＥＮ　Ｆ１＝２
  113. ＩＦ　ＩＣＯＮＣＨＫ（）＝＝２　ＴＨＥＮ　Ｆ２＝１
  114. ＩＦ　ＩＣＯＮＣＨＫ（）＝＝３　ＴＨＥＮ　Ｆ２＝２
  115. ＩＦ　！Ｆ１　ＯＲ　！Ｆ２　ＴＨＥＮ　ＲＥＴＵＲＮ
  116. ＩＦ　Ｆ１＝＝１　ＴＨＥＮ　ＯＮ　Ｆ２−１　ＧＯＴＯ　＠ＭＥＭＬＯＡＤ，＠ＧＲＰＬＯＡＤ
  117. ＦＯＲ　Ｉ＝０　ＴＯ　２
  118. ＴＥＸＴ＄（Ｉ）＝””
  119. ＦＯＲ　Ｊ＝０　ＴＯ　２５５
  120. ＴＥＸＴ＄（Ｉ）＝ＴＥＸＴ＄（Ｉ）＋ＣＨＲ＄（ＣＨＫＣＨＲ（Ｊ％３２，ＦＬＯＯＲ（Ｊ／３２）＋Ｉ＊８））
  121. ＮＥＸＴ
  122. ＮＥＸＴ
  123. ＩＦ　Ｆ１＝＝２　ＴＨＥＮ　ＯＮ　Ｆ２−１　ＧＯＴＯ　＠ＭＥＭＳＡＶＥ，＠ＧＲＰＳＡＶＥ
  124. ＠ＦＩＬＥＩＮＩＴ
  125. Ｆ１＝０：Ｆ２＝０
  126. ＲＥＴＵＲＮ
  128. ＠ＭＥＭＬＯＡＤ
  129. ＦＯＲ　Ｉ＝０　ＴＯ　２
  130. ＬＯＡＤ　”ＭＥＭ：Ｒ＿ＴＥＸＴ”＋ＳＴＲ＄（Ｉ）
  131. ＰＲＩＮＴ　ＭＥＭ＄；
  132. ＮＥＸＴ
  133. ＧＯＴＯ　＠ＦＩＬＥＩＮＩＴ
  135. ＠ＧＲＰＬＯＡＤ
  136. ＬＯＡＤ　”ＧＲＰ：Ｒ＿ＴＥＸＴ０”
  137. ＦＯＲ　Ｉ＝０　ＴＯ　７６７
  138. ＰＲＩＮＴ　ＣＨＲ＄（ＧＳＰＯＩＴ（Ｉ％２５６，ＦＬＯＯＲ（Ｉ／２５６）））；
  139. ＮＥＸＴ
  140. ＧＯＴＯ　＠ＦＩＬＥＩＮＩＴ
  142. ＠ＭＥＭＳＡＶＥ
  143. ＦＯＲ　Ｉ＝０　ＴＯ　２
  144. ＭＥＭ＄＝ＴＥＸＴ＄（Ｉ）
  145. ＳＡＶＥ　”ＭＥＭ：Ｒ＿ＴＥＸＴ”＋ＳＴＲ＄（Ｉ）
  146. ＮＥＸＴ
  147. ＧＯＴＯ　＠ＦＩＬＥＩＮＩＴ
  149. ＠ＧＲＰＳＡＶＥ
  150. ＦＯＲ　Ｉ＝０　ＴＯ　２
  151. ＦＯＲ　Ｊ＝０　ＴＯ　ＬＥＮ（ＴＥＸＴ＄（Ｉ））−１
  152. ＧＰＳＥＴ　Ｊ，Ｉ，ＡＳＣ（ＭＩＤ＄（ＴＥＸＴ＄（Ｉ），Ｊ，１））
  153. ＮＥＸＴ
  154. ＮＥＸＴ
  155. ＳＡＶＥ　”ＧＲＰ：Ｒ＿ＴＥＸＴ０”
  156. ＧＯＴＯ　＠ＦＩＬＥＩＮＩＴ

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

この作品に対するコメントがあれば一言どうぞ。(その他の雑談は掲示板かＯＦコーナーでしようって。)

  • ななし＠おなかいっぱい : どうやってローマ字変換されるんだ？変換されない(´;ω;｀) (2012/09/01 (土) 17:22:22)
  • わぁぃ＠ : すみません。「操作方法」を掲載しました。 (2012/09/01 (土) 17:41:57)
  • 名無しさん : YAがモに。JAがアに。ZYAを打とうとしてZYでゴに。ローマ字変換の組み合わせは多いですよ。 (2012/09/01 (土) 17:58:29)
  • 名無しさん : 「小さい「ゃ」「ゅ」「ょ」は打てません」って、それだけ単独で出すのができないという意味でなくて、JAも打てないということか･･･ (2012/09/01 (土) 18:06:34)
  • わぁぃ@ : 「YA」が「も」なのはバグでそれ以外は未実装です。あせらずv1.0にしてから投稿したほうが良かったかな。 (2012/09/01 (土) 18:32:40)
  • わぁぃ@ : ↑のバグは72行目のＡＳ＞３５をＡＳ＞３６にすると直るようです。お手数おかけして申し訳ありません。 (2012/09/01 (土) 18:42:23)
  • メルビル : うぽつです (2012/09/02 (日) 09:49:18)
  • ｏｔｙａｋｅｎ : ウホ゜ツ (2012/09/02 (日) 09:53:12)
  • AmakoSoft : ローマ字変換ライブラリ作ったのに・・・ (2012/09/05 (水) 23:34:33)
  • 名無しさん : ↑？ (2012/09/05 (水) 23:54:48)
  • 名無しさん : ↑↑サブルーチンで変換？　それなら部品として有用なので是非公開を。 (2012/09/06 (木) 11:59:51)
  • hatena : ↑*3　是非、サンプルプログラム集のサブルーチンに載せて下さい。 (2012/09/06 (木) 19:03:39)
  • 名無しさん : http://wiki.hosiken.jp/petc/?Toukou%2F%A5%ED%A1%BC%A5%DE%BB%FA%A4%CE%B5%D9%C6%FCです (2012/09/06 (木) 23:54:57)
  • 名無しさん : １００行くらいあるからサンプルプログラム集に載せられない (2012/09/07 (金) 23:40:34)
  • 名無しさん : ↑↑リンクが間違ってる？ (2012/09/08 (土) 11:24:24)
  • わぁぃ@ : ↑またはページが消えたか？ (2012/09/08 (土) 11:33:51)
  • ななし : こっちは？http://wiki.hosiken.jp/petc/?Toukou%2F%A5%ED%A1%BC%A5%DE%BB%FA%A4%CE%B5%D9%C6%FC (2012/09/08 (土) 11:48:51)
  • わぁぃ@ : 見れました。中身が違うから使いたい方を使えば良い。 (2012/09/08 (土) 12:05:29)
  • 名無しさん : 「PETIKANA」フォントのCHRファイルを”ＰＥＴＩＫＡＮＡ”というファイル名で保存しておいて下さいっていうのどうやるんですか？ (2012/11/12 (月) 15:27:58)
  • ↑ : やり方わかんないんで具体的に教えて下さい (2012/11/12 (月) 15:29:12)
  • 道産子の初心者 : ↑説明します。1.PETIKANAを取り込む　2.「プログラムを作る」からそれを実行　3.フォントが変わる　4.そのままCHREDを起動　5.フォントを編集する所へ　6.フォントにひらがながあることを確認　7.そのまま保存 (2012/11/12 (月) 16:19:06)
  • 道産子の初心者 : ↑少し長々しいですが、そう難しいことは書いてない(はず)です。疑問があったらお知らせください。 (2012/11/12 (月) 16:28:34)
  • 天郷思音 : ↑*2 3.の次にSAVE"BGF:PETIKANA"(enter)ってやって「はい」でもok (2012/11/12 (月) 17:17:10)
  • 名無しさん : RENAMEじゃだめ？ (2012/11/12 (月) 18:16:30)
  • 道産子の初心者 : RENAMEって何でしたっけ…。 (2012/11/13 (火) 17:10:04)
  • 名無しさん : 説明書見よう (2012/11/13 (火) 17:28:30)
  • 天郷思音 : ↑3 RENAMEは改名ですからこの場面では意味ないです。 (2012/11/14 (水) 12:12:39)

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