Je voudrait savoir si mon code est bon ?

Bonjour, et tous d'abord merci je vous expose mon probleme je dispose d'une calculatrice casio Graph 25+Pro je veux programer un jeux "SNAKE" et une foi le code entier entrée dans la calculatrice je veut l'exécuter et puis ba Erreur syntaxe

Lbl 0
ClrText
BG-None
ClrList
0 A~Z
-10 S
45 C
35 D
Locate 8,4,"SNAKE 8"
1 A
ViewWindow 1,127,0,1,63,0
F-Line 45,45,45,25
F-Line 45,25,85,25
F-Line 85,25,85,45
F-Line 85,45,45,45
Text 50,48,"SNAKE 8"
Text 5,5,"SCORE:"
Lbl 2
S+10 S
Text 5,30,S
S=2550 Goto 3
Do
Int 38Ran#+46 U
Int 18Ran#+26 V
LpWhile PxlTest (64-V,U)=1
PlotOn U,V
Dsz M
For L+1 L To 256
Isz M
M=256 2 M
Getkey G
If G 0
Then If G=31
Then Text 1,1,""
Else 0 A~B:IfEnd
G=27 1 A
G=28 1 B
G=38 -1 A
G=37 -1 B
IfEnd
C+A C:D+B D
C List 1[L]
D List 2[L]
C=U And D=V Goto 2
PxlTest 64-D,C)=1 Goto 3
PlotOn C,D
L>1 PlotOff List 1[M],List 2[M]
L=255 1 L
Next
Lbl 3
ClrText
Locate 7,4,"GAME OVER"
Locate 1,1,"SCORE:"
Locate 7,1,S
Locate 4,7,"PLAY AGAIN(Y/N)?"
Do:Getkey A
LpWhile A=0
A=32 Goto 0
80 A

voila le site ou je l'ai prit le code http://www.jeuxcasio.com/recopiage-prog_text%7Csnake_graph100%7CSNAKE.TXT.html#haut

Encore merci