10 SCREEN1,0,0:WIDTH32:KEYOFF:COLOR1,14,1 20 X=112:BX=112:BY=4:MX=2:MY=2:SC=0 40 FOR J=0 TO 23:PRINT"########## ##########";:NEXT J 60 SPRITE$(0)="" 70 SPRITE$(2)="ﾀﾀ" 80 REM =========ball move===== 90 BX=BX+MX:BY=BY+MY 100 MX=MX*((BX=78)*2+1)*((BX=174)*2+1) 110 PUTSPRITE2,(BX,BY),1 120 REM =======key input======== 130 T=STRIG(0) 140 X=X-(T=0)*(X>78)+(T=-1)*(X<166) 150 PUTSPRITE0,(X,160),1 160 REM =======judge========= 170 IF BY=158 AND BX>X-1 AND BX<X+9 THEN MY=-2:SC=SC+1 180 IF BY=170 THEN 220 190 IF BY=2 THEN MY=2 200 GOTO 90 210 REM ===========game over======= 220 PRINT"SCORE=";SC*10:FOR I=0 TO 500:NEXT 230 FOR I=0 TO 1:I=-STRIG(0):NEXT I:GOTO 10
