Program post site for everyone
いわゆる「ドブ板ゲーム」です。
地面が徐々に消えていきます。落ちないように右端またどり着いてください。
右端の数字はタイムです。
操作は左右キーです。
難しいときは、行末あたりのWAITの数字を大きくしてみてください。
10 CLS:CLT:LC 0,9:?CHR$(3,1,2,3):FOR I=0 TO 30:R=RND(32):S=SCR(R,9):LC R,9:?CHR$((S+1)*(S<4)):K=INKEY():I=I+(K=29)-(K=28)-(I>0):LC I,8:?CHR$(0,#FB,0):I=I+(SCR(I+1,9)=0)*30:LC 28,7:?TICK():WAIT3:NEXT
