1 'Two set of Numbers 10 SRNDTICK():CLS:P=0:X=0:T=240 80 FORI=0TO7:[I]=RND(8)+1:NEXT:GOTO300 100 CLT:LC1,0:?DEC$(P,7);"P";:LC1,2:FORI=0TO7:?[I];:NEXT 110 LCX,3:?" ↑↑ "; 120 K=INKEY() 130 X=X+(K=RIGHT)*(X<6)-(K=LEFT)*(X>0) 140 IFK=SPACEGOTO200 150 IFTICK()>TGOTO400ELSEGOTO110 200 [8]=[X]:[X]=[X+1]:[X+1]=[8] 300 FORI=0TO6 310 IF[I]=[I+1]:BEEP:P=P+10:[I]=RND(8)+1:[I+1]=RND(8)+1:I=I+2 320 NEXT 330 GOTO100 400 LC1,1:?"GAME OVER";:WAIT60 410 IFINKEY()<>SPACEGOTO410ELSEGOTO10
面白いパズルですね! 簡単そうなのに、素早く数字を消そうとすると、むずかしい!