It's way too fast, put a delay in it. Also have a cls in the loop so that the puck doesn't leave a trail but then you'll have to redraw all the borders and stuff in the loop. In order to make the paddles move try something like this
Quote:
var Keys_Pressed : array char of boolean
...
loop
Input.KeyDown (Keys_Pressed)
if Keys_Pressed (KEY_UP_ARROW) then
PaddleX += SPEED
elsif Keys_Pressed (KEY_DOWN_ARROW) then
PaddleX -= SPEED
end if
%All the other suff goes here
Draw.FillBox (PaddleX, PaddleX + PADDLE_WIDTH, PaddleX + PADDLE_LENGTH, PaddleX + PADDLE_LENGTH, COLOUR)
end loop