Déjà pourquoi il y a trois 'ClrHome' au départ ? Un seul suffit.

Après, comme tu semble vouloir faire patienter le programme avec des boucles 'For(' (et à certain moment tu peut les remplacées par un 'Pause ' pour stopper le programme), utilise au moins la même variable puisqu'elle prendra simplement la valeur initial du 'For(' jusqu'à la valeur final.

Ensuite, dans la boucle 'While 1' (qui n'a pas de End ici, mais ça t'as seulement du l'oublier je pense), évite de mettre dedans les trucs à afficher qui sont 'statiques' du genre :

:Output(8,13," ")
:Output(8,10,"Dep")
:Output(1,12," ")
:Output(1,6,"score")
:Output(8,1," ")
:Output(8,1,"ENE:")

Car ça ralentit vachement le programme (surtout si tu n'as de ClrHome dans la boucle enfaite). Et le reste j'ai pas tout lu mais je trouve qu'il y a beaucoup de tests dans ta boucle...