Global pongx,pongy,ponglaenge=60,ponghoehe=10,pongspeed=10
Global ballx,bally,balllaenge=8,ballhoehe=8,ballmovex=5,ballmovey=5
Global screenwidth= 800, screenheight= 600

Const links=203, rechts=205

Graphics screenwidth,screenheight,32,1
ClsColor 0,0,0
frametimer = CreateTimer(60)

pongx = (screenwidth/2) - (ponglaenge/2)
pongy = screenheight/100*98-(ponghoehe*5)
ballx = screenwidth / 2
bally = screenheight / 2

; HAUPTSCHLEIFE
Repeat
Cls
WaitTimer frametimer

movePONG()
moveBALL()
collision()
drawscreen()

Flip
Until KeyHit(1)


; DEN BILDSCHIRM BEMALEN
Function drawscreen()
Rect pongx,pongy,ponglaenge, ponghoehe
Rect ballx,bally,balllaenge, ballhoehe
End Function

; DEN PONG BEWEGEN
Function movePONG()

If KeyDown(links)
pongx = pongx - pongspeed
End If
If KeyDown(rechts)
pongx = pongx + pongspeed
End If

If pongx <= 1 Then pongx = 1
If pongx => screenwidth - ponglaenge Then pongx = screenwidth - ponglaenge

End Function

; DEN BALL BEWEGEN
Function moveBALL()
ballx = ballx + ballmovex
bally = bally + ballmovey

If bally > screenheight-ballhoehe Then
ballmovey = 0 - ballmovey
EndIf
If bally < ballhoehe Then
ballmovey = -ballmovey
EndIf
If ballx > screenwidth-balllaenge Then
ballmovex = 0 - ballmovex
EndIf
If ballx < balllaenge Then
ballmovex = - ballmovex
End If
End Function

; COLLISION
Function collision()
If ballx > pongx And ballx < (pongx+ponglaenge) And bally >= pongy
ballmovey = - ballmovey
EndIf

End Function