I thought of lists, but the main problem with lists is you put another curly bracket inside a list. So if you were doing something like this: {Ans(1),Ans(2),Ans(3),-1+sum(cumSum(Ans(2)={74,73,72,84,83,82,94,93,92,102

you'd get a syntax error, even though all of the list entries are real. This makes it harder to get user input, although it certainly still is possible. But I took the easier approach: I'm just using fPart(, int(, real(, and imag( to store 4 variables, which is all I really need. I'll have it up soon.

Okay, here it is.

Here's the source:

:ClrHome

:2*i*+*i*E-3int(1+100rand

:Disp "GUESS. (1-100):"

:Repeat 8<imag(Ans

:Repeat 11=int(real(Ans

:Output(int(imag(Ans)),14,E3fPart(real(Ans

:Repeat int(real(Ans

:*i*imag(Ans)+getKey+fPart(real(Ans

:End

:*i*imag(Ans)+fPart(real(Ans))+sum(cumSum({23,105,74,73,72,84,83,82,94,93,92,102}=int(real(Ans

:If fPart(real(Ans))<.1 and int(real(Ans)) and 10≥int(real(Ans

:Then

:*i*imag(Ans)+int(real(Ans))+10fPart(real(Ans))+E-3int(real(Ans-1

:End

:If 12=int(real(Ans

:Then

:*i*imag(Ans)+int(real(Ans))+E-3int(E2fPart(real(Ans

:Output(int(imag(Ans)),15,"__ *//spaces*

:End

:End

:If angle(fPart(Ans))=sin^{-1}√(.5

:Then

:Disp "WIN

:Return

:End

:Disp sub("HIGHLOW ",1+4(angle(fPart(Ans))>sin^{-1}√(.5))),4

:*i*+*i*imag(Ans

:End

:Disp "NUMBER:

:E3fPart(imag(Ans

E is always the base-10 exponent operation, not some variable, so the second line is read "2 times i plus i times .001 times…"