var left, right : int
left := Pic.FileNew ("Left2.JPG")
right := Pic.FileNew ("Right2.JPG")

    Input.KeyDown (chars)

    if chars (KEY_UP_ARROW) then
        Pic.Draw (right, x, y, picCopy)
        y := y + 7
        cls
    end if
    if chars (KEY_RIGHT_ARROW) then
        Pic.Draw (right, x, y, picCopy)
        chars2 := 1
        x := x + 7
        cls
    end if
    if chars (KEY_LEFT_ARROW) then
        Pic.Draw (left, x, y, picCopy)
        chars2 := 2
        x := x - 7
        cls
    end if
    if chars (KEY_DOWN_ARROW) then
        Pic.Draw (right, x, y, picCopy)
        y := y - 7
        cls
    end if
    if chars2 = 1 then
        Pic.Draw (right, x, y, picMerge)

        yy := Pic.Height (right) + y
        xx := Pic.Width (right) + x
    end if
    if chars2 = 2 then
        Pic.Draw (left, x, y, picMerge)

        yy := Pic.Height (left) + y
        xx := Pic.Width (left) + x
    end if