プチコンまとめArchive

投稿プログラム : プログラムのエクスポート

パンくずリスト

このページの最終更新 : 2013/02/16 (土) 18:15:17
公式アーカイブのリンク: http://wiki.hosiken.jp/petc/html/Toukou/A5-D7-A5-ED-A5-B0-A5-E9-A5-E0-A4-CE-A5-A8-A5-AF-A5-B9-A5-DD-A1-BC-A5-C8-.html

2011年05月03日投稿 / 投稿者 : 名無しさん / タグ : 投稿プログラム 実用ツール 初代対応

概要

このプログラムは、プログラムの書き出し機能の無かった初代プチコン用のプログラムです。mkIIでは「SDメモリーカード書き込み」をご利用ください。

2ちゃんねる プチコンスレ その3 >>362 のエクスポート処理を実装してみました。(投稿者と>>362氏とは別人です)
ただし、BEEPではなくQRコードで出力しています。

QRコードの作成には、以前投稿したToukou/QRコード作成の処理を流用していますが、それなりに差分があるため、改めて全体を載せています。

※ サーバ障害以前にこのプログラムを入力された方へ
1つ目のプログラムの13行目にあるＮＥＸＴの前のスペースを削除してください。
(Ver1.1のFOR文のバグ回避のため)

使い方

  1. 最初のプログラムを実行(ファンクションキーに必要な値を登録)
  2. 書き出したいプログラムをロード
  3. 書き出したいプログラムのすべての行頭にF3(DATA")を挿入
  4. 書き出したいプログラム中のすべてのダブルクォーテーションをF4(-)に置き換える
  5. 書き出したいプログラムの先頭にF1(GRP1に書きだすコード)を挿入
  6. 書き出したいプログラムの末尾にF3+F4(DATA"-)を挿入
  7. 書き出したいプログラムを実行
  8. 2つ目のプログラムを実行(複数のQRコードに分割して逆順に表示)
    QRコード表示中になにかボタンを押すと、次のQRコードが表示される

注意

  • 途中でGRP1に書き出す関係で、このプログラムで書き出せる文字数の最大は、49150文字(256*192-2)になります。
  • F4の値は、マイナス記号ではなく、キーボードからは直接入力できない長音記号を使用しています。
  • 携帯などで読み込んだ際の文字化けを避けるため、プチコン特有の記号はすべて"?"に置き換えて書きだしています。
    置き換えが必要なければ、53行目を削除してください。
  • QRコードを読めるものが古い携帯しかなかったため、QRコードを小さめのサイズで作成しています。
    そのため、大量のソースを変換すると、QRコードの分割数が多くなります。(2つ目のプログラムで15分割程度)
    より大きなQRコードを読めるようであれば、Toukou/QRコード作成のページを参考にパラメータを修正してください。
  • 携帯でQRコードの内容をコピーして、メールの本文の先頭に貼り付けるという手順を繰り返すことを想定しているため、QRコードを逆順で生成するようになっています。
    逆順にする必要がなければ、43行目のFOR文の順番を変えてください。
  • 使い方の7.でSyntax errorが出る場合は、多分使い方の4.をやり忘れています。(逆に4.をやらずに7.をやって、エラーの出る箇所のみ置き換えるという手もあります)
  • 使い方の7.でOut of DATAが出る場合は、多分使い方の6.をやり忘れています。

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

ありません。

プログラムリスト

ファンクションキーに必要な値を登録

  1. ＫＥＹ　３，”ＤＡＴＡ”＋ＣＨＲ＄（３４）
  2. ＫＥＹ　４，ＣＨＲ＄（１７６）
  3. Ｃ＄＝ＣＨＲ＄（１３）
  4. Ａ＄＝　　　”Ｎ＝２：ＧＰＡＧＥ　１：ＧＣＬＳ　０”＋Ｃ＄
  5. Ａ＄＝Ａ＄＋”ＲＥＡＤ　Ｐ＄”＋Ｃ＄
  6. Ａ＄＝Ａ＄＋”ＦＯＲ　Ｉ＝１　ＴＯ　Ｐ＄！＝ＣＨＲ＄（１７６）”＋Ｃ＄
  7. Ａ＄＝Ａ＄＋”　Ｉ＝０：Ｌ＝ＬＥＮ（Ｐ＄）”＋Ｃ＄
  8. Ａ＄＝Ａ＄＋”　ＦＯＲ　Ｊ＝０　ＴＯ　Ｌ－１”＋Ｃ＄
  9. Ａ＄＝Ａ＄＋”　　Ｃ＝ＡＳＣ（ＭＩＤ＄（Ｐ＄，Ｊ，１））”＋Ｃ＄
  10. Ａ＄＝Ａ＄＋”　　ＩＦ　Ｃ＝＝１７６　ＴＨＥＮ　Ｃ＝３４”＋Ｃ＄
  11. Ａ＄＝Ａ＄＋”　　ＧＰＳＥＴ　Ｎ％２５６，Ｎ／２５６，Ｃ”＋Ｃ＄
  12. Ａ＄＝Ａ＄＋”　　Ｎ＝Ｎ＋１”＋Ｃ＄
  13. Ａ＄＝Ａ＄＋”ＮＥＸＴ　Ｊ”＋Ｃ＄
  14. Ａ＄＝Ａ＄＋”　ＧＰＳＥＴ　Ｎ％２５６，Ｎ／２５６，１３”＋Ｃ＄
  15. Ａ＄＝Ａ＄＋”　Ｎ＝Ｎ＋１”＋Ｃ＄
  16. Ａ＄＝Ａ＄＋”　ＲＥＡＤ　Ｐ＄”＋Ｃ＄
  17. Ａ＄＝Ａ＄＋”ＮＥＸＴ　Ｉ：Ｎ＝Ｎ－３”＋Ｃ＄
  18. Ａ＄＝Ａ＄＋”ＧＰＳＥＴ　０，０，Ｎ／２５６”＋Ｃ＄
  19. Ａ＄＝Ａ＄＋”ＧＰＳＥＴ　１，０，Ｎ％２５６”＋Ｃ＄
  20. Ａ＄＝Ａ＄＋Ｃ＄
  21. ＫＥＹ　１，Ａ＄

複数のQRコードに分割して逆順に表示

  1. ＣＬＥＡＲ
  2. ＶＥＲ＝１０：ＥＣＬ＝２：ＭＡＳＫ＝６
  3. ＴＯＴＡＬ＝３４６：ＲＳＢ＝４：ＥＣＷ＝１８
  4. ＤＩＭ　Ｆ（ＥＣＷ）
  5. ＦＯＲ　Ｉ＝０　ＴＯ　ＥＣＷ－１
  6. 　ＲＥＡＤ　Ｆ（Ｉ）
  7. ＮＥＸＴ
  8. ＤＡＴＡ　２１５，２３４，１５８，９４，１８４
  9. ＤＡＴＡ　９７，１１８，１７０，７９，１８７
  10. ＤＡＴＡ　１５２，１４８，２５２，１７９，５
  11. ＤＡＴＡ　９８，９６，１５３
  12. ＶＩＮＦ＝＆Ｈ０Ａ４Ｄ３：ＡＰＣ＝３
  13. ＤＩＭ　Ｐ（ＡＰＣ）
  14. ＦＯＲ　Ｉ＝０　ＴＯ　ＡＰＣ－１
  15. 　ＲＥＡＤ　Ｐ（Ｉ）
  16. ＮＥＸＴ
  17. ＤＡＴＡ　６，２８，５０
  19. ＣＣＩ＝１＋（ＶＥＲ＞＝１０）：ＳＩＺＥ＝１７＋ＶＥＲ＊４
  20. ＤＷ＝ＦＬＯＯＲ（ＴＯＴＡＬ／ＲＳＢ）－ＥＣＷ
  21. ＭＡＧ＝ＦＬＯＯＲ（１９２／（ＳＩＺＥ＋８））
  22. ＯＸ＝ＦＬＯＯＲ（（２５６－ＳＩＺＥ＊ＭＡＧ）／２）
  23. ＯＹ＝ＦＬＯＯＲ（（１９２－ＳＩＺＥ＊ＭＡＧ）／２）
  24. ＤＩＭ　Ｄ（ＴＯＴＡＬ－ＥＣＷ＊ＲＳＢ＋１），Ｏ（ＴＯＴＡＬ），Ｔ（ＤＷ＋ＥＣＷ＋１），ＢＩ（ＲＳＢ）
  25. ＢＩ（０）＝０：ＢＩＣ＝ＲＳＢ－ＴＯＴＡＬ％ＲＳＢ
  26. ＦＯＲ　Ｉ＝１　ＴＯ　ＲＳＢ－１
  27. 　ＢＩ（Ｉ）＝ＢＩ（Ｉ－１）＋ＤＷ＋（Ｉ－１＞＝ＢＩＣ）
  28. ＮＥＸＴ
  29. ＤＩＭ　ＥＩ（２５５），ＩＥ（２５６）
  30. ＥＩ（０）＝１
  31. ＦＯＲ　Ｉ＝１　ＴＯ　２５４
  32. 　ＥＩ（Ｉ）＝ＥＩ（Ｉ－１）＊２
  33. 　ＩＦ　ＥＩ（Ｉ）＞＝２５６　ＴＨＥＮ　ＥＩ（Ｉ）＝（ＥＩ（Ｉ）－２５６）　ＸＯＲ　＆Ｈ１Ｄ
  34. ＮＥＸＴ
  35. ＦＯＲ　Ｉ＝０　ＴＯ　２５４
  36. 　ＩＥ（ＥＩ（Ｉ））＝Ｉ
  37. ＮＥＸＴ
  39. ＣＯＬＯＲ　１：ＧＰＡＧＥ　１
  40. ＴＤＷ＝ＴＯＴＡＬ－ＥＣＷ＊ＲＳＢ－ＣＣＩ－１
  41. ＤＡＴＡＳＩＺＥ＝ＧＳＰＯＩＴ（０，０）＊２５６＋ＧＳＰＯＩＴ（１，０）
  42. ＬＡＳＴ＝ＦＬＯＯＲ（（ＤＡＴＡＳＩＺＥ＋ＴＤＷ－１）／ＴＤＷ）
  43. ＦＯＲ　ＣＵＲ＝ＬＡＳＴ　ＴＯ　１　ＳＴＥＰ　－１
  44. ＰＯＳ＝（ＣＵＲ－１）＊ＴＤＷ＋２
  45. Ｌ＝ＴＤＷ
  46. ＩＦ　ＣＵＲ＝＝ＬＡＳＴ　ＴＨＥＮ　Ｌ＝ＤＡＴＡＳＩＺＥ－ＰＯＳ＋２
  47. ＧＰＡＧＥ　１
  48. Ｄ（０）＝４
  49. Ｄ（１）＝ＦＬＯＯＲ（Ｌ／２５６）
  50. Ｄ（ＣＣＩ）＝Ｌ％２５６
  51. ＦＯＲ　Ｉ＝０　ＴＯ　Ｌ－１
  52. 　Ｃ＝ＧＳＰＯＩＴ（ＰＯＳ％２５６，ＰＯＳ／２５６）
  53. 　ＩＦ　Ｃ！＝１３ＡＮＤ（Ｃ＜３２ＯＲ　１２６＜Ｃ）ＡＮＤ（Ｃ＜１６１ＯＲ　２２３＜Ｃ）ＴＨＥＮ　Ｃ＝６３
  54. 　Ｄ（Ｉ＋ＣＣＩ＋１）＝Ｃ
  55. 　ＰＯＳ＝ＰＯＳ＋１
  56. ＮＥＸＴ
  57. Ｄ（Ｌ＋ＣＣＩ＋１）＝０
  58. ＧＰＡＧＥ　０
  60. ＦＯＲ　Ｉ＝０　ＴＯ　Ｌ＋ＣＣＩ
  61. 　Ｄ（Ｉ）＝（Ｄ（Ｉ）＊１６＋ＦＬＯＯＲ（Ｄ（Ｉ＋１）／１６））％２５６
  62. ＮＥＸＴ
  63. ＦＯＲ　Ｉ＝１　ＴＯ　ＴＯＴＡＬ－ＥＣＷ＊ＲＳＢ－Ｌ－ＣＣＩ－１
  64. 　Ｄ（Ｌ＋Ｉ＋ＣＣＩ）＝＆Ｈ１１＋（Ｉ％２＝＝１）＊（＆ＨＥＣ－＆Ｈ１１）
  65. ＮＥＸＴ
  67. Ｉ＝０
  68. ＦＯＲ　Ｊ＝０　ＴＯ　ＤＷ－１
  69. 　ＦＯＲ　Ｋ＝０　ＴＯ　ＲＳＢ－１
  70. 　　Ｏ（Ｉ）＝Ｄ（ＢＩ（Ｋ）＋Ｊ）：Ｉ＝Ｉ＋１
  71. 　ＮＥＸＴ
  72. ＮＥＸＴ
  73. ＦＯＲ　Ｋ＝ＢＩＣ　ＴＯ　ＲＳＢ－１
  74. 　Ｏ（Ｉ）＝Ｄ（ＢＩ（Ｋ）＋Ｊ）：Ｉ＝Ｉ＋１
  75. ＮＥＸＴ
  77. ＦＯＲ　Ｉ＝０　ＴＯ　ＲＳＢ－１
  78. 　Ｌ＝ＤＷ＋（Ｉ＞＝ＢＩＣ）
  79. 　ＦＯＲ　Ｊ＝０　ＴＯ　Ｌ－１
  80. 　　Ｔ（Ｊ）＝Ｄ（ＢＩ（Ｉ）＋Ｊ）
  81. 　ＮＥＸＴ
  82. 　ＦＯＲ　Ｊ＝０　ＴＯ　ＥＣＷ－１
  83. 　　Ｔ（Ｊ＋Ｌ）＝０
  84. 　ＮＥＸＴ
  85. 　ＦＯＲ　Ｊ＝０　ＴＯ　Ｌ－１
  86. 　　ＩＦ　Ｔ（Ｊ）＝＝０　ＧＯＴＯ　＠ＳＫＩＰ１
  87. 　　Ｅ＝ＩＥ（Ｔ（Ｊ））
  88. 　　ＦＯＲ　Ｋ＝０　ＴＯ　ＥＣＷ－１
  89. 　　　Ｔ（Ｊ＋Ｋ＋１）＝Ｔ（Ｊ＋Ｋ＋１）　ＸＯＲ　ＥＩ（（Ｆ（Ｋ）＋Ｅ）％２５５）
  90. 　　ＮＥＸＴ
  91. 　　＠ＳＫＩＰ１
  92. 　ＮＥＸＴ
  93. 　ＦＯＲ　Ｊ＝０　ＴＯ　ＥＣＷ－１
  94. 　　Ｏ（ＴＯＴＡＬ－（ＥＣＷ－Ｊ）＊ＲＳＢ＋Ｉ）＝Ｔ（Ｊ＋Ｌ）
  95. 　ＮＥＸＴ
  96. ＮＥＸＴ
  98. ＶＩＳＩＢＬＥ　１，１，０，０，０，０
  99. ＧＣＬＳ　＆Ｈ１Ｅ
  100. ＧＦＩＬＬ　ＯＸ，ＯＹ，ＯＸ＋ＳＩＺＥ－１，ＯＹ＋ＳＩＺＥ－１，＆Ｈ０Ｆ
  102. ＧＦＩＬＬ　ＯＸ　　，ＯＹ　　，ＯＸ＋８，ＯＹ＋８，＆Ｈ１Ｅ
  103. ＧＢＯＸ　　ＯＸ　　，ＯＹ　　，ＯＸ＋６，ＯＹ＋６，＆Ｈ１Ｆ
  104. ＧＦＩＬＬ　ＯＸ＋２，ＯＹ＋２，ＯＸ＋４，ＯＹ＋４，＆Ｈ１Ｆ
  105. ＧＦＩＬＬ　ＯＸ＋ＳＩＺＥ－８，ＯＹ　　，ＯＸ＋ＳＩＺＥ－１，ＯＹ＋８，＆Ｈ１Ｅ
  106. ＧＢＯＸ　　ＯＸ＋ＳＩＺＥ－７，ＯＹ　　，ＯＸ＋ＳＩＺＥ－１，ＯＹ＋６，＆Ｈ１Ｆ
  107. ＧＦＩＬＬ　ＯＸ＋ＳＩＺＥ－５，ＯＹ＋２，ＯＸ＋ＳＩＺＥ－３，ＯＹ＋４，＆Ｈ１Ｆ
  108. ＧＦＩＬＬ　ＯＸ　　，ＯＹ＋ＳＩＺＥ－８，ＯＸ＋８，ＯＹ＋ＳＩＺＥ－１，＆Ｈ１Ｅ
  109. ＧＢＯＸ　　ＯＸ　　，ＯＹ＋ＳＩＺＥ－７，ＯＸ＋６，ＯＹ＋ＳＩＺＥ－１，＆Ｈ１Ｆ
  110. ＧＦＩＬＬ　ＯＸ＋２，ＯＹ＋ＳＩＺＥ－５，ＯＸ＋４，ＯＹ＋ＳＩＺＥ－３，＆Ｈ１Ｆ
  112. ＦＯＲ　Ｉ＝８　ＴＯ　ＳＩＺＥ－９
  113. 　ＧＰＳＥＴ　ＯＸ＋Ｉ，ＯＹ＋６，＆Ｈ１Ｅ＋（Ｉ％２＝＝０）
  114. 　ＧＰＳＥＴ　ＯＸ＋６，ＯＹ＋Ｉ，＆Ｈ１Ｅ＋（Ｉ％２＝＝０）
  115. ＮＥＸＴ
  116. ＧＰＳＥＴ　ＯＸ＋８，ＯＹ＋ＳＩＺＥ－８，＆Ｈ１Ｆ
  118. ＦＯＲ　Ｉ＝０　ＴＯ　ＡＰＣ－１
  119. 　ＦＯＲ　Ｊ＝０　ＴＯ　ＡＰＣ－１
  120. 　　ＩＦ（Ｉ＝＝０　ＡＮＤ　Ｊ＝＝０）ＯＲ（Ｉ＝＝０　ＡＮＤ　Ｊ＝＝ＡＰＣ－１）ＯＲ（Ｉ＝＝ＡＰＣ－１　ＡＮＤ　Ｊ＝＝０）ＧＯＴＯ　＠ＳＫＩＰ２
  121. 　　ＧＢＯＸ　ＯＸ＋Ｐ（Ｉ）－２，ＯＹ＋Ｐ（Ｊ）－２，ＯＸ＋Ｐ（Ｉ）＋２，ＯＹ＋Ｐ（Ｊ）＋２，＆Ｈ１Ｆ
  122. 　　ＧＢＯＸ　ＯＸ＋Ｐ（Ｉ）－１，ＯＹ＋Ｐ（Ｊ）－１，ＯＸ＋Ｐ（Ｉ）＋１，ＯＹ＋Ｐ（Ｊ）＋１，＆Ｈ１Ｅ
  123. 　　ＧＰＳＥＴ　ＯＸ＋Ｐ（Ｉ），ＯＹ＋Ｐ（Ｊ），＆Ｈ１Ｆ
  124. 　　＠ＳＫＩＰ２
  125. 　ＮＥＸＴ
  126. ＮＥＸＴ
  128. ＩＦ　ＶＥＲ＜７　ＧＯＴＯ　＠ＳＫＩＰ３
  129. Ｄ＝ＶＩＮＦ
  130. ＦＯＲ　Ｉ＝０　ＴＯ　１７
  131. 　ＧＰＳＥＴ　ＯＸ＋ＳＩＺＥ－１１＋Ｉ％３，ＯＹ＋Ｉ／３，＆Ｈ１Ｅ＋（Ｄ　ＡＮＤ　１）
  132. 　ＧＰＳＥＴ　ＯＸ＋Ｉ／３，ＯＹ＋ＳＩＺＥ－１１＋Ｉ％３，＆Ｈ１Ｅ＋（Ｄ　ＡＮＤ　１）
  133. 　Ｄ＝ＦＬＯＯＲ（Ｄ／２）
  134. ＮＥＸＴ
  135. ＠ＳＫＩＰ３
  137. Ｘ＝ＳＩＺＥ－２：Ｙ＝ＳＩＺＥ：Ｆ＝１：Ｄ＝－１
  138. ＦＯＲ　Ｉ＝０　ＴＯ　ＴＯＴＡＬ－１
  139. 　Ｊ＝１２８
  140. 　＠ＬＯＯＰ１
  141. 　　＠ＬＯＯＰ２
  142. 　　　Ｘ＝Ｘ＋Ｆ＊２－１：Ｙ＝Ｙ＋Ｆ＊Ｄ：Ｆ＝１－Ｆ
  143. 　　　ＩＦ　Ｙ＜０　ＴＨＥＮ　Ｙ＝０：Ｘ＝Ｘ－２：Ｄ＝１
  144. 　　　ＩＦ　Ｙ＞＝ＳＩＺＥ　ＴＨＥＮ　Ｙ＝ＳＩＺＥ－１：Ｘ＝Ｘ－２：Ｄ＝－１
  145. 　　　ＩＦ　Ｘ＝＝６　ＴＨＥＮ　Ｘ＝Ｘ－１
  146. 　　ＩＦ　ＧＳＰＯＩＴ（ＯＸ＋Ｘ，ＯＹ＋Ｙ）！＝＆Ｈ０Ｆ　ＧＯＴＯ　＠ＬＯＯＰ２
  147. 　　ＩＦ　Ｏ（Ｉ）　ＡＮＤ　Ｊ　ＴＨＥＮ　ＧＰＳＥＴ　ＯＸ＋Ｘ，ＯＹ＋Ｙ，＆Ｈ０Ｅ
  148. 　　Ｊ＝Ｊ／２
  149. 　ＩＦ　Ｊ＞＝１　ＧＯＴＯ　＠ＬＯＯＰ１
  150. ＮＥＸＴ
  152. ＦＯＲ　Ｉ＝０　ＴＯ　ＳＩＺＥ－１
  153. 　ＦＯＲ　Ｊ＝０　ＴＯ　ＳＩＺＥ－１
  154. 　　ＯＮ　ＭＡＳＫ　ＧＯＳＵＢ　＠０，＠４，＠２，＠６，＠１，＠５，＠３，＠７
  155. 　　Ｃ＝ＧＳＰＯＩＴ（ＯＸ＋Ｊ，ＯＹ＋Ｉ）
  156. 　　ＩＦ　Ｃ＜＆Ｈ１０　ＡＮＤ　Ａ　ＴＨＥＮ　ＧＰＳＥＴ　ＯＸ＋Ｊ，ＯＹ＋Ｉ，Ｃ　ＸＯＲ　１
  157. 　ＮＥＸＴ
  158. ＮＥＸＴ
  160. Ｄ＝ＭＡＳＫ＊４＋ＥＣＬ：Ｔ＝Ｄ
  161. ＦＯＲ　Ｉ＝０　ＴＯ　４
  162. 　ＩＦ　Ｔ　ＡＮＤ　１　ＴＨＥＮ　Ｔ＝Ｔ　ＸＯＲ　＆Ｈ７６５
  163. 　Ｔ＝Ｔ／２
  164. ＮＥＸＴ
  165. Ｄ＝Ｄ＋Ｔ＊３２　ＸＯＲ　＆Ｈ２４１５
  166. Ｘ＝０：Ｙ＝ＳＩＺＥ－１
  167. ＦＯＲ　Ｉ＝０　ＴＯ　１４
  168. 　ＧＰＳＥＴ　ＯＸ＋Ｘ，ＯＹ＋８，＆Ｈ１Ｅ＋（Ｄ　ＡＮＤ　１）
  169. 　ＧＰＳＥＴ　ＯＸ＋８，ＯＹ＋Ｙ，＆Ｈ１Ｅ＋（Ｄ　ＡＮＤ　１）
  170. 　Ｘ＝Ｘ＋１＋（Ｘ＝＝５）：Ｙ＝Ｙ－１－（Ｙ＝＝７）
  171. 　ＩＦ　Ｘ＝＝８　ＴＨＥＮ　Ｘ＝ＳＩＺＥ－８：Ｙ＝８
  172. 　Ｄ＝ＦＬＯＯＲ（Ｄ／２）
  173. ＮＥＸＴ
  175. ＦＯＲ　Ｉ＝ＳＩＺＥ－１　ＴＯ　０　ＳＴＥＰ　－１
  176. 　Ｙ＝ＯＹ＋Ｉ＊ＭＡＧ
  177. 　ＦＯＲ　Ｊ＝ＳＩＺＥ－１　ＴＯ　０　ＳＴＥＰ　－１
  178. 　　Ｘ＝ＯＸ＋Ｊ＊ＭＡＧ
  179. 　　ＧＦＩＬＬ　Ｘ，Ｙ，Ｘ＋ＭＡＧ－１，Ｙ＋ＭＡＧ－１，ＧＳＰＯＩＴ（ＯＸ＋Ｊ，ＯＹ＋Ｉ）
  180. 　ＮＥＸＴ
  181. ＮＥＸＴ
  183. ＶＩＳＩＢＬＥ　１，１，０，０，０，１：ＣＬＳ
  184. ？ＭＩＤ＄（”００”，０，３－ＬＥＮ（ＳＴＲ＄（ＣＵＲ）））；ＳＴＲ＄（ＣＵＲ）
  185. ？”－－－”
  186. ？ＭＩＤ＄（”００”，０，３－ＬＥＮ（ＳＴＲ＄（ＬＡＳＴ）））；ＳＴＲ＄（ＬＡＳＴ）
  187. ＦＯＲ　Ｉ＝０　ＴＯ　１：Ｉ＝ＢＵＴＴＯＮ（）！＝０：ＮＥＸＴ
  188. ＮＥＸＴ
  189. ＣＯＬＯＲ　０：ＣＬＳ：ＧＣＬＳ　０：ＥＮＤ
  191. ＠０
  192. Ａ＝（Ｉ＋Ｊ）％２＝＝０：ＲＥＴＵＲＮ
  193. ＠１
  194. Ａ＝Ｉ％２＝＝０：ＲＥＴＵＲＮ
  195. ＠２
  196. Ａ＝Ｊ％３＝＝０：ＲＥＴＵＲＮ
  197. ＠３
  198. Ａ＝（Ｉ＋Ｊ）％３＝＝０：ＲＥＴＵＲＮ
  199. ＠４
  200. Ａ＝（ＦＬＯＯＲ（Ｉ／２）＋ＦＬＯＯＲ（Ｊ／３））％２＝＝０：ＲＥＴＵＲＮ
  201. ＠５
  202. Ａ＝Ｉ＊Ｊ％２＋Ｉ＊Ｊ％３＝＝０：ＲＥＴＵＲＮ
  203. ＠６
  204. Ａ＝（Ｉ＊Ｊ％２＋Ｉ＊Ｊ％３）％２＝＝０：ＲＥＴＵＲＮ
  205. ＠７
  206. Ａ＝（Ｉ＊Ｊ％３＋（Ｉ＋Ｊ）％２）％２＝＝０：ＲＥＴＵＲＮ

QRコードのサイズの変更

QRコードのサイズを変更したい場合は、2～17行を以下で置き換えてください。
サイズが大きくなれば、分割数が減って取り込みが楽になるので、読める範囲でできるだけ大きなサイズにすることをお勧めします。

バージョン17、誤り訂正レベルL(2倍に拡大される最大サイズ)

  1. ＶＥＲ＝１７：ＥＣＬ＝２：ＭＡＳＫ＝６
  2. ＴＯＴＡＬ＝８１５：ＲＳＢ＝６：ＥＣＷ＝２８
  3. ＤＩＭ　Ｆ（ＥＣＷ）
  4. ＦＯＲ　Ｉ＝０　ＴＯ　ＥＣＷ－１
  5. 　ＲＥＡＤ　Ｆ（Ｉ）
  6. ＮＥＸＴ
  7. ＤＡＴＡ　１６８，２２３，２００，１０４，２２４
  8. ＤＡＴＡ　２３４，１０８，１８０，１１０，１９０
  9. ＤＡＴＡ　１９５，１４７，２０５，２７，２３２
  10. ＤＡＴＡ　２０１，２１，４３，２４５，８７
  11. ＤＡＴＡ　４２，１９５，２１２，１１９，２４２
  12. ＤＡＴＡ　３７，９，１２３
  13. ＶＩＮＦ＝＆Ｈ１１４５Ｄ：ＡＰＣ＝４
  14. ＤＩＭ　Ｐ（ＡＰＣ）
  15. ＦＯＲ　Ｉ＝０　ＴＯ　ＡＰＣ－１
  16. 　ＲＥＡＤ　Ｐ（Ｉ）
  17. ＮＥＸＴ
  18. ＤＡＴＡ　６，３０，５４，７８

バージョン20、誤り訂正レベルL

  1. ＶＥＲ＝２０：ＥＣＬ＝２：ＭＡＳＫ＝６
  2. ＴＯＴＡＬ＝１０８５：ＲＳＢ＝８：ＥＣＷ＝２８
  3. ＤＩＭ　Ｆ（ＥＣＷ）
  4. ＦＯＲ　Ｉ＝０　ＴＯ　ＥＣＷ－１
  5. 　ＲＥＡＤ　Ｆ（Ｉ）
  6. ＮＥＸＴ
  7. ＤＡＴＡ　１６８，２２３，２００，１０４，２２４
  8. ＤＡＴＡ　２３４，１０８，１８０，１１０，１９０
  9. ＤＡＴＡ　１９５，１４７，２０５，２７，２３２
  10. ＤＡＴＡ　２０１，２１，４３，２４５，８７
  11. ＤＡＴＡ　４２，１９５，２１２，１１９，２４２
  12. ＤＡＴＡ　３７，９，１２３
  13. ＶＩＮＦ＝＆Ｈ１４９Ａ６：ＡＰＣ＝４
  14. ＤＩＭ　Ｐ（ＡＰＣ）
  15. ＦＯＲ　Ｉ＝０　ＴＯ　ＡＰＣ－１
  16. 　ＲＥＡＤ　Ｐ（Ｉ）
  17. ＮＥＸＴ
  18. ＤＡＴＡ　６，３４，６２，９０

バージョン30、誤り訂正レベルL

  1. ＶＥＲ＝３０：ＥＣＬ＝２：ＭＡＳＫ＝６
  2. ＴＯＴＡＬ＝２１８５：ＲＳＢ＝１５：ＥＣＷ＝３０
  3. ＤＩＭ　Ｆ（ＥＣＷ）
  4. ＦＯＲ　Ｉ＝０　ＴＯ　ＥＣＷ－１
  5. 　ＲＥＡＤ　Ｆ（Ｉ）
  6. ＮＥＸＴ
  7. ＤＡＴＡ　４１，１７３，１４５，１５２，２１６
  8. ＤＡＴＡ　３１，１７９，１８２，５０，４８
  9. ＤＡＴＡ　１１０，８６，２３９，９６，２２２
  10. ＤＡＴＡ　１２５，４２，１７３，２２６，１９３
  11. ＤＡＴＡ　２２４，１３０，１５６，３７，２５１
  12. ＤＡＴＡ　２１６，２３８，４０，１９２，１８０
  13. ＶＩＮＦ＝＆Ｈ１ＥＤ７５：ＡＰＣ＝６
  14. ＤＩＭ　Ｐ（ＡＰＣ）
  15. ＦＯＲ　Ｉ＝０　ＴＯ　ＡＰＣ－１
  16. 　ＲＥＡＤ　Ｐ（Ｉ）
  17. ＮＥＸＴ
  18. ＤＡＴＡ　６，２６，５２，７８，１０４，１３０

バージョン40、誤り訂正レベルL(QRコード最大のサイズ)

  1. ＶＥＲ＝４０：ＥＣＬ＝２：ＭＡＳＫ＝６
  2. ＴＯＴＡＬ＝３７０６：ＲＳＢ＝２５：ＥＣＷ＝３０
  3. ＤＩＭ　Ｆ（ＥＣＷ）
  4. ＦＯＲ　Ｉ＝０　ＴＯ　ＥＣＷ－１
  5. 　ＲＥＡＤ　Ｆ（Ｉ）
  6. ＮＥＸＴ
  7. ＤＡＴＡ　４１，１７３，１４５，１５２，２１６
  8. ＤＡＴＡ　３１，１７９，１８２，５０，４８
  9. ＤＡＴＡ　１１０，８６，２３９，９６，２２２
  10. ＤＡＴＡ　１２５，４２，１７３，２２６，１９３
  11. ＤＡＴＡ　２２４，１３０，１５６，３７，２５１
  12. ＤＡＴＡ　２１６，２３８，４０，１９２，１８０
  13. ＶＩＮＦ＝＆Ｈ２８Ｃ６９：ＡＰＣ＝７
  14. ＤＩＭ　Ｐ（ＡＰＣ）
  15. ＦＯＲ　Ｉ＝０　ＴＯ　ＡＰＣ－１
  16. 　ＲＥＡＤ　Ｐ（Ｉ）
  17. ＮＥＸＴ
  18. ＤＡＴＡ　６，３０，５８，８６，１１４，１４２，１７０

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

  • この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
  • 名無しさん : 投稿に使えそうでうれしいけど、分割数が多くて厳しいな。どう修正すれば大きなQRコードになるのかな？ (2011/05/06 (金) 13:14:02)
  • 投稿者 : とりあえず、こちらで検証用に作っておいた設定を載せておきます。 (2011/05/06 (金) 21:33:57)
  • 投稿者 : 「QRコード作成」のページに設定方法を書いておいたので、上記以外の大きさにしたい場合は参考にしてください。 (2011/05/06 (金) 23:22:09)
  • 投稿者 : こちらの環境でバージョン20まで読めることが確認できたので、その設定を追加しておきます。 (2011/05/08 (日) 13:36:41)
  • 名無しさん : Ver.1.1のバグのため、改行のみの行の処理時に、一つ目のリストの8行目のforがエラーになります。 (2011/07/17 (日) 14:57:15)
  • 投稿者 : ここに載せるに当たり、そのバグは回避してあります(13行目の先頭のスペースを削除)。 (2011/07/18 (月) 20:46:36)
  • 投稿者 : サーバ障害以前にこのプログラムを入力された方が、修正されていることに気づかないというのも問題なので、注意書きを追加しました。 (2011/07/18 (月) 22:05:29)
  • プチコンまとめWiki管理人 : ページを作り直していただくことで大変お手数をおかけしてしまいました。復旧されたサーバダウン前のページのソースを添付させていただきました。 (2011/07/30 (土) 13:35:49)
  • 名無しさん : 勝手に復旧してしまい、かえって手間をかけさせてしまって申し訳ありません。こちらでマージさせて頂きました。 (2011/07/30 (土) 14:03:32)
  • プチコンまとめWiki管理人 : いえいえとんでもないです! ご対応ありがとうございました! (2011/07/30 (土) 14:06:03)
  • 名無しさん : QRコードをはってください!! (2013/01/17 (木) 20:37:58)
  • 名無しさん : mkIIならこのプログラムは不要では？ (2013/01/17 (木) 20:54:24)
  • 道産子の初心者 : ↑同感です。 (2013/01/17 (木) 21:01:05)
  • 名無しさん : このプログラムは、プログラムの書き出し機能の無かった初代プチコン用のプログラムです。mkIIでは「SDメモリーカード書き込み」をご利用ください。この言葉が目に入らないの？ (2013/01/17 (木) 21:56:54)
  • 道産子の初心者 : 投稿者さんへ　プチコントーナメントで、初代プチコンの人向けとして掲載させていただきました。 (2013/02/16 (土) 18:14:18)