if chars (KEY_UP_ARROW) then
                if uy1 > 201 and uy1 < 208 then
                    uy1 := Rand.Int (-100, -50)
                    Font.Draw ("Perfect", 200, 100, font, red)
                elsif uy1 > 207 and uy1 < 210 then
                    Font.Draw ("good", 200, 100, font, yellow)
                end if
                if uy1 > 201 and uy1 < 208 then
                    uy1 := Rand.Int (-100, -50)
                    Font.Draw ("perfect", 200, 100, font, red)
                elsif uy2 > 201 and uy2 < 208 then
                    uy2 := Rand.Int (-200, -150)
                elsif uy3 > 201 and uy3 < 208 then
                    uy3 := Rand.Int (-300, -250)
                end if
            elsif chars (KEY_DOWN_ARROW) then
                if dy1 > 201 and dy1 < 208 then
                    dy1 := Rand.Int (-100, -50)
                    Font.Draw ("Perfect", 200, 100, font, red)
                elsif dy2 > 201 and dy2 < 208 then
                    dy2 := Rand.Int (-200, -150)
                end if
            elsif chars (KEY_RIGHT_ARROW) then
                if ry1 > 201 and ry1 < 208 then
                    ry1 := Rand.Int (-100, -50)
                    Font.Draw ("Perfect", 200, 100, font, red)
                elsif ry2 > 201 and ry2 < 208 then
                    ry2 := Rand.Int (-200, -150)
                end if
            elsif chars (KEY_LEFT_ARROW) then
                if ly1 > 201 and ly1 < 208 then
                    ly1 := Rand.Int (-100, -50)
                    Font.Draw ("Perfect", 200, 100, font, red)
                elsif ly2 > 201 and ly2 < 208 then
                    uy2 := Rand.Int (-200, -150)
                end if