For instance, you could just place your cleanup code at the end of your program so that it will always run after the program control flow exits. Example:

0→E // exit code 0→S // program state Repeat E // Code that executes every loop goes here If S=0 // case 0 Then Prompt B If B=3 1→S End If S=1 // case 1 Then Disp "EXITING NOW 1→E End End // Cleanup code here DelVar EDelVar SDelVar B

This is a simple implementation of a finite-state machine, which allows you to jump between different blocks of code ("states") based on transition conditions. The main loop runs continuously until the exit variable (E in this case) is set, and executes the code in the current state (S). This structure allows you to effectively re-use sections of code without Gotos.

0->I 0->A While I<dim(L1 I+1->I A+L1(I)->A End

This can be simplified to:

sum(L1->A

• You may also be able to use Piecewise Expressions to simplify conditional code to a single line.
• Applying already optimized Routines can also help.
• Ultimately, optimizing code often requires several iterations of trying different things before settling on an acceptable solution.
• To make your code easier to understand, you should generally avoid the use of Goto and Lbl, which can make tracing the code execution very difficult. Reducing the amount of nesting within your code will also help.
• Reduce duplicate code. Duplicate code makes implementing improvements difficult since you have to make changes in many places. For complex programs, like games, using a Finite State Machine (FSM) structure can help you reduce duplicate code without the use of Goto.
• Editing your code on a computer with a program like SourceCoder on Cemetech, or TI Connect CE. This will make programming much faster and allow you to see larger sections of code at the same time. SC also supports indentation, which makes it easier to keep track of nested code.

Thanks!

:For(I,1,16 :ClrHome :DelVar L₁"?→Str1 :For(J,1,I :randInt(1,10→B :{102,92,93,94,82,83,84,72,73,74 :Ans(B→L₁(J :Str1+sub("0123456789",B,1→Str1 :End :Output(1,1,sub(Ans,2,length(Ans)-1 :rand(10I :ClrHome :For(J,1,I :Repeat Ans :getKey :End :If Ans≠L₁(J:Goto Q :Output(1,J,sub(Str1,J+1,1 :End :rand(20 :End :Lbl Q :Pause "YOU "+sub("LOSE!WIN! ",1+5(I=17),5 :ClrHome:"

This is probably an assumption, but from the error you are saying, you simply changed the values from 5 to 10, resulting in an INVALID DIM because the code is trying to grab the 10th element from the above list with it only has 5 elements.

So what you had to do, is add in the final five elements the number keys corresponding to their respective codes. The next thing you need to do is update the string. Because of how the game works and how the keypad is, you need to start from 0 and work your way to 9 instead of 1 to 10. You could do 1 to 10, but that requires extra RAM than you really need to use, plus there is no 10 key.

:ClrHome :Input "RADIUS? ".R :Disp "AREA OF CIRCLE:",πR²

(You could also do ^2 instead of the ²)