• No registered tag exist.

10 X=16:Y=11
15 CLS
20 LC X,Y : ?"(#FA)"
30 K=INKEY()
40 IF (K=28)*(X>0) X=X-1
45 IF (K=28)*(X=0) X=31
50 IF (K=29)*(X<31) X=X+1
55 IF (K=29)*(X=31) X=0
60 IF (K=30)*(Y>0) Y=Y-1
65 IF (K=30)*(Y=0) Y=22
70 IF (K=31)*(Y<22) Y=Y+1
75 IF (K=31)*(Y=22) Y=0
80 WAIT2:GOTO15

Kidspod運営チーム2017/05/26 18:05:18

色んなゲームに使えそうなソースコードですね。ここからどんなものが生まれるのか、楽しみです！

Pagetop