nomainwin
    WindowWidth = 700
    WindowHeight = 600
    UpperLeftX=int((DisplayWidth-WindowWidth)/2)
    UpperLeftY=int((DisplayHeight-WindowHeight)/2)
 
    bmpbutton #1.jouer, "bmp\jouer.bmp", [jouer], LR, 350,210
    bmpbutton #1.charger, "bmp\charger.bmp", [charger], LR, 150,45
    open "" for window as #1
    #1, "trapclose [quit]"
    wait
 
 
    [quit]
    close #1
    end
 
    [jouer]
    #1.jouer, "hide"
    #1.charger, "show"
    wait
 
    [charger]
    #1.charger, "hide"
    #1.jouer, "show"
    wait
 

timer 0

timer 100, [time1]

timer 200, [time2]

nomainwin
 
dim p(10,10)
p(0,0)=1:p(0,1)=0:p(0,2)=0:p(0,3)=0:p(0,4)=0:p(0,5)=0:p(0,6)=0:p(0,7)=0:p(0,8)=0:p(0,9)=0
p(1,0)=0:p(1,1)=1:p(1,2)=0:p(1,3)=0:p(1,4)=0:p(1,5)=0:p(1,6)=0:p(1,7)=1:p(1,8)=0:p(1,9)=0
p(2,0)=0:p(2,1)=0:p(2,2)=1:p(2,3)=0:p(2,4)=0:p(2,5)=0:p(2,6)=0:p(2,7)=0:p(2,8)=0:p(2,9)=0
p(3,0)=0:p(3,1)=0:p(3,2)=0:p(3,3)=1:p(3,4)=0:p(3,5)=1:p(3,6)=0:p(3,7)=0:p(3,8)=0:p(3,9)=1
p(4,0)=0:p(4,1)=0:p(4,2)=0:p(4,3)=0:p(4,4)=1:p(4,5)=0:p(4,6)=0:p(4,7)=0:p(4,8)=1:p(4,9)=0
p(5,0)=0:p(5,1)=0:p(5,2)=1:p(5,3)=0:p(5,4)=0:p(5,5)=1:p(5,6)=0:p(5,7)=0:p(5,8)=0:p(5,9)=0
p(6,0)=0:p(6,1)=1:p(6,2)=0:p(6,3)=0:p(6,4)=0:p(6,5)=0:p(6,6)=1:p(6,7)=0:p(6,8)=0:p(6,9)=0
p(7,0)=0:p(7,1)=0:p(7,2)=0:p(7,3)=0:p(7,4)=0:p(7,5)=0:p(7,6)=0:p(7,7)=1:p(7,8)=0:p(7,9)=0
p(8,0)=0:p(8,1)=0:p(8,2)=0:p(8,3)=0:p(8,4)=0:p(8,5)=0:p(8,6)=0:p(8,7)=0:p(8,8)=1:p(8,9)=0
p(9,0)=1:p(9,1)=0:p(9,2)=0:p(9,3)=0:p(9,4)=0:p(9,5)=0:p(9,6)=0:p(9,7)=0:p(9,8)=0:p(9,9)=0
 
 
tailleDuneCase = 50
 
 
WindowHeight = tailleDuneCase*10 + 40
WindowWidth = tailleDuneCase*10 + 18
 
open "Graph" for graphics_nsb as #g
#g, "trapclose [quit]"
#g, "when mouseMove [move]"
 
#g, "down"
 
for x=0 to 9
    for y=0 to 9
        if p(x,y) = 1 then
            #g, "color red; backcolor yellow"
        else
            #g, "color green; backcolor white"
        end if
 
        #g, "place ";x*tailleDuneCase;" ";y*tailleDuneCase
        #g, "boxfilled ";(x+1)*tailleDuneCase;" ";(y+1)*tailleDuneCase
    next
next
 
#g, "Flush"
wait
 
 
[move]
 
for x=0 to 9
    for y=0 to 9
        if p(x,y) = 1 then
            #g, "color red; backcolor yellow"
        else
            #g, "color green; backcolor white"
        end if
 
        #g, "place ";x*tailleDuneCase;" ";y*tailleDuneCase
        #g, "boxfilled ";(x+1)*tailleDuneCase;" ";(y+1)*tailleDuneCase
    next
next
 
if MouseX >= 0 and MouseX < 10*tailleDuneCase and MouseY >= 0 and MouseY < 10*tailleDuneCase then
    if p(int(MouseX/tailleDuneCase),int(MouseY/tailleDuneCase)) = 1 then
        #g, "color blue; backcolor red"
    else
        #g, "color blue; backcolor green"
    end if
else
    #g, "color white; backcolor white"
end if
 
#g, "place ";MouseX;" ";MouseY
#g, "circlefilled 5"
 
#g, "Flush"
wait
 
 
[quit]
 
close #g
end
 

if MouseX >= 0 and MouseX < 10*tailleDuneCase and MouseY >= 0 and MouseY < 10*tailleDuneCase then
    if p(int(MouseX/tailleDuneCase),int(MouseY/tailleDuneCase)) = 1 then