[476]キャプテン岬 ◆ma4dP58NuI :2018/07/01(日) 15:09:45 ID:5qLfYkp6 270 IF SC=100 THEN 540 280 IF Y=4 THEN PAUSE=1 290 IF X<2 OR X>26 THEN XD=‐XD 300 IF Y<2 THEN YD=‐YD 310 IF Y=18 AND X>=BX AND X<BX+4 THEN 360 320 BB=INT〔X〕 330 IF Y=18 AND BB>BX‐2 AND BB<BX+6 THEN 350 340 GOTO 370 350 XD=‐-XD*.8 360 YD=‐YD 370 IF Y>20 THEN GOTO 500 380 X=X+XD 390 Y=Y+YD 400 GOTO 200 410 REM ラケット 420 LOCATE BX,19:PRINT‶====″ 430 G$=INKEY$ 440 IF G$=‶Z″ THEN BX=BX‐2 450 IF G$=‶X″ THEN BX=BX+2 460 IF BX<1 THEN BX=1 470 IF BX>25 THEN BX=25 480 LOCATE BX,19:PRINT A= 490 RETURN 500 BALL=BALL‐1 510 BEEP 520 IF BALL<0 THEN GOTO 540 530 GOTO 160 540 PRINT ‶もうおわり〜?″ (H/Y) 550 INPUT D$ 560 IF D$= ‶Y〜″ THEN END 570 RUN