Pong on Turing

[Salman]

Hello, I'm working on a pong game on Turing. I would like to know how to code the the arrow keys, please reply as soon as possible, this is my code so far:

import GUI
var font : int
var option : string
var movement : int := 0
var keys : array char of boolean
const centerx := maxx div 2
const centery := maxy div 2
colorback (black)

for i : 1 .. 25 %Counted loop makes the background stay black
for j : 1 .. 80
put " " ..
end for
end for
setscreen ("nocursor")
font := Font.New ("Arial Black:18")
Font.Draw ("Pong", 280, 320, font, red)
procedure startGame
cls
Draw.FillBox (0, 600, maxx, 360, brightred)
Draw.FillBox (0, 00, maxx, 45, brightred)
Draw.FillBox (0, 175, 10, 225, red)
Draw.FillBox (630, 175 + movement, maxx, 225 + movement, red)
Input.KeyDown (keys)
if keys (KEY_UP_ARROW) then
Draw.FillBox (630, 175 + movement, maxx, 225 + movement, black)
movement := movement + 2
end if
for i : 1 .. 5
drawfilloval (centerx, centery, i + 5, i + 5, brightblue)
end for

end startGame
var startButton : int := GUI.CreateButton (maxx div 2 - 30, 60, 60,
"Start Game", startGame)
procedure helpGame
cls
colorback (white)
Font.Draw ("Refer to the instruction manual", 100, 320, font, red)
end helpGame
var helpButtom : int := GUI.CreateButton (maxx div 2 - 200, 60, 60, "Help", helpGame)

loop
exit when GUI.ProcessEvent
end loop

[Insectoid]

The arrow keys codes are KEY_UP_ARROW, KEY_LEFT_ARROW, etc. Any time you'd check for something like 'd', instead use one of those codes.

[TerranceN]

And here's a full list of key codes.