10 CLS:CLV:X=5:Y=23 15 A=0:FORI=0TO10 20 LCA,0:?CHR$(124) 21 LCA,1:?CHR$(118) 22 A=A+1 23 NEXT 30 LCRND(10),0:?” “ 40 K=INKEY() 50 X=X-(K=28ANDX>0)+(K=29ANDX<10) 60 LCX,Y:?CHR$(5):WAIT3 70 SCROLL31 80 IFSCR(X,Y)=124END 90 IFSCR(X-1,Y)=124GOTO10 91 GOTO40
矢の形が巧妙! 違いが棒のあるなしだけなので、これは惑わされますね。キー入力の精度も求められて、なかなか手応えがあります。避けた回数などが表示されると、競争できて面白そうですね。