bonjour
je ne m'y connais pas du tout en programmation. je voulais avoir snake sur ma ti 82 et n'ayant pas le câble, j'ai recopié tout le programme mais il ne fonctionne pas!!! : erreur: DOMAIN
voila le programme: l'erreur est à la fin (j'ai mis une flèche)
Que faire???
Aidez moi SVP
PlotsOff :FnOff :Full:AxesOff:GridOff
ClrDraw
Text(20,31,"SERPENT
Text(26,42,"BY
Text(32,31,"ERIC PIEL
Text(38,38,"1998
0üXmin:1ü¾X
0üYmin:1ü¾Y
1üN:0üS:3üW
If 1:Then
Lbl D:End
0üP:1üM:0üG:12üQ:13üT:1üU:0üV
{0üL†:41üdim(L†:11.4üL†(12:12.4üL†(13
2^26-1üL†(1:2^26-1üL†(11
If N=1:ClrDraw
If N=2:Then
524160üL†(6
ClrDraw
Line(22,27,68,27
End
If N=3:Then
For(I,4,8
131584üL†(I
End
ClrDraw
Line(31,13,31,41:Line(63,13,63,41
End
If N=4:Then
For(I,4,9
2^(I+4)+2^(23-IüL†(I
End
ClrDraw
Line(26,41,49,7:Line(50,7,73,41
End
If N=5 or N=6:Then
For(I,3,9,3
8388592üL†(I
End
ClrDraw
For(I,9,45,18
Line(10,I,84,I
End
End
If N=6:Then
Line(47,9,47,45
For(I,4,8
2^13+L†(IüL†(I
End
End
If N>6:Then
ClrDraw
For(I,2,10,2
For(J,I,I+22,4
JüA:If A>24:A-24üA
2^A+L†(IüL†(I
Text(6I-4,4A-6,"X
End
End
End
For(I,2,10
2+2^25+L†(IüL†(I
End
6144+L†(5üL†(5
Line(0,0,0,55:Line(94,0,94,55:Horizontal 0:Horizontal 55
Text(0,2,"LEVEL:",N:Text(0,36,"LIFE:",W:Text(0,60,"SCORE:",S
Text(26,38,"ÁÁ
Pause
Repeat .5>fPart((L†(Ans)/2^(X+1
2+int(23randüX:2+int(9randüY
End
Text(6Ans-4,4X-6,"d"
Lbl A
Repeat I
P+2üP
If Ans>2:Then
U+V+L†(TüE
T+1üT:If Ans>41:12üT
iPart(EüA:1+10fPart(EüB
If .5÷fPart((L†(Ans)/2^(A+1:Then
W-1üW
If Ans:Goto D
Goto F
End
If A=X and B=Y:Then
M+GüG:M+SüS:Text(0,82,Ans
If M=8:Then
N+1üN:Goto D
End
M+1üM
Repeat .5>fPart((L†(Ans)/2^(X+1
2+int(23randüX:2+int(9randüY
End
Text(6Ans-4,4X-6,"d
End
If G:Then:G-1üG
Else
iPart(L†(QüC:1+10fPart(L†(QüD
L†(D)-2^CüL†(D
Q+1üQ:If Ans>41:12üQ
Text(6D-4,4C-6,"
End
PROBLEME ==> Text(6B-4,4A-6,"Á <=== PROBLEME ma calculette me met le curseur sur le Á (têta)
EüL†(T
2^A+L†(BüL†(B
P-3üP
End
getKeyüI
End
If Ans=24 or Ans=26:Then
If U+Ansø25:Ans-25üU
0üV
End
If I=25:Then:0üU
If V÷0:ú.1üV
End
If I=34:Then:0üU
If Vù0:.1üV
End
P+3üP
Goto A
Lbl F
Text(0,52,W
ClrList L†