テニスゲーム by ノトホホ（SPECIAL THANKS: すがやみつる）

再生

　マイコン少年のバイブル『こんにちはマイコン』第２巻で解説された「アラシ テニス ゲーム」を知っているかな？　シンプルな中にもBASICで作るアクションゲームの基本をすべておさえた名作だ。
　このプログラムは、そのプチコン版。『こんにちはマイコン』の作者すがやみつる先生の何気ないひとことに発奮したノトホホ君が移植したものなのだ。
　十字ボタン左右でラケット移動、画面中をはね返るボールを打ち返し続けよう。もちろん打ちもらしてボールを落とせばミスになってしまうぞ。

作ったのはこの人

ノトホホ
Twitter

多感な少年時代にカシオ製マイコンFP-1100に出会い、BASICプログラムに夢中になる。その後、現在まで息をするようにプログラムを打ち、息切れをするようにプログラムを打たない日々。座右の銘は「Syntax Error」。


 CHECK POiNT 

ワンパク
ちょっとスピードが早すぎるんじゃねえか？　なかなかボールに追いつけねえぜ。シット！

博士
なるほど、このプログラムはPC-6001からの「ベタ移植」に近いんじゃが、DSiとPC-6001の処理速度の違いが出てしまうのじゃな。

神崎
『こんにちはマイコン』ではＦＯＲ　Ｉ＝０　ＴＯ　５０：ＮＥＸＴ　Ｉみたく中に何もないループを作って時間つぶしをするといいって書いてあるよ。

インテリ
プチコンだと別の方法もあるね。ＶＳＹＮＣ命令で、フレーム（画面更新周期）の数を指定すればその間動作が止まるんだ。

博士
さよう！　75行目に＠ＷＡＩＴというルーチンがあるじゃろう。こういう時のために用意してあるのじゃな。12行目の変数Ｗの値を大きくすればそれだけ遅くなるということじゃ。

プログラムリスト

  1. ’┌──────────────────┐
  2. ’│　　　　　　　　　　　　　　　　　　│
  3. ’│　　　アラシ　テニス　ケ゛－ム　　　│
  4. ’│　　　　　　　　　　　　　　　　　　│
  5. ’│　ＢＹ　ＩＳＨＩＮＯ　ＡＲＡＳＨＩ　│
  6. ’│　　　　　　　　　　　　　　　　　　│
  7. ’│　イショク　ＳｍｉｌｅＢｏｏｍЖ　　│
  8. ’│　　　　　　　　　　　　　　　　　　│
  9. ’└──────────────────┘
  10. ’－－－　カ゛メン　ノ　セッテイ
  11. ＶＩＳＩＢＬＥ　１，１，０，０，０，０
  12. Ｗ＝４
  13. ’－－－　トクテンヲ　セ゛ロニスル
  14. ＠ＲＥＳＥＴ
  15. Ｔ＝０
  16. ’－－－　ホ゛－ルノカス゛
  17. Ｂ＝５
  18. ’－－－　ラケットトホ゛－ルノセッテイ
  19. Ｒ１＄＝”＝＝＝”：Ｒ２＄＝”　　　”
  20. Ｂ１＄＝”＠”：Ｂ２＄＝”　”
  21. ’－－－　カ゛メンクリア
  22. ＣＬＳ
  24. ’－－－　ラケットノヒョウシ゛
  25. ＠ＲＥＴＲＹ
  26. ＲＸ＝１３：ＲＹ＝２０
  27. ＬＯＣＡＴＥ　ＲＸ，ＲＹ
  28. ＰＲＩＮＴ　Ｒ１＄
  29. ’－－－　ラインヲヒク
  30. ＬＯＣＡＴＥ　０，２１
  31. ＰＲＩＮＴ”────────────────────────────────”；
  32. ’－－－　トクテンノヒョウシ゛
  33. ＬＯＣＡＴＥ　１，２２
  34. ＰＲＩＮＴ”トクテン：”；Ｔ；
  35. ＬＯＣＡＴＥ　１，２３：ＰＲＩＮＴ”ホ゛－ル：”；Ｂ－１；”　ＴＥＮＮＩＳ　ＧＡＭＥ”；
  36. ’－－－　ホ゛－ルノヒョウシ゛
  37. ＢＸ＝ＲＮＤ（３２）
  38. ＢＹ＝１
  39. ＨＯ＝ＲＮＤ（２）＋１
  40. ＬＯＣＡＴＥ　ＢＸ，ＢＹ
  41. ＰＲＩＮＴ　Ｂ１＄；
  43. ’－－－　ラケットノイト゛ウ
  44. Ｐ＝０
  45. ’－－－　メインル－フ゜
  46. ＠ＬＯＯＰ
  47. ＢＴ＝ＢＵＴＴＯＮ（）
  48. ＩＦ　ＢＴ　ＡＮＤ　４　ＴＨＥＮ　ＧＯＳＵＢ　＠ＭＶＬＥＦＴ
  49. ＩＦ　ＢＴ　ＡＮＤ　８　ＴＨＥＮ　ＧＯＳＵＢ　＠ＭＶＲＩＧＨＴ
  50. Ｐ＝Ｐ＋１：ＩＦ　Ｐ＜２　ＴＨＥＮ　＠ＬＯＯＰ
  51. Ｐ＝０
  52. ＬＯＣＡＴＥ　ＲＸ，ＲＹ：ＰＲＩＮＴ　Ｒ１＄；
  54. ’－－－　ホ゛－ルノイト゛ウ
  55. ＬＯＣＡＴＥ　ＢＸ，ＢＹ：ＰＲＩＮＴ　Ｂ２＄；
  56. ’－－－　
  57. ＠ＣＨＫＢＡＬＬ
  58. ＩＦ　ＢＸ＝＝０　ＡＮＤ　ＢＹ＝＝０　ＴＨＥＮ　＠ＲＥＶＬＨ
  59. ＩＦ　ＢＸ＝＝３１　ＡＮＤ　ＢＹ＝＝０　ＴＨＥＮ　＠ＲＥＶＲＨ
  60. ＩＦ　ＢＸ＝＝０　ＴＨＥＮ　＠ＲＥＶＬ
  61. ＩＦ　ＢＸ＝＝３１　ＴＨＥＮ　＠ＲＥＶＲ
  62. ＩＦ　ＢＹ＝＝０　ＴＨＥＮ　＠ＲＥＶＨ
  63. ＩＦ　ＢＹ＞２１　ＴＨＥＮ　＠ＤＥＡＤ
  65. ’－－－　
  66. ＠ＭＶＢＡＬＬ
  67. ＩＦ　ＨＯ＝＝１　ＴＨＥＮ　ＢＸ＝ＢＸ＋１：ＢＹ＝ＢＹ＋１
  68. ＩＦ　ＨＯ＝＝２　ＴＨＥＮ　ＢＸ＝ＢＸ－１：ＢＹ＝ＢＹ＋１
  69. ＩＦ　ＨＯ＝＝３　ＴＨＥＮ　ＢＸ＝ＢＸ－１：ＢＹ＝ＢＹ－１
  70. ＩＦ　ＨＯ＝＝４　ＴＨＥＮ　ＢＸ＝ＢＸ＋１：ＢＹ＝ＢＹ－１
  71. ＩＦ　ＣＨＫＣＨＲ（ＢＸ，ＢＹ）＝＝ＡＳＣ（”＝”）　ＴＨＥＮ　＠ＲＥＶＰＡＤ
  72. ＬＯＣＡＴＥ　ＢＸ，ＢＹ：ＰＲＩＮＴ　Ｂ１＄；
  74. ’－－－　ウエイト
  75. ＠ＷＡＩＴ
  76. ＶＳＹＮＣ　Ｗ
  77. ＧＯＴＯ　＠ＬＯＯＰ
  79. ’－－－　ラケット　ヒタ゛リイト゛ウ
  80. ＠ＭＶＬＥＦＴ
  81. ＬＯＣＡＴＥ　ＲＸ，ＲＹ：ＰＲＩＮＴ　Ｒ２＄；
  82. ＲＸ＝ＲＸ－１
  83. ＩＦ　ＲＸ＜０　ＴＨＥＮ　ＲＸ＝０
  84. ＲＥＴＵＲＮ
  85. ’－－－　ラケット　ミキ゛イト゛ウ
  86. ＠ＭＶＲＩＧＨＴ
  87. ＬＯＣＡＴＥ　ＲＸ，ＲＹ：ＰＲＩＮＴ　Ｒ２＄；
  88. ＲＸ＝ＲＸ＋１
  89. ＩＦ　ＲＸ＞２９　ＴＨＥＮ　ＲＸ＝２９
  90. ＲＥＴＵＲＮ
  92. ’－－－　ヒタ゛リウエスミ　ハンテン
  93. ＠ＲＥＶＬＨ
  94. ＨＯ＝１
  95. ＢＥＥＰ　８
  96. ＧＯＴＯ　＠ＭＶＢＡＬＬ
  97. ’－－－　ミキ゛ウエスミ　ハンテン
  98. ＠ＲＥＶＲＨ
  99. ＨＯ＝２
  100. ＢＥＥＰ　８
  101. ＧＯＴＯ　＠ＭＶＢＡＬＬ
  103. ’－－－　ヒタ゛リカヘ゛　ハンテン
  104. ＠ＲＥＶＬ
  105. ＩＦ　ＨＯ＝＝２　ＴＨＥＮ　ＨＯ＝１
  106. ＩＦ　ＨＯ＝＝３　ＴＨＥＮ　ＨＯ＝４
  107. ＢＥＥＰ　８
  108. ＧＯＴＯ　＠ＭＶＢＡＬＬ
  109. ’－－－　ミキ゛カヘ゛　ハンテン
  110. ＠ＲＥＶＲ
  111. ＩＦ　ＨＯ＝＝１　ＴＨＥＮ　ＨＯ＝２
  112. ＩＦ　ＨＯ＝＝４　ＴＨＥＮ　ＨＯ＝３
  113. ＢＥＥＰ　８
  114. ＧＯＴＯ　＠ＭＶＢＡＬＬ
  116. ’－－－　ウエ　ハンテン
  117. ＠ＲＥＶＨ
  118. ＩＦ　ＨＯ＝＝３　ＴＨＥＮ　ＨＯ＝２
  119. ＩＦ　ＨＯ＝＝４　ＴＨＥＮ　ＨＯ＝１
  120. ＢＥＥＰ　８
  121. ＧＯＴＯ　＠ＭＶＢＡＬＬ
  123. ’－－－　ラケット　ハンテン
  124. ＠ＲＥＶＰＡＤ
  125. ＩＦ　ＨＯ＝＝１　ＴＨＥＮ　ＨＯ＝４
  126. ＩＦ　ＨＯ＝＝２　ＴＨＥＮ　ＨＯ＝３
  127. Ｔ＝Ｔ＋１０
  128. ＬＯＣＡＴＥ　６，２２
  129. ＰＲＩＮＴ　Ｔ；
  130. ＢＥＥＰ　８
  131. ＧＯＴＯ　＠ＣＨＫＢＡＬＬ
  133. ’－－－　ウチソコナッタ！
  134. ＠ＤＥＡＤ
  135. ＢＥＥＰ　５
  136. ＬＯＣＡＴＥ　ＲＸ，ＲＹ：ＰＲＩＮＴ　Ｒ２＄；
  137. Ｂ＝Ｂ－１
  138. ＩＦ　Ｂ＜＝０　ＴＨＥＮ　＠ＧＯＶＥＲ
  139. ＶＳＹＮＣ　６０
  140. ＧＯＴＯ　＠ＲＥＴＲＹ
  142. ’－－－　ケ゛－ムオ－ハ゛－
  143. ＠ＧＯＶＥＲ
  144. ＣＬＳ
  145. ＬＯＣＡＴＥ　１２，７
  146. ＰＲＩＮＴ”ケ゛－ムオ－ハ゛－”
  147. ＬＯＣＡＴＥ　５，９
  148. ＰＲＩＮＴ”アナタノ　トクテンハ　”；Ｔ；”テン　テ゛ス。”；
  149. ＬＯＣＡＴＥ　１０，１４
  150. ＰＲＩＮＴ”モウイチト゛ヤリマスカ？”；
  151. ＬＯＣＡＴＥ　９，１６
  152. ＰＲＩＮＴ”ハイ＝（Ｙ），イイエ＝（Ｎ）”；
  153. ’－－－
  154. ＠ＫＥＹＬＯＯＰ
  155. Ａ＄＝ＩＮＫＥＹ＄（）
  156. ＩＦ　Ａ＄＝＝””　ＴＨＥＮ　＠ＫＥＹＬＯＯＰ
  157. ＩＦ　Ａ＄＝＝”Ｙ”　ＴＨＥＮ　＠ＲＥＳＥＴ
  158. ＩＦ　Ａ＄！＝”Ｎ”　ＴＨＥＮ　＠ＫＥＹＬＯＯＰ
  159. ＥＮＤ