Alors mon programme pour l'instant il donne ça:

isp "ENTRER CODE"
:Lbl 1
:In put X
:While X(différent de) 2528
isp « ERREUR »
:Goto 1
:End
:Lbl2
isp “ bienvenu”
ause
:goto2
:lbl2
:ClrHome
:Output (1,1," ")