picNumber = 1

case picNumber of
   
    label 1 :
        Draw pic1
        picNumber = 2
    label 2 :
        Draw pic2
        picNumber = 3
    label 3 :
        Draw pic3
        picNumber = 4
    label 4 :
        Draw pic4
        picNumber = 5
    label 5 :
        Draw pic5
        picNumber = 6
    label 6 :
        Draw pic6
        if mouse_is_down then
            picNumber = 4
        else
            picNumber = 7
        endif
    label 7 :
        Draw pic7
        picNumber = 8
    label 8 :
        Draw pic8
        picNumber = 9
    label 9 :
        Draw pic9
        if button_is_pressed then
            picNumber = 1
        endif
       
end case

var pic1, pic2, pic3, pic4, pic5, pic6, pic7, pic8, pic9 : int
var RunCycle : int
var chars : array char of boolean

pic1 := Pic.FileNew ("File Path")
pic2 := Pic.FileNew ("File Path")
pic3 := Pic.FileNew ("File Path")
pic4 := Pic.FileNew ("File Path")
pic5 := Pic.FileNew ("File Path")
pic6 := Pic.FileNew ("File Path")
pic7 := Pic.FileNew ("File Path")
pic8 := Pic.FileNew ("File Path")
pic9 := Pic.FileNew ("File Path")

loop

Input.KeyDown (chars)

if chars (KEY_RIGHT_ARROW) then
RunCycle := 1
case RunCycle of
   
    label 1 :
        Pic.Draw (pic1,x , y, picMerge)
        delay (5)       
        Draw.Fill Box (x1,y1,x2,y2,colour)
        RunCycle := 2
    label 2 :
        Pic.Draw (pic2,x , y, picMerge)
        delay (5)
        Draw.Fill Box (x1,y1,x2,y2,colour)
        RunCycle := 3
    label 3 :
        Pic.Draw (pic3,x , y, picMerge)
        delay (5)
        Draw.Fill Box (x1,y1,x2,y2,colour)
        RunCycle := 4
    label 4 :
        Pic.Draw (pic4,x , y, picMerge)
        delay (5)
        Draw.Fill Box (x1,y1,x2,y2,colour)
        RunCycle := 5
    label 5 :
        Pic.Draw (pic5,x , y, picMerge)
        delay (5)
        Draw.Fill Box (x1,y1,x2,y2,colour)
        RunCycle := 6
    label 6 :
        Pic.Draw (pic6,x , y, picMerge)
        delay (5)
        Draw.Fill Box (x1,y1,x2,y2,colour)
       
       if chars (KEY_RIGHT_ARROW) then
            RunCycle := 4
        else
            RunCycle := 7
        endif
    label 7 :
        Pic.Draw (pic7,x , y, picMerge)
        delay (5)
        Draw.Fill Box (x1,y1,x2,y2,colour)
        RunCycle := 8
    label 8 :
        Pic.Draw (pic8,x , y, picMerge)
        delay (5)
        Draw.Fill Box (x1,y1,x2,y2,colour)
        RunCycle := 9
    label 9 :
        Pic.Draw (pic9,x , y, picMerge)
        delay (5)
        Draw.Fill Box (x1,y1,x2,y2,colour)
       
   end case

end if
end loop