[TI 83+] N'importe quoi

Fait durant mes temps libre :

Hypothèse :
-> veut dire stocker (STO->), situé en huat de ON
=/ veut dire "n'égal pas"

:ClrHome
:ClrDraw
:CoordOff
:AxesOff
:0->A:0->B:0->C:0->D
:Lbl 1
:Input ("TON CHOIX:",B)
:If B 101
:Goto 2
:If B 101
:Goto 1
:Lbl 2
:ranInt(1,55)->C
:randInt(1,85)->D
:randInt(1,100)->A
:Text(C,D,A)
:If A=/B
:Goto 2
:If A=B
:Then
:Pause
:ClrDraw
:Text(C,D,B)
:ClrDraw
:Text(C,D,B)
:ClrDraw
:Text(C,D,B)
:ClrDraw
:Text(C,D,B)
:ClrDraw
:Text(C,D,B)
:ClrDraw
:Text(C,D,B)
:ClrDraw
:Pause
:Goto 1
:End

Ce que ça fait : Au départ, tu choisi un nombre, et après, tu appuis sur ENTER, il va te sortir des nombres aléatoirement à des endroits aléatoires jusqu'à ce qu'il trouve ton chiffre... une fois qu'il la trouvé, il fais une pause, tu te dois donc d'appuyer sur ENTER, une fois ceci fait, le chiffre reste le seul à être affiché et clignote quelque peu... et ensuite, une nouvelle pause puis ON RECOMMENCE!

J'ai fait un p'ti update :

:ClrHome
:ClrDraw
:CoordOff
:AxesOff
:0->B:0->C:0->D
:Lbl 1
:Input ("TON CHOIX:",B)
:If B 10
:Goto 2
:If B 11
:Goto 1
:Lbl 2
:ranInt(1,55)->C
:randInt(1,85)->D
:PxlOn(C,D)
:Goto 2
:End

Eh voilà... ça vous fait un jolie ciel étoilé... et pour une petite touche extravagante, changez le PxlOn(C,D) par PxlChange(C,D), comme ça peut aussi effacer des pixel ce qui fait un ciel où des étoiles meurent

En ce moment, j'essai de faire quelque chose pour qu'il arrête à tout les points ce qui nous permettrait d'apercevoir des dessins (peut-être) et je ferais un concour

:ClrHome
:ClrDraw
:CoordOff
:AxesOff
:Lbl 1
:ranInt(1,55)->C
:randInt(1,85)->D
:PxlOn(C,D)
:Pause
:Goto 1
:End

Voilà, c'est fait (en moins de 30 secondfes, C'EST UN RECORD!)

Heu... il fait quoi ton programme ?