Enjoy programming more!
Kidspod is a post site which supports young programmers.
First step to join us.
Register as a member
For members

2018/09/25 20:56:15

MixJuice GET URL : kidspod.club/mj/576

ポン風(BASIC 0.9.9~)

詳細は イチゴジャム レシピ で公開しています。
「プログラムをみる」を参照して下さい。

SOURCE CODE

CLS

NEW

5 'PONG Display
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

'OK

COMMENT

Kidspod運営チーム
Kidspod運営チーム2018/11/16 18:19:09

極めて古典的かつ伝説的なゲームですね。 と、思いきやプレイはできないプログラムでした。しかし、このソースコードを基に改造すれば……?