20 $=”12345678955”:D=5:E=0:R=0:S=0:W=6:Y=11
60 PRINT CSR Y;MID(10,12−Y);CSR 0;MID(A,1); 100 G=INT(RAN#*9+1:$=MID(1,21−Y)+MID(G,2):Y=Y−1:RETURN 110 FOR J=0 TO Y:PRINT CSR J;MID(A,1);:NEXT J 140 $=MID(1,9)+MID(D,1)+MID(11):GOTO 190 180 $=MID(1,9)+MID(11):Y=Y+1:IF Y=12;GOSUB 100:R=0 190 C$=MID(10,1):D=VAL(C$):PRINT:RETURN |
[6 5872] [66666 5872] [6 1872] |
左が自機、右が敵 何かキーを押すと数字が数字が飛んでいく 当たった数字の和の1の位の数字が残る (この時点での得点はない) |
[9 1872] [99999999o872] [9 872] |
自機の数字と敵の先頭の数字との和を見る 当たった数字の和が10の時・・・ その数字は消える |
A | 自機カウンタ |
C$
D |
敵数字列の先頭数字取り出し用
敵数字列の先頭数字 |
E
F H |
続けて同じ数字を消したかの判定
敵を消した時の得点 ハイスコア |
I
J R S |
ゲームスピード調節用
表示FOR〜NEXT用 敵侵略用カウンタ 得点 |
V
W Y |
ウェイト用
ゲームスピード決定用 敵表示位置 |
$ | 敵数字列 |