It's getting better: Are you looking to optimize this even further? There are many things that you could change. It is quite large right now... It truly is a space wasting attempt.
EDIT: Perhaps this could also work? Could be useful to learn some more commands... Only 422 bytes on my calculator...
Code:
EDIT: Perhaps this could also work? Could be useful to learn some more commands... Only 422 bytes on my calculator...
Code:
Lbl 9
ClrHome:0
Menu(" GUESS: ","IMPOSSIBLE",1,"EXTREME",2,"HARD",3,"NORMAL",4,"EASY",5,"RANDOM",6,"QUIT",Q
Lbl 6:randInt(-4,0
Lbl 1:Ans+1
Lbl 2:Ans+1
Lbl 3:Ans+1
Lbl 4:Ans+1
Lbl 5:Ans+1
If Ans=4:Then
rand:Else
randInt(1,5+Ans+15(Ans=5→L
"
For(X,1,L
Ans+sub("0123456789",randInt(1,10),1
End
expr(sub(Ans,2,L-1:End
DelVar PAns→X
While X≠N
P+1→P
Disp "GUESS:
Input "",N
If N>X
Disp "TOO HIGH!
If N<X
Disp "TOO LOW!
End
ClrHome
Disp "YOU WIN!
Disp "IT TOOK YOU","
Output(2,13,P
Disp "GUESSES!
Menu("PLAY AGAIN?","YES",9,"NO",Q
Lbl Q
ClrHome:"