100 CLS 110 LOCATE ,,0 120 LX=5:JX=30:SC=0:Z=3:WI=20 130 SS=STICK(0) 140 BX=JX:JX=JX+(SS=7)-(SS=3):IF JX<1 OR JX>LX+61 THEN JX=BX 150 TEMPDX=RND(2)+1:NRAND=RND(5) 160 NEWLINE$="*"+SPACE$(80-WI)+"*" 170 TEMPR=RND(52)+2 180 MID$(NEWLINE$,TEMPR,7)="+-----+" 190 IF NRAND=0 THEN 230 200 ON TEMPDX GOTO 210,220 210 IF LX+1<80-(80-WI+2) THEN LX=LX+1:GOTO 230 220 IF LX-1>-1 THEN LX=LX-1 230 LOCATE LX,25:PRINT NEWLINE$:LOCATE 61,0:PRINT "スコア ";SC;" 残機 ";Z 240 AT$=SCRN$(JX,0,1):JK$="O" 245 IF AT$="-" THEN SC=SC+1:SOUND 880,200 250 IF AT$="+" OR AT$="*" THEN BEEP:JK$="x":Z=Z-1:IF Z=0 THEN 310 260 IF AT$<>"*" THEN 290 270 IF JX<40 THEN JX=JX+1 280 IF JX>40 THEN JX=JX-1 290 LOCATE JX,0:PRINT JK$; 300 WAIT 200:GOTO 130 310 FOR I=0 TO 10:LOCATE 0,25:PRINT:NEXT I 315 PRINT "スコア ";SC 320 PRINT "GAME OVER" 330 END