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

投稿プログラム : プログラムのマージ

パンくずリスト

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

概要

このプログラムは、マージ機能の無かった初代プチコン用のプログラムです。mkIIではＡＰＰＥＮＤコマンドをご利用ください。

2つのソースコードをマージします。

1つ目のプログラムは、以前投稿したToukou/プログラムのエクスポートの処理と全く同じです。

なお、実行モードにコマンドを書いておいてEnterで実行するアイデアは、2ちゃんねる プチコンスレ その3 >>735 を参考にさせて頂きました。

使い方

Aというプログラムの後ろにBというプログラムを連結したい場合

  1. 最初のプログラムを実行(ファンクションキーに必要な値を登録)
  2. Bのプログラムをロード
  3. Bのプログラムのすべての行頭にF3(DATA")を挿入
  4. Bのプログラム中のすべてのダブルクォーテーションをF4(-)に置き換える
  5. Bのプログラムの先頭にF1(GRP1に書きだすコード)を挿入
  6. Bのプログラムの末尾にF3+F4(DATA"-)を挿入
  7. Bのプログラムを実行
  8. 2つ目のプログラムを実行(GRP1の内容をファンクションキーに登録)
  9. INPUT FILENAME? と聞かれるので、Aのファイル名を入力する
  10. ファンクションキーに値が登録されてプログラムが終了する
  11. Enterを2回叩くとAのプログラムがロードされて編集モードになるので、プログラムの最後まで移動してF1~F5を順番に押し、実行モードに戻る
  12. Enterを2回叩くとAのプログラムがセーブされる
  13. マージするソースが残っている場合、セーブ後に2つ目のプログラムが再度実行され、10.に戻る

なお、7.まで実行するとBのプログラムの内容がGRP1に書き出されるので、
GRP1を保存しておけば、最初の方の手順を飛ばしてBのプログラムを繰り返しマージすることができます。
(保存しておいたGRPをGRP1にロード→8.以降を実行)

注意

  • 途中でGRP1に書き出す関係で、このプログラムでマージできる文字数の最大は、49150文字(256*192-2)になります。
  • F4の値は、マイナス記号ではなく、キーボードからは直接入力できない長音記号を使用しています。
  • 使い方の7.でSyntax errorが出る場合は、多分使い方の4.をやり忘れています。(逆に4.をやらずに7.をやって、エラーの出る箇所のみ置き換えるという手もあります)
  • 使い方の7.でOut of DATAが出る場合は、多分使い方の6.をやり忘れています。
  • 2つ目のプログラムは"MERGE"という名前で保存されることを前提としています。別のファイル名にする場合は25行目の"MERGE"を書き換えてください。

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

ありません。

プログラムリスト

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

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

GRP1の内容をファンクションキーに登録

  • 2011/10/23 (日) 08:46:18　処理を一行にまとめて、Enter を押す回数を減らした。
  1. ＧＰＡＧＥ　１
  2. ＳＩＺＥ＝ＧＳＰＯＩＴ（０，０）＊２５６＋ＧＳＰＯＩＴ（１，０）
  3. ＭＡＸ＝ＦＬＯＯＲ（（ＳＩＺＥ＋１２７９）／１２８０）
  4. ＳＩＺＥ＝ＳＩＺＥ＋２
  5. ＩＦ　ＣＵＲ＞０　ＡＮＤ　ＣＵＲ＜ＭＡＸ　ＧＯＴＯ　＠ＭＥＲＧＥ
  6. ＣＵＲ＝０
  7. ＩＮＰＵＴ　”ＩＮＰＵＴ　ＦＩＬＥＮＡＭＥ”；　Ｆ＄
  9. ＠ＭＥＲＧＥ
  10. Ｐ＝ＣＵＲ＊１２８０＋２
  11. ＦＯＲ　Ｉ＝１　ＴＯ　５
  12. 　Ａ＄＝””
  13. 　ＦＯＲ　Ｊ＝１　ＴＯ　２５６
  14. 　　ＩＦ　Ｐ＞＝ＳＩＺＥ　ＴＨＥＮ　Ｊ＝２５６：ＧＯＴＯ　＠ＳＫＩＰ
  15. 　　Ａ＄＝Ａ＄＋ＣＨＲ＄（ＧＳＰＯＩＴ（Ｐ％２５６，Ｐ／２５６））
  16. 　　Ｐ＝Ｐ＋１
  17. 　　＠ＳＫＩＰ
  18. 　ＮＥＸＴ　Ｊ
  19. 　ＫＥＹ　Ｉ，Ａ＄
  20. ＮＥＸＴ　Ｉ
  21. ＣＬＳ：ＣＵＲ＝ＣＵＲ＋１
  22. ＬＯＣＡＴＥ　０，０：？　ＣＵＲ；”／”；ＭＡＸ；
  23. ＬＯＣＡＴＥ　０，３：？　”ＬＯＡＤ”；ＣＨＲ＄（３４）；Ｆ＄；ＣＨＲ＄（３４）；”，０：ＬＩＳＴ”；
  24. ＬＯＣＡＴＥ　０，６：？　”ＳＡＶＥ”；ＣＨＲ＄（３４）；Ｆ＄；
  25. ＩＦ　ＣＵＲ＜ＭＡＸ　ＴＨＥＮ　？　ＣＨＲ＄（３４）；”：ＥＸＥＣ”；ＣＨＲ＄（３４）；”ＭＥＲＧＥ”；
  26. ＬＯＣＡＴＥ　０，１

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

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

  • わぁぃ@ : プログラムをチェックするプログラムに、2つ目のプログラムを組み込みたいのですが、よろしいですか？ (2012/01/08 (日) 13:09:13)
  • 投稿者 : 組み込むのは別に構わないけど、可能ならそのプログラムの紹介ページにこのページへのリンクを追加してくれると嬉しいな。 (2012/01/08 (日) 17:02:11)
  • バイカウントメルビル : グラフィックに保存すればたくさんのデータが保存できるんですね！是非参考にさせていただきます!(^^)! (2012/01/22 (日) 21:23:32)

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