IchigoJam定番プログラムの「かわくだりゲーム」が宇宙に飛び立ちました。

キミは天の川を、小惑星に当たらずに何光年進むことができるか?

asteroidbelt はるか遠方より小惑星が近づいてきます。
(天の川を一点透視図法で表現しています。)
ぶつからないよう矢印キーで避けてください。
宇宙空間なので慣性の法則により、宇宙船は同じ方向に動き続けるので注意。


10 'アマノガワクダリ ゲーム
20 CLS:CLV:CLT:X=16
30 FOR I= 0 TO 14
40 LC 14-I,I+8:?"/":LC 16+I,I+8:?"\";
50 NEXT
60 [0]=RND(30)+1
70 FOR I= 16 TO 1 STEP -1
80 IF [I] THEN LC ([I]-16)*I/16+15,7+I:?" ";
90 [I]=[I-1]
100 IF [I] THEN LC ([I]-16)*I/16+15,7+I:?".";
110 NEXT
120 IF SCR(X,23)=46 THEN LC X,23:? CHR$(244):LC 0,0:?"ダッシュツ キョリ=";TICK();"コウネン":END
130 K=INKEY()
140 IF K THEN W=(K=RIGHT)-(K=LEFT):IF W THEN V=W
150 LC X,23:?" ";
160 X=X+V
170 IF X<0  X=0
180 IF X>30 X=30
190 LC X,23:?CHR$(240);
200 GOTO 60

*入力時の注意
コピー&ペーストで入力する時は「\」および、全角カナを半角に変更してください。