This Code Should Work:
Ball_X=320
Ball_Y=20
Ball_XMove=0
Ball_YMove=5
Paddle_X=270
Paddle_Size=100
Paddle_Speed=10
Do
Cls
If Ball_X<20 Then Ball_XMove=5
If Ball_X>620 Then Ball_XMove=-5
If Ball_Y<20 Then Ball_YMove=5
If Ball_Y>450 Then Goto Gameover
Ball_X=Ball_X+Ball_XMove
Ball_Y=Ball_Y+Ball_YMove
Circle Ball_X,Ball_Y,5
If RightKey()=1 Then Inc Paddle_X,Paddle_Speed
If LeftKey()=1 Then Dec Paddle_X,Paddle_Speed
If Paddle_X<20 Then Paddle_X=20
If Paddle_X>(620-Paddle_Size) Then Paddle_X=(620-Paddle_Size)
Box Paddle_X,450,(Paddle_X+Paddle_Size),455
Paddle_Length=(Paddle_X+Paddle_Size)
If Ball_Y=>450 and Ball_Y=<455
If Ball_X=>Paddle_X and Ball_X=<(Paddle_X+Paddle_Size)
rem Edge Hits
If Ball_X<(Paddle_Length/4) Then Ball_XMove=10 : Ball_YMove=-5
If Ball_X>(Paddle_Length-(Paddle_Length/4)) Then Ball_XMove=-10 : Ball_YMove=-5
rem Middle Hit
If Ball_X=(Paddle_Length/2) Then Ball_XMove=0 : Ball_YMove=-10
rem Normal Hits
If Ball_X>((Paddle_Length/2)-(Paddle_Length/4)) and Ball_X<(Paddle_Length/2) Then Ball_XMove=-5 : Ball_YMove=-10
If Ball_X>(Paddle_Length/2) and Ball_X<((Paddle_Length/2)+(Paddle_Length/4)) Then Ball_XMove=5 : Ball_YMove=-10
EndIf
EndIf
Loop
Gameover:
Center Text 320,240,"Gameover!" : Wait 1000 : End
Hope It Helps
.
