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
:2i+iE-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
:iimag(Ans)+getKey+fPart(real(Ans
:End
:iimag(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
:iimag(Ans)+int(real(Ans))+10fPart(real(Ans))+E-3int(real(Ans-1
:End
:If 12=int(real(Ans
:Then
:iimag(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+iimag(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…"