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

            View.Update
                end loop