Bonsoir à tous,

J'aurais besoin de vous pour m'aider à trouver l'erreur dans ce programme.
Je ne comprend pas pourquoi il m'affiche cette erreur.

Pouvez vous m'aider

L'erreur "Dim Error" apparait à la première ligne des listes, là où il y a le crochet en gras : "X"?->List 1[I[b]][/b].

Merci d'avance.

Gra
0->G
0->D
"CALCUL DE G0"
"NOMBRE DE POINTS VISE (3,6)"?->A
ClrText
"COORDONNEES STATION"
"X"?->J
"Y"?->K
ClrText
"COORDONNEES POINTS VISEE"
For 1->I To A
"POINT :"
I[DISP]
"X"?->List 1
"Y"?->List 2
"L"?->List 4
(List 1-J)->U
(List 2-K)->V
[SQRT](U²+V²)->List 3
If U>0
Then 100-tan-1 (V/U)->List 5
IfEnd
If U<0
Then 300-tan-1 (V/U)->List 5
IfEnd
If U=0 And V>=0
Then 0->List 5
IfEnd
If U=0 And V<0
Then 200->List 5
IfEnd
List 5-List 4->List 6
If List 6<0
Then List 6+400->List 6
IfEnd
G+(List 6*List 3)->G
D+List 3->D
ClrText
Next
G/D->N
"G0="
N[DISP]


édit totoyo : j'ai remplacé les ° par ->

Fichier joint