Stoping the flas!

[BiggZigg9]

Hey i am doing a project in school. Its a pong game . I just started and things are getting a little flashy ans sketchy. Anyone know a way to solve my problem?

var x,y,a,c :int
x:= 15
y:= 0
a:= 629
c:= 0
var player1 : string
var player2 : string
var chars : array char of boolean
put "Enter player 1s name"
get player1
put "Enter player 2s name"
get player2
cls
loop
Draw.ThickLine(0,9,639,9,7,7)
Draw.ThickLine(0,330,639,330,7,7)
Input.KeyDown (chars)
drawfillbox(x,y,25,y+70,40)
if chars (KEY_UP_ARROW)
then y+=3
delay(8)
cls
end if
if chars (KEY_DOWN_ARROW)
then y+=-3
delay(8)
cls
end if
drawfillbox(a,c,619,c+70,9)
if chars ('w')
then c+=3
delay(8)
cls
end if
if chars ('s')
then c+=-3
delay(8)
cls
end if
end loop

[Tony]

You don't really need to have more than one cls.

[DemonWasp]

What he does really need to do is search the Turing Help forum for 3 seconds to find out that this question has already been answered about a billion times.