サウンドテスト by すもろでぃ

再生

　プチコンにプリセットで入っているBGMPLAY文とBEEP文のサウンドだけど、実際に聴いてみないとどんな音なのかなかなかわからない。コンソールで数字を１つずつ変えて鳴らしてみるのもけっこうタイヘンかもしれない。
　そこで登場するこのプログラムだけど、これはそんなプリセットサウンドの試聴にUI（ユーザーインターフェース）を付けて簡単にしたもの。ゲームのサウンドテスト風に作ってあるのが遊びゴコロだね。

私が作りました

すもろでぃ

BASICというのはまともに触るのはコレが始めて、というか、プログラムを組むことも殆ど無く生活してきたので、初心者でも頑張ればやれるってのを伝えられたらなぁと思います。
説明書のBGMとSEを文字で見て、「わからん！」と思ったので作ってみました。
PRINTとIF THENを主軸として、必要そうなら他の命令を探す形で作っていきました。
プログラムのスマートさは無いかもしれないけれど、少ない命令でもどうにかできる！


 CHECK POiNT 

博士
プリセット音にはいちおう名前もついておるが、たしかにこれだけでは心もとないのう。必要は発明の母、というやつじゃな。

ワンパク
（……サラッと人ごとみてぇに言ってやがる……このジジイ、あなどれねえぜ……）

神崎
作者コメントにも書いてあるように、基本的な命令だけでうまくやりくりして作ってあるね。

インテリ
それだけわかりやすいプログラムだし、ダイエットや改造のしがいもありそうだね。たとえばＰＲＩＮＴ文を繰り返して改行にしてある所はＬＯＣＡＴＥ文１つにまとめられそうだよ。

博士
そういう風に、プログラムリストをよりシンプルに見直してみるのも楽しさのひとつじゃな。新しい発見もあるかもしれんぞ。

プログラムリスト

  1. ’－＋－　サウント゛テスト　－＋－
  3. ’－　ショキカ　－
  4. ＣＬＥＡＲ
  5. ＶＩＳＩＢＬＥ　１，１，０，０，１，１
  6. ＣＬＳ：ＣＯＬＯＲ　０
  7. ＧＰＡＧＥ　０：ＧＣＯＬＯＲ　０：ＧＣＬＳ　０
  8. ＳＰＰＡＧＥ　０：ＳＰＣＬＲ
  9. ＢＧＰＡＧＥ　１
  10. ＢＧＯＦＳ　０，０，０
  12. ＰＸ＝１２３
  13. ＰＹ＝９５
  15. ’－－　カ－ソルク゛ラフィック　－－
  16. ＳＰＳＥＴ　０，１００，２，０，０，ＰＲ
  17. ＳＰＡＮＩＭ　０，２，１０，０
  18. ＳＰＯＦＳ　０，ＰＸ，ＰＹ
  20. ’－－　Ｎ＝１０ノクライ　－　Ｍ＝１ノクライ　－－
  21. Ｎ＝０
  22. Ｍ＝０
  24. ’－－　モ－ト゛　－－
  25. ＭＯＤＥ＝１
  27. ’－－　カ゛メンヒョウシ゛　－－
  28. ＠ＰＲＩ
  30. ＣＬＳ：ＣＯＬＯＲ　０
  31. ＶＳＹＮＣ　１
  32. ＰＲＩＮＴ　”　”
  33. ＰＲＩＮＴ　”　”
  34. ＰＲＩＮＴ　”　”
  35. ＰＲＩＮＴ　”　”
  36. ＰＲＩＮＴ　”　”
  37. ＰＲＩＮＴ　”　”
  38. ＰＲＩＮＴ　”　”
  39. ＩＦ　ＭＯＤＥ＝＝２　ＴＨＥＮ　ＰＲＩＮＴ　”　　　　　　　　　　　　ＳＥ　ＴＥＳＴ　”
  40. ＩＦ　ＭＯＤＥ＝＝１　ＴＨＥＮ　ＰＲＩＮＴ　”　　　　　　　　　　　ＢＧＭ　ＴＥＳＴ　”
  41. ＰＲＩＮＴ　”　”
  42. ＰＲＩＮＴ　”　”
  43. ＰＲＩＮＴ　”　　　　　　　　　　　　　　”Ｎ，””Ｍ
  44. ＰＲＩＮＴ　”　”
  45. ＰＲＩＮＴ　”　”
  46. ＰＲＩＮＴ　”　”
  47. ＰＲＩＮＴ　”　”
  48. ＰＲＩＮＴ　”　”
  49. ＰＲＩＮＴ　”　　　　　　－－－－－－－－－－－－－－－－－－－”
  50. ＰＲＩＮＴ　”　　　　　　－＋：ハ゛ンコ゛ウセンタク　　　　　－”
  51. ＰＲＩＮＴ　”　　　　　　－Ａ：サイセイ　　Ｂ：テイシ　　　　－”
  52. ＰＲＩＮＴ　”　　　　　　－Ｘ：モ－ト゛　　Ｙ：シュウリョウ　－”
  53. ＰＲＩＮＴ　”　　　　　　－－－－－－－－－－－－－－－－－－－”
  55. ＠ＳＥＬ
  56. ＢＵＴ＝ＢＵＴＴＯＮ（）
  57. ＩＦ　ＢＵＴ＝＝１６　ＴＨＥＮ　ＩＦ　ＭＯＤＥ＝＝２　ＴＨＥＮ　ＢＥＥＰ　（Ｎ＊１０＋Ｍ）
  58. ＩＦ　ＢＵＴ＝＝１６　ＴＨＥＮ　ＩＦ　ＭＯＤＥ＝＝１　ＴＨＥＮ　ＢＧＭＰＬＡＹ　（Ｎ＊１０＋Ｍ）
  59. ＩＦ　ＢＵＴ＝＝３２　ＴＨＥＮ　ＢＧＭＳＴＯＰ
  60. ＩＦ　ＢＵＴ＝＝６４　ＴＨＥＮ　ＩＦ　ＭＯＤＥ＝＝２　ＴＨＥＮ　ＭＯＤＥ＝１　ＶＳＹＮＣ　１０　Ｍ＝０　Ｎ＝０　ＧＯＴＯ　＠ＰＲＩ
  61. ＩＦ　ＢＵＴ＝＝６４　ＴＨＥＮ　ＩＦ　ＭＯＤＥ＝＝１　ＴＨＥＮ　ＭＯＤＥ＝２　ＶＳＹＮＣ　１０　Ｍ＝０　Ｎ＝０　ＧＯＴＯ　＠ＰＲＩ
  62. ＩＦ　ＢＵＴ＝＝１２８　ＧＯＴＯ　＠ＥＮ
  63. ＶＳＹＮＣ　１０
  65. ’－－　カ－ソル←→　－－
  66. ＩＦ　ＰＸ＝＝１０７　ＴＨＥＮ　ＩＦ　ＢＵＴ＝＝８　ＴＨＥＮ　ＰＸ＝１２３
  67. ＳＰＯＦＳ　０，ＰＸ，ＰＹ
  68. ＩＦ　ＰＸ＝＝１２３　ＴＨＥＮ　ＩＦ　ＢＵＴ＝＝４　ＴＨＥＮ　ＰＸ＝１０７
  70. ’－－　カ－ソル↑↓　－－
  71. ＳＰＯＦＳ　０，ＰＸ，ＰＹ
  72. ’－　１０ノクライ　－
  73. ＩＦ　ＭＯＤＥ＝＝２　ＴＨＥＮ　ＩＦ　ＰＸ＝＝１０７　ＴＨＥＮ　ＩＦ　Ｎ＝＝６　ＴＨＥＮ　ＩＦ　ＢＵＴ＝＝１　ＴＨＥＮ　Ｎ＝０　ＧＯＴＯ　＠ＰＲＩ
  74. ＩＦ　ＭＯＤＥ＝＝１　ＴＨＥＮ　ＩＦ　ＰＸ＝＝１０７　ＴＨＥＮ　ＩＦ　Ｎ＝＝２　ＴＨＥＮ　ＩＦ　ＢＵＴ＝＝１　ＴＨＥＮ　Ｎ＝０　ＧＯＴＯ　＠ＰＲＩ
  75. ＩＦ　ＰＸ＝＝１０７　ＴＨＥＮ　ＩＦ　ＢＵＴ＝＝１　ＴＨＥＮ　Ｎ＝Ｎ＋１　ＧＯＴＯ　＠ＰＲＩ
  76. ＩＦ　ＭＯＤＥ＝＝２　ＴＨＥＮ　ＩＦ　ＰＸ＝＝１０７　ＴＨＥＮ　ＩＦ　Ｎ＝＝０　ＴＨＥＮ　ＩＦ　ＢＵＴ＝＝２　ＴＨＥＮ　Ｎ＝６　ＧＯＴＯ　＠ＰＲＩ
  77. ＩＦ　ＭＯＤＥ＝＝１　ＴＨＥＮ　ＩＦ　ＰＸ＝＝１０７　ＴＨＥＮ　ＩＦ　Ｎ＝＝０　ＴＨＥＮ　ＩＦ　ＢＵＴ＝＝２　ＴＨＥＮ　Ｎ＝２　ＧＯＴＯ　＠ＰＲＩ
  78. ＩＦ　ＰＸ＝＝１０７　ＴＨＥＮ　ＩＦ　ＢＵＴ＝＝２　ＴＨＥＮ　Ｎ＝Ｎ－１　ＧＯＴＯ　＠ＰＲＩ
  79. ’－　１ノクライ　－
  80. ＩＦ　ＰＸ＝＝１２３　ＴＨＥＮ　ＩＦ　Ｍ＝＝９　ＴＨＥＮ　ＩＦ　ＢＵＴ＝＝１　ＴＨＥＮ　Ｍ＝０　ＧＯＴＯ　＠ＰＲＩ
  81. ＩＦ　ＰＸ＝＝１２３　ＴＨＥＮ　ＩＦ　ＢＵＴ＝＝１　ＴＨＥＮ　Ｍ＝Ｍ＋１　ＧＯＴＯ　＠ＰＲＩ
  82. ＩＦ　ＰＸ＝＝１２３　ＴＨＥＮ　ＩＦ　Ｍ＝＝０　ＴＨＥＮ　ＩＦ　ＢＵＴ＝＝２　ＴＨＥＮ　Ｍ＝９　ＧＯＴＯ　＠ＰＲＩ
  83. ＩＦ　ＰＸ＝＝１２３　ＴＨＥＮ　ＩＦ　ＢＵＴ＝＝２　ＴＨＥＮ　Ｍ＝Ｍ－１　ＧＯＴＯ　＠ＰＲＩ
  85. ＧＯＴＯ　＠ＳＥＬ
  88. ＠ＥＮ
  89. ＣＬＥＡＲ
  90. ＢＧＭＳＴＯＰ
  91. ＥＮＤ