View.Set ("graphics;maxx;maxy,offscreenonly")

var mypic, mypic2 : int
var x, x2, y2, i2 : int
var y, i : int
var Contin : string

i := 0
i2 := 0

mypic := Pic.FileNew ("C:\\luigi.jpg") %Importing picture into turing

x := 400
y := 1

loop
    drawfillbox (0, 0, maxx, maxy, 7) %Drawing pitch black background
    Pic.Draw (mypic, x + i, y, picCopy)
    View.Update
    i := i - 2
    exit when i = -350
    delay (15)
    View.Update
end loop

put "Press y to conyinue : " ..
get Contin

if Contin = "y" then
    cls

    mypic2 := Pic.FileNew ("C:\\luigiside.bmp") %Importing picture into turing

    x2 := 200
    y2 := 200

    loop
        Pic.Draw (mypic2, x2 + i, y2, picCopy)
        View.Update
        i2 := i2 - 2
        exit when i2 = -350
        delay (15)
        View.Update
    end loop
end if

Pic.Draw (mypic2, x2 + i2, y2, picCopy)

Pic.Draw (mypic2, x2 + i, y2, picCopy)