ポン風
むか〜しむかし、40 年位前の事……
アタリという会社が二人用のテニスゲームを作ったとさ。
その当てる音から「PONG」（ポン）と名づけたんだと。
この PONG を試しにお店に置いてみたそうな。
すると数日後、動かなくなったと電話が！
あわてて設置したお店に行ってみたところ、
な〜んと、ゲームをする人があまりに多くて、
コイン入れが満杯で詰まってしまってたんだとさ。
めでたしめでたし。
……というわけで、そんな PONG を
IchigoJam で作ってみたのが「ポン風」です。
で、なぜ「ポン風」なのか？
……画面の表示だけで、ゲームはできないのです……
画面生成後に止まります。Esc キーで中断させて下さい。
IchigoJam BASIC 0.9.9〜
5 'PONG ﾌｳ
10 CLS:Y=0
20 LOCATE 15,Y:? "|";
30 Y=Y+1:IF Y<>23 GOTO 20
40 X=0:GOSUB 90
50 X=30:GOSUB 90
60 X=RND(29)+1:Y=RND(20)
70 LOCATE X,Y:? CHR$(232);
80 LOCATE 0,23:GOTO 80
90 Y=RND(20):I=0
100 LOCATE X,Y+I:? CHR$(1);
110 I=I+1:IF I<>3 GOTO 100
120 RETURN
IchigoJam web でプログラムを実行します。
このQRコードはアクセス解析のためにCookieを使用しています。
アクセス解析は匿名で収集されており、個人を特定するものではありません。
この機能はCookieを無効にすることで収集を拒否することができますので、
お使いのデバイスのブラウザの設定をご確認ください。
MixJuice ダウンロード ?"MJ GET kidspod.club/mj/576
MicJack ダウンロード ?"MJ GKP 576
IchigoJam BASIC 0.7.5〜0.9.8
10 CLS:Y=0
20 LOCATE 17,Y:? "|";
30 Y=Y+1:IF Y<>26 GOTO 20
40 X=0:GOSUB 90
50 X=34:GOSUB 90
60 X=RND(33)+1:Y=RND(24)
70 LOCATE X,Y:? CHR$(11);
80 LOCATE 0,26:GOTO 80
90 Y=RND(24):I=0
100 LOCATE X,Y+I:? CHR$(1);
110 I=I+1:IF I<>3 GOTO 100
120 RETURNIchigoJam BASIC 0.9.8 ではキャラクターコードが変わっているため、次に変更して下さい。
70 LOCATE X,Y:? CHR(232);他のバージョン
- PanCake/BASIC プログラム/ポン風 - PanCake+IchigoJam BASIC 版。スコア表示付
-
プログラム | MSX JAPAN▉ - MSX 版。SCREEN 3 使用
イチゴジャム レシピ では jig.jp・B Inc.・na-s.jp (株式会社ナチュラルスタイル)
の確認・了承を得て商標・公式ロゴを使用しています。
IchigoLatte is a registered trademark in Japan
of the Natural Style Co,Ltd. (na-s.jp)
IchigoJam Recipe (イチゴジャム レシピ) has confirmation and approval
for the use of trademarks and official logos of jig.jp, B Inc. and na-s.jp.
SkyBerryJAM は 栃木県立栃木工業高等学校 が管理する登録商標であり、
SkyBerryJAM は 栃木県立栃木工業高等学校 の商標です。
managed by Tochigi Technical High School (Tochiko)
Raspberry Pi は
Raspberry Pi 財団 の登録商標です。
Raspberry Pi is a registered trademark or
trademark of
the Raspberry Pi Foundation.
"RISC-V" の商品名は RISC-Vインターナショナル が管理する登録商標です。
The “RISC-V” trade name is a registered trade mark of
RISC-V International.
イチゴジャム レシピ は jig.jp・B Inc.・na-s.jp・
IchigoJam Recipe (イチゴジャム レシピ) is NOT an official website
by jig.jp, B Inc., na-s.jp and PCN (Program Club Network).
クリエイティブ・コモンズ 表示 4.0 国際 ライセンス
(シェアボタン、PanCake 公式ロゴ、MSX フォント、
(Share button, PanCake Offical Logo, MSX font, Nyan Cat,
Denshi Kousaku Magazine & Micom BASIC Magazine Images,
Petit Computer Images, KDDI / Jimdo footer and
objects with the license specification are excluded)