Program post site for everyone
IchigoJamの全VIDEO番号を使用した、ドットを避けて進むゲームです。
VIDEO番号1～8が一定周期ごとに切り替わります。
左上の数字はスコアではなくVIDEO番号です。スコアは最後に表示されます。ゲームスピードはだんだん速くなっていきます。
IchigoJam 1.2.3以降で動作することを確認していますが、大きい文字サイズのときでも画面がぶれない1.4.1をおすすめします。
操作は左右キーです。再ゲームはエンターキーです。
ネタ（最小サイズのゲーム？）的に作りましたが、案外遊べるものになりました。
10 'BIT UP 20 CLV:A=247*8:V=999:X=3 30 LET [0],1,2,4,8,16,32,64,128 40 CLP:COPY A+1,A,8*3 50 V=V-1:W=V%8+1:VIDEO W 60 CLS:? CHR$(1,247,1,10,1,248,1,10,1,249,1);:LC 3,0:? W 70 COPY A+24,A+23,-24 80 POKE A,[RND(25)] 90 X=X-BTN(29)*!!X+BTN(28)*(X<7) 100 P=PEEK(A+20):POKE A+20,P|[X] 110 S=S+1:BEEP S%(5+W)+50*(S%2)+W,9 120 IF S%50=0 THEN GOTO 50 130 WAIT S/2-1500 140 IF P<>[X] THEN GOTO 70 150 WAIT60:CLK:LC 0,3:? S 160 IF INKEY()=10 RUN ELSE CONT
