View.Set("graphics")

var pic1 : int
var pic2 : int
var pic3 : int
var pic4 : int
var pic5 : int
var pic6 : int


pic1 := Pic.FileNew ("ninja1.jpg")
pic2 := Pic.FileNew ("ninja2.jpg")
pic3 := Pic.FileNew ("ninja3.jpg")
pic4 := Pic.FileNew ("ninja4.jpg")
pic5 := Pic.FileNew ("ninja5.jpg")
pic6 := Pic.FileNew ("ninja6.jpg")

loop
    cls
    Pic.Draw (pic1, 50, 50, picMerge)
    cls
    Pic.Draw (pic2, 50, 50, picMerge)
    cls
    Pic.Draw (pic3, 50, 50, picMerge)
    cls
    Pic.Draw (pic4, 50, 50, picMerge)
    cls
    Pic.Draw (pic5, 50, 50, picMerge)
    cls
    Pic.Draw (pic6, 50, 50, picMerge)
end loop

fcn PicLoad (path : string) : int
    const pic : int := Pic.FileNew (path)
    if pic = 0 then
        % An error occured, print an error message and halt
        put "Failed to load \"", path, "\""
        put Error.LastMsg
        Error.Halt(Error.LastMsg + "  (" + intstr(Error.Last) + ")")
    else
        result pic
    end if
end PicLoad


% Example
var myPic :int := PicLoad("mypic.jpg")