:ClrHome
:ClrDraw
:0->Xmin
:94->Xmax
:0->Ymin
:62->Ymax
:AxesOff
:0->E
:0->I
:Menu("*****SNAKE******","FACILE",1,"MOYEN",2,"DIFFICILE",3
:Lbl 1
:1->E
:Lbl 2
:1->I
:Lbl 3
:Line(0,0,0,62
:Line(0,0,94,0
:Line(94,0,94,62
:Line(0,0,10,10
:Line(15,15,25,25
:Line(50,5,50,15
:Line(12,62,16,58
:Line(50,20,50,45
:Line(89,9,62,25
:Line(89,40,62,31
:Line(30,20,49,28
:Line(20,30,40,30
:Line(80,55,94,55
:Line(25,53,70,53
:Line(10,50,10,12
:Line(30,35,38,45
:Line(50,5,62,38
:Line(45,62,45,59
:Line(30,6,40,12
:Line(0,35,5,35
:1->A
:59->B
:1->C
:0->D
:0->S
:Pt-On(A,B)
:While D=0
:getKey->K
:If C=1
:A+1->A
:If C=2
:A-1->A
:If C=3
:B+1->B
:If C=4
:B-1->B
:If pxl-Test(62-B,A)=1
:1->D
:Pt-On(A,B)
:S+1->S
:If E=1
:Then
:For(Z,1,60
:End
:End
:If I=1
:Then
:For(Z,1,30
:End
:End
:If K=24
:2->C
:If K=25
:3->C
:If K=26
:1->C
:If K=34
:4->C
:End
:Disp "SCORE:",S