` ``: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 ²)

ClrHome

Input "RADIUS? ",R

πr

Disp "THE AREA OF THE CIRCLE"

Disp "IS"

Disp A

Pause

ClrHome

then

int((max plast toys+1)rand->V

else

int((customers+1)rand->V

end ]]>

If anyone knows some code I could use, any help would be appreciated.

Thanks!

This is the part of code:

` ``D+1->D "A is the total amount of customers you can have randInt(1,A)->A Lbl D1 randInt(0,P)->V If P>A Then Goto D1 Else A-V->A P-V->P M+(15*V)->M End Lbl D2 randInt(0,L)->W If W>A Then Goto D2 Else A-W->A L-W->L M+(45*W)->M End Lbl D3 randInt(0,T)->X If X>A Then Goto D3 Else A-X->A T-X->T M+(103*X)->M End Lbl D4 randInt(0,I)->Y If Y>A Then Goto D4 Else A-Y->A I-Y->I M+(245*Y)->M End Lbl D5 randInt(0,S)->Z If Z>A Then Goto D5 Else A-Z->A S-Z->S M+(600*Z)->M End Text(~1,1,1,"DAY: ",D Text(11,1,"Total Customers: ",A Text(18,1,"Plast Toys Sold: ",V Text(25,1,"Lego Sets Sold: ",W Text(32,1,"Metal Toys Sold: ",X Text(39,1,"Bicycles Sold: ",Y Text(46,1,"Swings Sold: ",Z`

It takes X and Y cords then displays it on a graph

` ``ClrHome AxesOn -1->Xmin:1->Xmax -1->Ymin:1->Ymax 1->dim(L1 0->dim(L2 Repeat dim(L1)=dim(L2) Input "X=",L1 Input "Y=",L2 End Plot1(xyline,L1,L2,Plotsquare //The square with a hole mark FnOff For(X,1,dim(L1 If L1(X)>Xmax L1(X)+L1(X)->Xmax If L1(X)<Xmin L1(X)-L1(X)->Xmin If L2(X)>Ymax L2(X)+L2(X)->Ymax If L2(X)<Ymin L2(X)+L2(X)->Ymin End DispGraph`

Here are some games made in Python on this page: https://tiplanet.org/forum/archives_list.php?start=375&order=type&cat=Jeux+ce#files

]]>` ``PROGRAM:SOLVE :Input "0=",Str0 :Str0→ Y0 :Disp "X= :solve(Y0,X,0)▶Frac`

However, this program requires that the equation is in "0=" form. To fix this, we can use string manipulation:

` ``:Input Str0 :inString(Str0,"= :sub(Str0,1,Ans-1)+"-("+sub(Str0,Ans+1,length(Str0)-Ans→Y0 :Disp "X= :solve(Y0,X,0)▶Frac`

If you use this program, make sure to match all parentheses, otherwise it will behave weirdly.

Here are some sample runs:

` ``prgmA ?X5=25 X= 5 prgmA ?7X-2=2(X+3) X= 8/5`

Edit: This program and many others are contained in my Math Program. If you have a link cable, you can download it.

]]>