nested loops not working http://tibasicdev.wikidot.com/forum/t-14096698/nested-loops-not-working Posts in the discussion thread "nested loops not working" - When I run the code below, it works fine. (TI nspire CAS II calculator) However at the end of the program I give two options, "Enter" to repeat the program, "Esc" to quit. "Esc" works fine. However if I pick "Enter", the RequestStr box pops up again to receive the new input as intended. When I enter the input, the program displays "You entered nothing" and goes back to the RequestStr box again. I have to press "Cancel" on the RequestStr box to get out of the loop. "You entered nothing" is part of the error code I am using to intercept the case where the user may click OK without entering anything into the box. So basically the program works fine the first time I run it, it is when I choose to rerun it again is when the issue arises. Any help will be greatly appreciated. T Gahan Tue, 21 Apr 2026 07:54:05 +0000 http://tibasicdev.wikidot.com/forum/t-14096698#post-4993101 Re: nested loops not working http://tibasicdev.wikidot.com/forum/t-14096698/nested-loops-not-working#post-4993101 Mon, 31 May 2021 11:34:44 +0000 Xeda Elnara 595803 It has been a while, but maybe it is this that is causing the issue:

:If d=0 :Exit

I think you are trying to use that to exit the While loop, but that code is unnecessary as the code will exit the while loop anyways (since d=0 and you are looping only when d=1). ]]> http://tibasicdev.wikidot.com/forum/t-14096698#post-4978203 nested loops not working http://tibasicdev.wikidot.com/forum/t-14096698/nested-loops-not-working#post-4978203 Thu, 13 May 2021 15:33:39 +0000 tgahan 1884111 
Define LibPub funvarsolv()= Prgm :Local y1,res,i,ab,d,c : :Loop :0→c :1→d :While d =1 :Try :RequestStr "enter function",y1,0,ab :0→d : :Else :© user left input box empty :Text "you entered nothing",0 :ClrErr : :EndTry :If d=0 :Exit :EndWhile :© user pressed cancel : If ab=0 Then : Disp "Press ENTER to end" : subrtine\delay() : DelVar y1,i,k,ab : Return : :EndIf : : : : expr("Define y1(x) ="&y1) : res:=exp▶list(solve(y1(x)=0,x),x) : :Disp "Solution set: "&var&" =",res : :subrtine\dlay() :If k="esc" Then :1→c :ElseIf k="enter" Then :0→c :EndIf :If c=1 :Exit :EndLoop :EndPrgm
]]>