var y : int
var a : int
var b : int
var y2, y1 : int
var chars : array char of boolean
var rx : real
var ry : real
var move : int
var playq : int
var p1, p2 : int
var s : int % Score
var C : int
var x2 : int :=1
var val:int
var num:int

x2:=200
y:=200
a:= +1
b:= -1
y1:=230
y2:=230
x2:=390
move:=1
playq:=1
p1:=0
p2:=0
s:=4
C:=2
num:=1
%players
loop
%playq

%===================================================
val:=PC.ParallelGet(1)
drawfillbox (0, y2,30, y2 - 60, brightred)
delay(5)
drawfillbox (0, y2, 30, y2 - 60, white)
if(val div 32) mod 2=0 and move=1 then
y2 := y2 + 1
x2:=x2+1
elsif (val div 16) mod 2=0 and move=1 then
y2 := y2 - 1


end if
if (y2 <= 65) then
y2 := y2 + 1
elsif (y2 >= 395) then
y2 := y2 - 1
end if
%===================

if(val div 64) mod 2=0 and move=1 then
x2 := x2 + 1
elsif (val div 32) mod 2=0 and move=1 then
x2 := x2 - 1
end if
if (x2 <= 65) then
x2 := x2 + 1
elsif (1>= 395) then
x2 := x2 - 1
end if
%========================================
if playq = 1 then
Input.KeyDown (chars)
if chars (KEY_UP_ARROW) and move = 1 then
y1 := y1 + 1
elsif chars (KEY_DOWN_ARROW) and move = 1 then
y1 := y1 - 1
end if
if (y1 <= 65) then
y1 := y1 + 1
elsif (y1 >= 395) then
y1 := y1 - 1
end if
drawfillbox (822, y1, 600, y1 - 60, blue)
delay(5)
drawfillbox (822, y1, 600, y1 - 60, white)
end if

%============================================================


end loop

thank u  :D