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 |