What is the machine epsilon and number of mantissa bits for TI-83?
the TI-83 does not use IEEE-754 floating point, but different floating point encoding scheme with 7 bytes of binary-coded decimal for the mantissa (that's 14 decimal digits).

Yes, and in order to deal with that, the program should take into account the base of 10:
1-&gt;E
While (1+E)&gt;1
E/10-&gt;E
End
Disp 10*E

This results in $10^{-9}$, not $10^{-14}$ - though actually 14 digits would imply that $\epsilon = 10^{-13}$. There's still something missing to explain that result, and that thing is that the TI83+ sometimes rounds to 10 digits, for example for printing, but also for the purpose of comparisons. For the purpose of subtraction, that rounding is not performed. You can see the difference with a program like this, showing that there is more internal precision than 10 digits after all:
1-&gt;E
While (1+E)&gt;1
E/10-&gt;E
End
10E-&gt;E
For(X,1,5
Disp 1+E-1
E/10-&gt;E
End

This program shows that evaluating $1+E-1$ for $E = 10^{-12}$ still does not yield zero, while for $E = 10^{-13}$ it does yield zero. We should be careful not to conclude that therefore $\epsilon = 10^{-12}$, it's more complicated. There seems to be a special rule the zeroes out small differences. That elusive 14th digit does exist though it's well hidden, for example this demo shows it:
1+8|E~13-&gt;X
Disp X*2-2

(this is SourceCoder syntax, |E is the small E made by pressing 2nd and ,, ~ is unary negation (-)).
This program doesn't print zero, so the 14th digit has to exist internally, even though the TI83+ tries very hard to deny it. Whether this means we should say that $\epsilon = 10^{-13}$ is not clear to me. $1 + 10^{-13}$ is technically different from $1$, but they compare equal and evaluating their difference yields zero.