Bon alors, tu fait :

ClrHome
Disp "ENTRER CODE"
0->A:0->B:0->C:4->dim(L1
Lbl 1
While 1
C+1->C
If C=4:Then:Goto 2:End
getKey->K
If Kø0:Then:A+1->A:Output(2,A,"*":End
B+1->B:K->L1(B)
End
Lbl 2
If L1(1)=93 and L1(2)=83 and L1(3)=93 and L1(4)=73:Then:ClrHome:Goto 3:End
If L1(1)ø93:Then: Disp "ERREUR":Goto 1:End
Lbl 3
Disp "bienvenu"
Pause
ClrHome Output (1,1," "

Voilà, j'ai pas tester mais ça devrai (en principe) marcher. Je t'éxplique comment on fait :

-On stocke la valeur de la touche préssé dans la liste 1 dans quatre cases différentes.
-Ensuite on vérifie que les valeurs des touches sont égales au touche 2,5,2 et 8
-Si oui, c'est finit.
-Sinon, on recommence.

J'éspère que tu as compris, sinon n'hésite pas à poser des questions sur le code.