プチコンまとめArchive

サンプルプログラム集

パンくずリスト

このページの最終更新 : 2015/06/07 (日) 16:13:22
公式アーカイブのリンク: http://wiki.hosiken.jp/petc/html/Sample.html

初心者にも役に立つかもしれないサンプル的、および部品的なプログラムをここに集積しましょう。

BASIC の基本

こんにちは、世界

最初の一歩。文字列を表示する場合はダブルクォーテーションで囲む必要があります。
なお、ダブルクォーテーションはコンソールに表示されません。

  1. ＰＲＩＮＴ　”Ｈｅｌｌｏ，ｗｏｒｌｄ！”

ダブルクォーテーションの表示

ダブルクォーテーションをコンソールに表示する場合はＣＨＲ＄（）関数を使用する必要があります。

  1. ＰＲＩＮＴ　ＣＨＲ＄（３４）

個人情報を抽出

プチコンが個人情報を抽出して喜ぶプログラムです。

  1. ＩＮＰＵＴ　”アナタノ　ナマエハ”　；　ＮＡＭＥ＄
  2. ＩＮＰＵＴ　”オトシハ　イクツテ゛スカ”　；　ＡＧＥ
  3. ＰＲＩＮＴ　”アナタノ　ナマエハ　”　；　ＮＡＭＥ＄　；　”　テ゛”
  4. ＰＲＩＮＴ　”オトシハ　”　；　ＡＧＥ　；　”　サイ　テ゛スネ”
  5. ＰＲＩＮＴ　”コシ゛ンシ゛ョウホウヲ　オイシク　イタタ゛キマシタ、　ククク”
  6. ＷＡＩＴ　３０

ひたすら数える

524287まで0から順に数えていきます。

  1. ＠ＬＯＯＰ
  2. ＰＲＩＮＴ　Ａ
  3. Ａ＝Ａ＋１
  4. ＧＯＴＯ　＠ＬＯＯＰ

時計

現在の時間を表示するだけのプログラム。

  1. ＠ＴＩＭＥ
  2. ＬＯＣＡＴＥ　０，０：ＰＲＩＮＴ”Р”；ＴＩＭＥ＄
  3. ＶＳＹＮＣ　６０
  4. ＧＯＴＯ　＠ＴＩＭＥ

ボタン入力待ち

一行でＡボタンの入力をまつプログラム。 16のところをいじると、どのボタンの入力待ちでも出来ます。

  1. ＦＯＲ　Ｉ＝０　ＴＯ　１：Ｉ＝ＢＵＴＴＯＮ（）＝＝１６：ＮＥＸＴ

ブロックIFの代わり

FOR文を用いてブロックIFを実装しています。

  1. ＦＯＲ　Ｉ＝１　ＴＯ　Ａ
  2. 　？”Ｂｌｏｃｋ　ＩＦ”
  3. ＮＥＸＴ

この場合、Ａの部分が条件式となり、？”Ｂｌｏｃｋ　ＩＦ”の部分が処理となります。

下画面にスプライト表示

下画面にスプライトを表示するサンプルは以下の通り。付属のエディタ等で CHR リソースを作成しておく必要あり。(例ではファイル名 "TCHR01")

  1. ＶＩＳＩＢＬＥ　１，１，１，１，１，１
  2. ＰＮＬＴＹＰＥ　”ＯＦＦ”
  3. ＳＰＰＡＧＥ　１
  4. ＬＯＡＤ”ＳＰＳ０：ＴＣＨＲ０１”，ＦＡＬＳＥ
  5. ＳＰＳＥＴ　０，０，０，０，０，０
  6. ＳＰＯＦＳ　０，１００，１００
  7. ＶＳＹＮＣ　６００

超簡易ランチャー

INPUTで文字列を取得し、それでEXECするプログラム。

  1. ＩＮＰＵＴ　Ａ＄
  2. ＥＸＥＣ　Ａ＄

少し違う無限ループ

ライオネルさんの「新しい無限ループ?」と同じです。

  1. ’－－－－－－－－－－－－－－－－－－－－－－－－－－－
  2. ’ルーフ゜ないのしょりをかく
  3. ’－－－－－－－－－－－－－－－－－－－－－－－－－－－
  4. ＥＸＥＣ”このフ゜ロク゛ラムのファイルめい”

使用例

ファイル名は「ＰＲＧ：ＴＥＳＴ」にしてください。

  1. ＰＲＩＮＴ　Ａ
  2. Ａ＝Ａ＋１
  3. ＥＸＥＣ”ＴＥＳＴ”

サブルーチン

サブルーチンは単独では動きません。自作のプログラムに混ぜて使います。

ボタン入力

変数表
  • ＢＴＮ : ボタン状態
  • ＴＲＧ : トリガ
  • ＲＥＰ : リピート
プログラムリスト
  1. ＠ＧＥＴＢＴＮ
  2. ＢＴＮ＝ＢＵＴＴＯＮ（）
  3. ＴＲＧ＝（ＮＯＴ　ＯＬＤ＿ＢＴＮ）ＡＮＤ　ＢＴＮ
  4. ＯＦＦＴＲＧ＝ＯＬＤ＿ＢＴＮ　ＡＮＤ（ＮＯＴ　ＢＴＮ）
  5. ＲＥＰ＝０
  6. ＲＥＰＣＮＴ＝ＲＥＰＣＮＴ＋１
  7. ＩＦ　ＯＬＤ＿ＢＴＮ！＝ＢＴＮ　ＴＨＥＮ　ＲＥＰＣＮＴ＝０
  8. ＩＦ　ＲＥＰＣＮＴ＝＝０　ＴＨＥＮ　ＲＥＰ＝ＢＴＮ：ＧＯＴＯ　＠＿ＧＥＴＢＴＮ０
  9. ＩＦ　ＲＥＰＣＮＴ＜３０　ＧＯＴＯ　＠＿ＧＥＴＢＴＮ０
  10. ＩＦ　（ＲＥＰＣＮＴ－３０）％５＝＝０　ＴＨＥＮ　ＲＥＰ＝ＢＴＮ
  11. ＠＿ＧＥＴＢＴＮ０
  12. ＯＬＤ＿ＢＴＮ＝ＢＴＮ
  13. ＲＥＴＵＲＮ
使用例
  1. ＣＬＥＡＲ：ＣＬＳ：Ｓ＝０
  2. ＠ＬＯＯＰ
  3. 　ＧＯＳＵＢ　＠ＧＥＴＢＴＮ
  4. 　ＩＦ　（ＲＥＰ　ＡＮＤ　８）　ＴＨＥＮ　Ｓ＝（Ｓ＋１）％７０
  5. 　ＩＦ　（ＲＥＰ　ＡＮＤ　４）　ＴＨＥＮ　Ｓ＝（Ｓ－１＋７０）％７０
  6. 　ＩＦ　（ＴＲＧ　ＡＮＤ　１６）　ＴＨＥＮ　ＢＥＥＰ　Ｓ
  7. 　ＬＯＣＡＴＥ　０，０：ＰＲＩＮＴ　Ｓ；”　　”
  8. 　ＶＳＹＮＣ　１
  9. ＧＯＴＯ　＠ＬＯＯＰ

文字列を置き換える

使い方
  1. 置き換えたい文字列が入った文字列を Ｈ１＄ に入れる
  2. 置き換えたい文字列を Ｈ２＄ に入れる
  3. 置き換後の文字列を Ｈ３＄ に入れる
  4. ＧＯＳＵＢ　＠ＯＫＩＫＡＥ でサブルーチンを呼び出す すると変換された文字列が Ｈ１＄ に入って帰ってくる。
プログラムリスト
  1. ＠ＯＫＩＫＡＥ
  2. Ｌ１＄＝Ｈ１＄：Ｌ２＄＝Ｈ２＄：Ｌ３＄＝Ｈ３＄
  3. Ｓ１＝ＬＥＮ（Ｌ２＄）：Ｓ２＝ＬＥＮ（Ｌ３＄）
  4. ＦＯＲ　ＲＩ＝０　ＴＯ　ＬＥＮ（Ｌ１＄）－１
  5. Ｍ１＄＝ＭＩＤ（Ｌ１＄，ＲＩ，１）
  6. Ｍ２＄＝ＭＩＤ（Ｌ２＄，Ｓ３，１）
  7. ＩＦ　Ｍ１＄！＝Ｍ２＄　ＴＨＥＮ　Ｓ３＝０：Ｍ３＄＝””
  8. ＩＦ　Ｍ１＄＝＝Ｍ２＄　ＴＨＥＮ　Ｓ３＝Ｓ３＋１：Ｍ３＄＝Ｍ３＄＋Ｍ１＄
  9. ＩＦ　Ｍ３＄＝＝Ｌ２＄　ＴＨＥＮ　Ｆ１＝１
  10. ＩＦ　Ｆ１　ＴＨＥＮ　Ｍ４＄＝ＭＩＤ＄（Ｌ１＄，０，ＲＩ－ＬＥＮ（Ｌ２＄）＋１）：Ｓ４＝ＬＥＮ（Ｍ４＄＋Ｌ２＄）：Ｓ５＝ＬＥＮ（Ｌ３＄）－ＬＥＮ（Ｌ２＄）：Ｍ５＄＝ＭＩＤ＄（Ｌ１＄，Ｓ４，２５５）
  11. ＩＦ　Ｆ１　ＴＨＥＮ　Ｍ６＄＝Ｍ４＄＋Ｌ３＄＋Ｍ５＄：Ｌ１＄＝Ｍ６＄：ＲＩ＝ＲＩ＋Ｓ５－１：Ｆ１＝０
  12. ＮＥＸＴ
  13. Ｒ１＄＝Ｌ１＄
  14. ＲＥＴＵＲＮ
使用例
  1. ＣＬＥＡＲ：ＣＬＳ
  2. Ｈ１＄＝”アカン”
  3. Ｈ２＄＝”ア”
  4. Ｈ３＄＝”オ”
  5. ＧＯＳＵＢ　＠ＯＫＩＫＡＥ
  6. ？Ｒ１＄

文字列の指定位置に文字列を挿入する

使い方
  1. 文字列を Ｈ１＄ に入れる
  2. 位置を Ｈ２＄ に入れる
  3. 位置に挿入する文字列を Ｈ３＄ に入れる
  4. ＠ＭＩＤＬ を呼び出す。すると Ｒ１＄ に変換された文字列が入って帰ってくる
プログラムリスト
  1. ＠ＭＩＤＬ
  2. Ｌ１＄＝Ｈ１＄：Ｌ２＄＝Ｈ２＄：Ｌ３＄＝Ｈ３＄
  3. Ｓ１＝ＶＡＬ（Ｌ２＄）
  4. Ｓ２＝ＬＥＮ（Ｌ１＄）
  5. Ｍ１＄＝ＭＩＤ＄（Ｌ１＄，０，Ｓ１）
  6. ＦＯＲ　ＲＩ＝０　ＴＯ　Ｓ１－Ｓ２－１
  7. Ｍ１＄＝Ｍ１＄＋”　”
  8. ＮＥＸＴ　ＲＩ
  9. Ｍ２＄＝ＭＩＤ＄（Ｌ１＄，Ｓ１＋１，２５５）
  10. Ｍ３＄＝Ｍ１＄＋Ｌ３＄＋Ｍ２＄　
  11. Ｒ１＄＝Ｍ３＄
  12. ＲＥＴＵＲＮ
使用例
  1. ＣＬＥＡＲ：ＣＬＳ
  2. Ｈ１＄＝”タラコ”
  3. Ｈ２＄＝”１”
  4. Ｈ３＄＝”ハ゛ス”
  5. ？Ｈ１＄
  6. ＧＯＳＵＢ　＠ＭＩＤＬ
  7. ？Ｒ１＄

それぞれのボタンの入力フレーム数を取得する

使い方

まず、このサブルーチンを呼ぶ前に ＤＩＭ　Ｂ（１２） と配列を宣言しておいてください。

  • ＩＦ　Ｂ（０）＝＝１　ＴＨＥＮ

などとすることで、上ボタンが押された瞬間だけ ＴＨＥＮ 以降を実行するということもできます。

プログラムリスト
  1. ＠ＢＴＮ
  2. Ｂ＝ＢＵＴＴＯＮ（）：ＢＡ＝１
  3. ＦＯＲ　Ｉ＝０　ＴＯ　１１
  4. ＩＦ　Ｂ　ＡＮＤ　ＢＡ　ＴＨＥＮ　Ｂ（Ｉ）＝Ｂ（Ｉ）＋１
  5. ＩＦ　（Ｂ　ＡＮＤ　ＢＡ）＝＝０　ＴＨＥＮ　Ｂ（Ｉ）＝０
  6. ＢＡ＝ＢＡ＊２：ＮＥＸＴ：ＲＥＴＵＲＮ
使用例
  1. ＣＬＥＡＲ：ＣＬＳ
  2. ＤＩＭ　Ｂ（１２）
  3. ＠ＬＯＯＰ
  4. ＶＳＹＮＣ　１
  5. ＧＯＳＵＢ　＠ＢＴＮ
  6. ＦＯＲ　Ｉ＝０　ＴＯ　１１
  7. ＬＯＣＡＴＥ　０，Ｉ：？Ｂ（Ｉ）；”　　　　　”
  8. ＮＥＸＴ
  9. ＧＯＴＯ　＠ＬＯＯＰ

' , ' で区切った文字列を分割する

使い方
  • Ｈ＄ に ”Ａ，Ｂ，Ｃ” のように文字列を区切って入れます。
  • そして ＠ＢＮＫＴ を呼び出すと Ｌ＄（０~９） にそれぞれ分割された文字列が入ります。
プログラムリスト
  1. ＠ＢＮＫＴ
  2. Ｆ１＝０：Ｓ１＝０：Ｍ３＄＝””
  3. ＦＯＲ　ＲＩ＝０　ＴＯ　ＬＥＮ（Ｈ＄）－１
  4. Ｆ１＝０
  5. ＩＦ　Ｍ１＄＝＝”，”ＴＨＥＮ　Ｌ＄（Ｓ１）＝Ｍ３＄：Ｓ１＝Ｓ１＋１：Ｍ３＄＝””：Ｆ１＝１
  6. Ｍ１＄＝ＭＩＤ＄（Ｈ＄，ＲＩ＋１，１）
  7. Ｍ２＄＝ＭＩＤ＄（Ｈ＄，ＲＩ，１）
  8. ＩＦ　Ｆ１＝＝０　ＴＨＥＮ　Ｍ３＄＝Ｍ３＄＋Ｍ２＄
  9. ＮＥＸＴ
  10. Ｌ＄（Ｓ１）＝Ｍ３＄：Ｓ１＝Ｓ１＋１：Ｍ３＄＝””：Ｆ１＝１
  11. Ｈ＄＝””
  12. ＲＥＴＵＲＮ

指定位置から文字列に上書き

使い方
  • すぐ上に書いた「' , ' で区切った文字列を分割する」のサブルーチンの内容が、プログラムのどこかに必要です。
  • Ｈ＄ に "文字列 , 開始位置 , 書き込む文字列" と入れて ＠ＭＩＤＬ２ を呼び出すと、Ｒ１＄ に上書きされた文字列が入って帰ってきます。
プログラムリスト
  1. ＠ＭＩＤＬ２
  2. ＧＯＳＵＢ　＠ＢＮＫＴ
  3. Ｍ１＄＝ＭＩＤ＄（Ｌ＄（０），０，ＶＡＬ（Ｌ＄（１）））
  4. ＦＯＲ　ＲＩ＝ＬＥＮ（Ｍ１＄）　ＴＯ　ＶＡＬ（Ｌ＄（１））－１
  5. Ｍ１＄＝Ｍ１＄＋”　”
  6. ＮＥＸＴ
  7. Ｍ２＄＝ＭＩＤ＄（Ｌ＄（０），ＬＥＮ（Ｍ１＄）＋ＬＥＮ（Ｌ＄（２）），２５５）
  8. Ｍ３＄＝Ｍ１＄＋Ｌ＄（２）＋Ｍ２＄
  9. Ｒ１＄＝Ｍ３＄
  10. ＲＥＴＵＲＮ
使用例
  1. ＣＬＥＡＲ：ＣＬＳ
  2. Ｈ＄＝”アイウエオ，２，シテル”
  3. ＧＯＳＵＢ　＠ＭＩＤＬ２
  4. ？Ｒ１＄
  5. ＠ＬＯＯＰ
  6. ＧＯＴＯ　＠ＬＯＯＰ

カラーパレットを白黒化

使い方
  • ＠ＣＯＬＢＷ を呼び出すと、カラーパレットが白黒になります。
プログラムリスト
  1. ＠ＣＯＬＢＷ
  2. ＦＯＲ　Ｐ＝０　ＴＯ　１
  3. ＢＧＰＡＧＥ　Ｐ
  4. ＳＰＰＡＧＥ　Ｐ
  5. ＧＰＡＧＥ　Ｐ
  6. ＦＯＲ　Ｉ＝０　ＴＯ　２５５
  7. ＣＯＬＲＥＡＤ（”ＳＰ”，Ｉ），Ｒ，Ｇ，Ｂ
  8. ＣＯＬＳＥＴ　”ＳＰ”，Ｉ，ＨＥＸ＄（ＦＬＯＯＲ（（Ｒ＋Ｇ＋Ｂ）／３），２）＊３
  9. ＣＯＬＲＥＡＤ（”ＢＧ”，Ｉ），Ｒ，Ｇ，Ｂ
  10. ＣＯＬＳＥＴ　”ＢＧ”，Ｉ，ＨＥＸ＄（ＦＬＯＯＲ（（Ｒ＋Ｇ＋Ｂ）／３），２）＊３
  11. ＣＯＬＲＥＡＤ（”ＧＲＰ”，Ｉ），Ｒ，Ｇ，Ｂ
  12. ＣＯＬＳＥＴ　”ＧＲＰ”，Ｉ，ＨＥＸ＄（ＦＬＯＯＲ（（Ｒ＋Ｇ＋Ｂ）／３），２）＊３
  13. ＮＥＸＴ
  14. ＮＥＸＴ
  15. ＲＥＴＵＲＮ

楕円の描画

使い方
  • 変数を設定して＠ＲＩＮＧを呼び出すと、だ円を描くことができます
    • プチコン標準機能のＧＣＩＲＣＬＥは、だ円を描くことができません。このプログラムでは、三角関数を利用してだ円を含む円を描くことができます。
変数リスト
変数意味
X始点X
X2終点X
Y始点Y
Y2終点Y
プログラムリスト
  1. Ｘ２＝０
  2. Ｘ＝０
  3. Ｙ２＝０
  4. Ｙ＝０
  6. ’－－－－－－－－－－－－－－－－－－－－
  8. ＠ＲＩＮＧ
  10. ＢＸ＝０：ＢＹ＝０
  11. ＨＡＮＫＥＩＸ＝ＡＢＳ（Ｘ２－Ｘ）
  12. ＨＡＮＫＥＩＹ＝ＡＢＳ（Ｙ２－Ｙ）
  13. ＸＳ＝ＨＡＮＫＥＩＸ／２
  14. ＹＳ＝ＨＡＮＫＥＩＹ／２
  16. ＦＯＲ　Ｇ＝０　ＴＯ　３６０
  17. 　Ｘ４＝ＣＯＳ（ＲＡＤ（Ｇ））＊（ＸＳ）＋Ｘ＋ＸＳ
  18. 　Ｙ４＝ＳＩＮ（ＲＡＤ（Ｇ））＊（ＹＳ）＋Ｙ＋ＹＳ
  19. 　ＩＦ　ＢＸ＝＝０　ＡＮＤ　ＢＹ＝＝０　ＴＨＥＮ　ＢＸ＝Ｘ４：ＢＹ＝Ｙ４
  20. 　ＧＬＩＮＥ　ＢＸ，ＢＹ，Ｘ４，Ｙ４，ＣＯＬ
  21. 　ＢＸ＝Ｘ４：ＢＹ＝Ｙ４
  22. ＮＥＸＴ
  24. Ｘ４＝ＣＯＳ（ＲＡＤ（０））＊（ＸＳ）＋Ｘ＋ＸＳ
  25. Ｙ４＝ＳＩＮ（ＲＡＤ（０））＊（ＹＳ）＋Ｙ＋ＹＳ
  27. ＧＬＩＮＥ　ＢＸ，ＢＹ，Ｘ４，Ｙ４，ＣＯＬ
  29. ＲＥＴＵＲＮ

GPUTCHRで文字を表示する

使い方

ＰＵＴ＄に文字列、ＰＵＴＸ,ＰＵＴＹに位置（1ドット単位）ＰＵＴＣに文字色を入れて呼び出すと文字列をグラフィック面に描画します。

プログラムリスト
  1. ＰＵＴ＄＝”ＨＥＬＬＯ　ＷＯＲＬＤ！”
  2. ＰＵＴＸ＝８０：ＰＵＴＹ＝９６
  3. ＧＯＳＵＢ　＠ＰＵＴＳＴＲ
  4. ＥＮＤ
  6. ＠ＰＵＴＳＴＲ
  7. ＤＲＡＷＸ＝ＰＵＴＸ：ＤＲＡＷＹ＝ＰＵＴＹ：ＤＲＡＷＣ＝ＰＵＴＣ
  8. ＦＯＲ　Ｉ＝０　ＴＯ　ＬＥＮ（ＰＵＴ＄）－１
  9. 　ＧＰＵＴＣＨＲ　ＤＲＡＷＸ，ＤＲＡＷＹ，”ＢＧＦ”，ＡＳＣ（ＭＩＤ＄（ＰＵＴ＄，Ｉ，１）），ＤＲＡＷＣ，１
  10. 　ＤＲＡＷＸ＝ＤＲＡＷＸ＋８
  11. 　ＩＦ　ＤＲＡＷＸ＞２４８　ＴＨＥＮ　ＤＲＡＷＸ＝ＤＲＡＷＸ－２４８：ＤＲＡＷＹ＝ＤＲＡＷＹ＋８
  12. ＮＥＸＴ
  13. ＲＥＴＵＲＮ

連想配列のようなもの

使い方

使用している変数やラベル名は全てHT_*

  • プログラム開始時に@HT_INITを呼ぶ
  • HT_K$にキー, HT_V$に値を入れて@HT_SETを呼ぶと代入
  • HT_K$にキーを入れて@HT_GETを呼ぶとHT_V$に値が戻ってくる
プログラムリスト

前半部分はサンプル

  1. ＡＣＬＳ：ＣＬＥＡＲ：ＧＯＳＵＢ＠ＨＴ＿ＩＮＩＴ
  3. ＨＴ＿Ｋ＄＝”ＡＨＯ”：ＨＴ＿Ｖ＄＝”ＨＡＧＥ”
  4. ＧＯＳＵＢ＠ＨＴ＿ＳＥＴ
  5. ＨＴ＿Ｋ＄＝”ＨＡＨＡＨＡ”：ＨＴ＿Ｖ＄＝”ＡＨＹＡ”
  6. ＧＯＳＵＢ＠ＨＴ＿ＳＥＴ
  8. ＨＴ＿Ｋ＄＝”ＨＡＨＡＨＡ”
  9. ＧＯＳＵＢ＠ＨＴ＿ＧＥＴ
  10. ？ＨＴ＿Ｖ＄
  11. ＨＴ＿Ｋ＄＝”ＡＨＯ”
  12. ＧＯＳＵＢ＠ＨＴ＿ＧＥＴ
  13. ？ＨＴ＿Ｖ＄
  15. ＥＮＤ
  17. ＠ＨＴ＿ＩＮＩＴ
  18. 　ＨＴ＿Ｐ＝０：ＨＴ＿Ｍ＝３０００
  19. 　ＤＩＭ　ＨＴ＿Ｋ＄［ＨＴ＿Ｍ］，ＨＴ＿Ｖ＄［ＨＴ＿Ｍ］
  20. ＲＥＴＵＲＮ
  22. ＠ＨＴ＿ＩＮＤＥＸ　’ＨＴ＿Ｉ＝ＨＴ＿Ｋ＄
  23. 　ＨＴ＿Ｉ＝－１
  24. 　ＦＯＲ　ＨＴ＿ＩＮＤＥＸ＿Ｉ＝０　ＴＯ　ＨＴ＿Ｐ－１
  25. 　　ＩＦ　ＨＴ＿Ｋ＄［ＨＴ＿ＩＮＤＥＸ＿Ｉ］＝＝ＨＴ＿Ｋ＄　ＴＨＥＮ　ＨＴ＿Ｉ＝ＨＴ＿ＩＮＤＥＸ＿Ｉ
  26. 　ＮＥＸＴ
  27. ＲＥＴＵＲＮ
  29. ＠ＨＴ＿ＮＥＷＫＥＹ　’ＨＴ＿Ｋ＄
  30. 　ＨＴ＿Ｋ＄［ＨＴ＿Ｐ］＝ＨＴ＿Ｋ＄
  31. 　ＨＴ＿Ｉ＝ＨＴ＿Ｐ：ＨＴ＿Ｐ＝ＨＴ＿Ｐ＋１
  32. ＲＥＴＵＲＮ
  34. ＠ＨＴ＿ＧＥＴ　’ＨＴ＿Ｖ＄＝ＨＴ＿Ｋ＄
  35. 　ＨＴ＿Ｖ＄＝ＣＨＲ＄（０）
  36. 　ＧＯＳＵＢ＠ＨＴ＿ＩＮＤＥＸ
  37. 　ＩＦ　ＨＴ＿Ｉ！＝－１　ＴＨＥＮ　ＨＴ＿Ｖ＄＝ＨＴ＿Ｖ＄［ＨＴ＿Ｉ］
  38. ＲＥＴＵＲＮ
  40. ＠ＨＴ＿ＳＥＴ　’ＨＴ＿Ｋ＄，ＨＴ＿Ｖ＄
  41. 　ＧＯＳＵＢ＠ＨＴ＿ＩＮＤＥＸ
  42. 　ＩＦ　ＨＴ＿Ｉ＝＝－１　ＴＨＥＮ　ＧＯＳＵＢ＠ＨＴ＿ＮＥＷＫＥＹ
  43. 　ＨＴ＿Ｖ＄［ＨＴ＿Ｉ］＝ＨＴ＿Ｖ＄
  44. ＲＥＴＵＲＮ

デバッグルーチン

ヤッフーさんの「デバッグルーチン?」と同じです。

使い方

三行目までをプログラムの始めに、四行目からプログラムの最後に入れます。 そして、プログラム内でDEBUG$にルーチン名を入れてGOSUBします。

プログラムリスト
  1. ＤＥＢＵＧ＄＝””
  2. ＧＯＳＵＢ　＠ＤＥＢＵＧ
  3. ＥＮＤ
  5. ＠ＤＥＢＵＧ
  6. ＩＦ　ＤＥＢＵＧ＄＝＝”＠”　ＯＲ　ＤＥＢＵＧ＄＝＝””　ＴＨＥＮ　ＲＥＴＵＲＮ
  7. ＩＦ　ＤＥＢＵＧ＄！＝”＠”　ＴＨＥＮ　ＤＥＢＵＧ２＄＝”＠”＋ＤＥＢＵＧ＄
  8. ＧＯＴＯ　ＤＥＢＵＧ２＄
  9. ＲＥＴＵＲＮ