この前作った「ビットアップ」がワンラインでも作れそうな気がしたので、やってみました。
降ってくるドットを避けてください。横の数字はスコアです。
操作は左右キーです。
行頭のVIDEO7をVIDEO1などに変えてみても面白いと思います。
10 VIDEO7:CLV:A=1976:LET[0],8,16,32,64,128,1,2,4:COPYA,0,8:FORI=0TO1:S=S+1:CLS:?CHR$(247);S;:COPYA+7,A+6,-7:POKEA,[RND(25)]:X=(X+BTN(28)-BTN(29)+8)%8:P=PEEK(A+6):POKEA+6,P|[X]:WAIT6:I=P=[X]:BEEPP:NEXT