Hack de calculette

[pigman]

Code: Select all

EffEcr
Lbl 0
Input " " , A
entAleat(-1,1) → B
Disp A+B
Goto 0 

Court mais efficace
Signalez moi les bugs please

[Adriweb]

Même chose avec une boucle et qu'une variable

Code: Select all

ClrHome                      (EffEcr)
While 1
  Input "",A
  Disp A+randInt(-1,1        (entAlea)
End

Bref, une petite farce bien connue