Input.KeyDown (chars)
if chars (KEY_UP_ARROW) then
if uby1 > 201 and uby1 < 208 then
uby1 := Rand.Int (-100, -50)
Font.Draw ("Perfect", 200, 100, font, red)
elsif uby1 > 207 and uby1 < 210 then
Font.Draw ("good", 200, 100, font, yellow)
end if
if uby1 > 201 and uby1 < 208 then
uby1 := Rand.Int (-100, -50)
Font.Draw ("perfect", 200, 100, font, red)
elsif uby2 > 201 and uby2 < 208 then
uby2 := Rand.Int (-200, -150)
elsif uby3 > 201 and uby3 < 208 then
uby3 := Rand.Int (-300, -250)
end if
elsif chars (KEY_DOWN_ARROW) then
if dby1 > 201 and dby1 < 208 then
dby1 := Rand.Int (-100, -50)
Font.Draw ("Perfect", 200, 100, font, red)
elsif dby2 > 201 and dby2 < 208 then
dby2 := Rand.Int (-200, -150)
end if
elsif chars (KEY_RIGHT_ARROW) then
if rby1 > 201 and rby1 < 208 then
rby1 := Rand.Int (-100, -50)
Font.Draw ("Perfect", 200, 100, font, red)
elsif rby2 > 201 and rby2 < 208 then
rby2 := Rand.Int (-200, -150)
end if
elsif chars (KEY_LEFT_ARROW) then
if lby1 > 201 and lby1 < 208 then
lby1 := Rand.Int (-100, -50)
Font.Draw ("Perfect", 200, 100, font, red)
elsif lby2 > 201 and lby2 < 208 then
uby2 := Rand.Int (-200, -150)
end if
end if