Input.KeyDown (chars)
if chars(key_up_arrow) then
loop
   put "you pressed the up key"
   exit when chars(key_left_arrow) or chars(key_right_arrow) or chars        (key_down_arrow)
end loop
elsif chars(key_down_arrow) then
loop
 put "you pressed the down key"
exit when chars(key_left_arrow) or chars(key_right_arrow) or chars        (key_down_arrow)
end loop
elsif chars(key_left_arrpw) then
loop
put "you pressed the left key"
exit when chars(key_left_arrow) or chars(key_right_arrow) or chars        (key_down_arrow)
end loop
elsif chars(key_right_arrow) then
looop
put "you pressed the right key"
exit when chars(key_left_arrow) or chars(key_right_arrow) or chars        (key_down_arrow)
end loop
end if

var (direction) : array char of boolean
     loop
          if direction (KEY_UP_ARROW) then
              loop
                    object_y += 5
                    exit when hasch
              end loop
         if direction (KEY_DOWN_ARROW) then
              loop
                   object_y -= 5
                   exit when hasch
              end loop
%So same thing for left and right.