ふたりたいせんゲームのプレイヤーをひょうじしよう
10 CLS:X=5:Y=10:V=1:W=0:A=26:B=10:C=-1:D=0:F=0
20 LC X,Y:?"1":LC A,B:?"2"
V,W,C,Dはすすむほうこう、Fはフラグ
30 X=X+V:Y=Y+W:A=A+C:B=B+D
40 WAIT 3
50 GOTO 20
ひだりプレイヤーはWASD、みぎプレイヤーはカーソルキーでそうさ
21 K=INKEY()
22 IF K=65 V=-1:W=0
23 IF K=68 V=1:W=0
24 IF K=87 V=0:W=-1
25 IF K=83 V=0:W=1
26 IF K=28 C=-1:D=0
27 IF K=29 C=1:D=0
28 IF K=30 C=0:D=-1
29 IF K=31 C=0:D=1
じょうがいはんていと、あたりはんていをつけよう
45 IF X<0 OR X>31 OR Y<0 OR Y>22 OR SCR(X,Y) F=F+2
46 IF A<0 OR A>31 OR B<0 OR B>22 OR SCR(A,B) F=F+1
50 IF F=0 GOTO 20
しょうしゃをたたえよう
60 IF F=1 ?"P1 OME!"
70 IF F=2 ?"P2 OME!"
80 IF F=3 ?"DRAW..."