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 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