TI-Planet is a French site, but many of their competitions are open to the whole community! In past years, they've had competitions for a wide range of calculators and programming languages (TI-82/83/84, TI-89/92, TI-Nspire, BASIC, Axe, Grammer, Assembly, LUA), but this year they'll only be accepting TI-BASIC of the (e)Z80 calculators, for example the TI-83/83+/83+SE/84+/84+SE/ and their Color equivalents, too.

Normally, there are several stages that get announced throughout the competition, but this year they are releasing all three parts at once and you have to have them all handed in by April 23rd, 2017. Prizes go to the over-all winner and the second place person. Both get a TI-Planet sticker and the winner chooses between a TI-Nspire CX CAS or a TI-83 Premium CE and the second place person gets what is left.

As a note, the translation isn't perfect, and if you know French, the puns are funny.

Personally, I'm hoping I can win a TI-83 Premium CE, but I probably won't have time to really focus on the competition :(

` ``ClrHome DelVar [A]:Delvar [B]:Delvar [C] // Matrices Disp "Variable and Equation Disp "Range:2-5 Lbl A Input "Num. of Vars. and Equats.: ",A If A>5 or A<2:Then Disp "Check Range Goto A Else End Pause "Allign All Variables Input "Variable 1/Line 1: ",B Input "Variable 2/Line 1: ",C If A≥3:Input "Variable 3/Line 1: ",D If A≥4:Input "Variable 4/Line 1: ",E If A=5:Input "Variable 5/Line 1: ",F Input "Variable 1/Line 2: ",G Input "Variable 2/Line 2: ",H If A≥3:Input "Variable 3/Line 2: ",I If A≥4:Input "Variable 4/Line 2: ",J If A=5:Input "Variable 5/Line 2: ",K If A≥3:Then Input "Variable 1/Line 3: ",L Input "Variable 2/Line 3: ",M Input "Variable 3/Line 3: ",N If A≥4:Input "Variable 4/Line 3: ",O IF A=5:Input "Variable 5/Line 3: ",P Else End If A≥4:Then Input "Variable 1/Line 4: ",Q Input "Variable 2/Line 4: ",R Input "Variable 3/Line 4: ",S Input "Variable 4/Line 4: ",T If A=5:Input "Variable 5/Line 4: ",U Else End If A=5:Then Input "Variable 1/Line 5: ",V Input "Variable 2/Line 5: ",W Input "Variable 3/Line 5: ",X Input "Variable 4/Line 5: ",Y Input "Variable 5/Line 5: ",Z Else End If A=5:[[B,C,D,E,F][G,H,I,J,K][L,M,N,O,P][Q,R,S,T,U][V,W,X,Y,Z]]→[A] //Things after Arrows are Matrices If A=4:[[B,C,D,E][G,H,I,J][L,M,N,O][Q,R,S,T]]→[A] If A=3:[[B,C,D][G,H,I][L,M,N]]→[A] If A=2:[[B,C][G,H]]→[A] Pause "Solutions: Input "Solution-Line 1: ",B Input "Solution-Line 2: ",C If A≥3:Input "Solution-Line 3: ",D If A≥4:Input "Solution-Line 4: ",E If A=5:Input "Solution-Line 5: ",F If A=5:[[B][C][D][E][F]]→[B] //Only things after arrow are Matrices If A=4:[[B][C][D][E]]→[B] If A=3:[[B][C][D]→[B] If A=2:[[B][C]]→[B] [A]ֿ ¹[B]→[C] //All three are matrices`

]]>
Okay so, before every test our maths teacher clears all memory on the calculator. However, I really need to know a way to make the calculator say that the RAM is cleared but it isn't, or recover the data directly from the calc. I have some programs I made that took me hours and I can't transfer them to my computer as I don't have a connect cable. Please Help! ]]>

` ``Repeat D>1 Menu(" FLAPPY BIRD ","STANDARD SPEED",A,"SET SPEED",B,"RANDOM SPEED",C Lbl A 15→D Goto D Lbl B Input "SPEED",D Goto D Lbl C randInt(1,25)→D Lbl D End ClrHome 4→Y ⁻1→S Repeat Y>10 randInt(3,7)→H S+1→S For(V,26,1,⁻1) If Y>10:Goto E If V=2 and (Y≠H and Y≠H-1):Goto E If Y≤10:Output(Y,2,">" For(E,1,H-2) Output(E,V,"I" End For(E,H+1,10) Output(E,V,"I") End For(E,1,D) End For(E,1,10) Output(E,V," " //one space (Do not type in "//one space", we're trying to say "use the space key on the calculator") End Output(1,24,S getKey→K If not(K) Then If Y≤10:Output(Y,2," " //one space Y+1→Y End If K and Y>1 Then If Y≤10:Output(Y,2," " //one space Y-1→Y End End End Lbl E ClrHome Disp "GAME OVER!" Pause S`

]]>
EDIT: Might I suggest that you use ">" instead of "►"? I feel like newbies won't know that it's not obtainable without the use of something like CHARS.

]]>()

Prgm

Input "Radius=",R

Input "Thickness=",T

Input "Angle=",A

If A=1:Then

K=.00873

EndIf

If A=2:Then

K=.001745

EndIf

If A=3:Then

K=.02618

EndIf

If A=4:Then

K=.03492

EndIf

If A=5:Then

K=.04366

EndIf

If A=6:Then

K=.05241

EndIf

If A=7:Then

K=.06116

EndIf

If A=8:Then

K=.06993

EndIf

If A=9:Then

K=.07870

EndIf

If A=10:Then

K=.08749

EndIf

If A=11:Then

K=.09629

EndIf

If A=12:Then

K=.10510

EndIf

If A=13:Then

K=.11393

EndIf

If A=14:Then

K=.12278

EndIf

If A=15:Then

K=.13165

EndIf

If A=16:Then

K=.14054

EndIf

If A=17:Then

K=.14945

EndIf

If A=18:Then

K=.15838

EndIf

If A=19:Then

K=.16734

EndIf

If A=20:Then

K=.17633

EndIf

If A=21:Then

K=.18534

EndIf

If A=22:Then

K=.19438

EndIf

If A=23:Then

K=.20345

EndIf

If A=24:Then

K=.21256

EndIf

If A=25:Then

K=.22169

EndIf

If A=26:Then

K=.23087

EndIf

If A=27:Then

K=.24008

EndIf

If A=28:Then

K=.24933

EndIf

If A=29:Then

K=.25862

EndIf

If A=30:Then

K=.26795

EndIf

If A=31:Then

K=.27732

EndIf

If A=32:Then

K=.28674

EndIf

If A=33:Then

K=.29621

EndIf

If A=34:Then

K=.30573

EndIf

If A=35:Then

K=.31530

EndIf

If A=36:Then

K=.32492

EndIf

If A=37:Then

K=.33459

EndIf

If A=38:Then

K=.34433

EndIf

If A=39:Then

K=.35412

EndIf

If A=40:Then

K=.36397

EndIf

If A=41:Then

K=.37388

EndIf

If A=42:Then

K=.38386

EndIf

If A=43:Then

K=.39391

EndIf

If A=44:Then

K=.40403

EndIf

If A=45:Then

K=.41421

EndIf

If A=46:Then

K=.42447

EndIf

If A=47:Then

K=.43481

EndIf

If A=48:Then

K=.44523

EndIf

If A=49:Then

K=.45573

EndIf

If A=50:Then

K=.46631

EndIf

If A=51:Then

K=.47697

EndIf

If A=52:Then

K=.48773

EndIf

If A=53:Then

K=.49858

EndIf

If A=54:Then

K=.50952

EndIf

If A=55:Then

K=.52057

EndIf

If A=56:Then

K=.53171

EndIf

If A=57:Then

K=.54295

EndIf

If A=58:Then

K=.55431

EndIf

If A=59:Then

K=.56577

EndIf

If A=60:Then

K=.57735

EndIf

If A=61:Then

K=.58904

EndIf

If A=62:Then

K=.60086

EndIf

If A=63:Then

K=.61280

EndIf

If A=64:Then

K=.62487

EndIf

If A=65:Then

K=.63707

EndIf

If A=66:Then

K=.64941

EndIf

If A=67:Then

K=.66188

EndIf

If A=68:Then

K=.67451

EndIf

If A=69:Then

K=.68728

EndIf

If A=70:Then

K=.70021

EndIf

If A=71:Then

K=.71329

EndIf

If A=72:Then

K=.72654

EndIf

If A=73:Then

K=.73996

EndIf

If A=74:Then

K=.75355

EndIf

If A=75:Then

K=.76733

EndIf

If A=76:Then

K=.78128

EndIf

If A=77:Then

K=.79543

EndIf

If A=78:Then

K=.80978

EndIf

If A=79:Then

K=.82434

EndIf

If A=80:Then

K=.83910

EndIf

If A=81:Then

K=.85408

EndIf

If A=82:Then

K=.86929

EndIf

If A=83:Then

K=.88472

EndIf

If A=84:Then

K=.90040

EndIf

If A=85:Then

K=.91633

EndIf

If A=86:Then

K=.93251

EndIf

If A=87:Then

K=.94890

EndIf

If A=88:Then

K=.96569

EndIf

If A=89:Then

K=.98270

EndIf

If A=90:Then

K=1.0000

EndIf

If A=91:Then

K=1.0176

EndIf

If A=92:Then

K=1.0355

EndIf

If A=93:Then

K=1.0538

EndIf

If A=94:Then

K=1.0724

EndIf

If A=95:Then

K=1.0913

EndIf

If A=96:Then

K=1.1106

EndIf

If A=97:Then

K=1.1303

EndIf

If A=98:Then

K=1.1504

EndIf

If A=99:Then

K=1.1708

EndIf

If A=100:Then

K=1.1917

EndIf

If A=101:Then

K=1.2131

EndIf

If A=102:Then

K=1.2349

EndIf

If A=103:Then

K=1.2572

EndIf

If A=104:Then

K=1.2799

EndIf

If A=105:Then

K=1.3032

EndIf

If A=106:Then

K=1.3270

EndIf

If A=107:Then

K=1.3514

EndIf

If A=108:Then

K=1.3764

EndIf

If A=109:Then

K=1.4019

EndIf

If A=110:Then

K=1.4281

EndIf

If A=111:Then

K=1.4550

EndIf

If A=112:Then

K=1.4826

EndIf

If A=113:Then

K=1.5108

EndIf

If A=114:Then

K=1.5399

EndIf

If A=115:Then

K=1.5697

EndIf

If A=116:Then

K=1.6003

EndIf

If A=117:Then

K=1.6318

EndIf

If A=118:Then

K=1.6643

EndIf

If A=119:Then

K=1.6977

EndIf

If A=120:Then

K=1.7320

EndIf

If A=121:Then

K=1.7675

EndIf

If A=122:Then

K=1.8040

EndIf

If A=123:Then

K=1.8418

EndIf

If A=124:Then

K=1.8807

EndIf

If A=125:Then

K=1.9210

EndIf

If A=126:Then

K=1.9626

EndIf

If A=127:Then

K=2.0057

EndIf

If A=128:Then

K=2.0503

EndIf

If A=129:Then

K=2.0965

EndIf

If A=130:Then

K=2.1445

EndIf

If A=131:Then

K=2.1943

EndIf

If A=132:Then

K=2.2460

EndIf

If A=133:Then

K=2.2998

EndIf

If A=134:Then

K=2.3558

EndIf

If A=135:Then

K=2.4142

EndIf

If A=136:Then

K=2.4715

EndIf

If A=137:Then

K=2.5386

EndIf

If A=138:Then

K=2.6051

EndIf

If A=139:Then

K=2.6746

EndIf

If A=140:Then

K=2.7475

EndIf

If A=141:Then

K=2.8239

EndIf

If A=142:Then

K=2.9042

EndIf

If A=143:Then

K=2.9887

EndIf

If A=144:Then

K=3.0777

EndIf

If A=145:Then

K=3.1716

EndIf

If A=146:Then

K=3.2708

EndIf

If A=147:Then

K=3.3759

EndIf

If A=148:Then

K=3.4874

EndIf

If A=149:Then

K=3.6059

EndIf

If A=150:Then

K=3.7320

EndIf

If A=151:Then

K=3.8667

EndIf

If A=152:Then

K=4.0108

EndIf

If A=153:Then

K=4.1653

EndIf

If A=154:Then

K=4.3315

EndIf

If A=155:Then

K=4.5107

EndIf

If A=156:Then

K=4.7406

EndIf

If A=157:Then

K=4.9151

EndIf

If A=158:Then

K=5.1455

EndIf

If A=159:Then

K=5.3995

EndIf

If A=160:Then

K=5.6713

EndIf

If A=161:Then

K=5.9758

EndIf

If A=162:Then

K=6.3137

EndIf

If A=163:Then

K=6.6911

EndIf

If A=164:Then

K=7.1154

EndIf

If A=165:Then

K=7.5957

EndIf

If A=166:Then

K=8.1443

EndIf

If A=167:Then

K=8.7769

EndIf

If A=168:Then

K=9.5144

EndIf

If A=169:Then

K=10.385

EndIf

If A=170:Then

K=11.430

EndIf

If A=171:Then

K=12.706

EndIf

If A=172:Then

K=14.301

EndIf

If A=173:Then

K=16.350

EndIf

If A=174:Then

K=19.081

EndIf

If A=175:Then

K=22.904

EndIf

If A=176:Then

K=26.636

EndIf

If A=177:Then

K=38.188

EndIf

If A=178:Then

K=57.290

EndIf

If A=179:Then

K=114.590

EndIf

If A=180:Then

K=0

K*(R+T)O

K*RI

Disp "Outside="

Disp O

Disp "Inside="

Disp I

EndPrgm

I would like to ask if it's possible to change the background colour of graph-screen letters. I want to make a (makeshift) menu using the graph screen with a navy background and coloured letters, but the letters have their own background colour (white and medium gray) and I can't seem to find a way to change this using only basic. Would you mind helping me or confirming that it's impossible using only basic? Thanks in advance. ]]>

Press [CLEAR] to exit the LIST menu and [GRAPH] to exit the command description. You will find all the commands you can see will be replaced by weird text including but not limited to brackets, question marks, numbers, and even your program names. You can scroll up the list (but not down; this will reset it) and even execute the commands, which will attempt to run programs with seemingly random names. Exiting the menu will reset the bug, returning everything to normal.

I haven't fully explored this bug on all on the menus nor on any versions other than the CSE, but I'm sure some experimentation will lead to interesting results (the DRAW menu is particularly odd). I'm not sure if this bug is of any real interest, but is strange enough to warrant some exploration.

]]>((√(2)*√((expr(ac))^(1-((1)/(expr(aa))))-1))/(√(expr(aa)-1)))→be

Disp "Mach Number= ",be

1+((expr(aa)-1)/(2))*(expr(be))^(2)→bf

Here is the source code for the program. It's trying to run the game Connect 4

` ``:DCS "11111111111111111BB1BB1BB1BB1BB11BB1BB1BB1BB1BB111111111111111111BB1BB1BB1221BB11BB1BB1BB1221BB111111111111111111BB1221221331BB11BB1221221331BB111111111111111111331221331331BB11331221331331BB11111111111111111122133122122133112213312212213311111111111111111" ClrDraw:AxesOff GridOff SetUpEditor L4 13->dim(L4 Fill(0,L4 SetUpEditor L1 43->dim(L1 Fill(0,L1 SetUpEditor L3 {2,4,5,6,6,7,7,7->L3 BackgroundOff 0->Xmin:0->Ymin 264->Xmax:164->Ymax 1->S:1->T TextColor(Red Text(150,1,"2ND TO PROCEED TextColor(Blue Repeat max(K={21,105 getKey->K Text(1,1,"1. BOARD STYLE: ",sub("CLASSIC SIMPLE ",S+8(S=2),9 Text(15,1,"2. ANIMATIONS: ",sub("ON OFF ",T+4(T=2),5 S+1(K=92 and S=1)-1(K=92 and S=2->S T+1(K=93 and T=1)-1(K=93 and T=2->T End ClrDraw 5->theta TextColor(Red For(F,1,8 Text(~1,theta,155,sub("CONNECT4",F,1 theta+20->theta End 2->theta Text(~1,75,195,"BY: For(F,1,12 Text(theta,254,sub("TI-FREAKWARE",F,1 theta+13->theta End If S=1:Then For(F,5,149,2 Line(F,0,F,117,1,10,2 End For(W,5,100,19 For(X,17,149,20 For(A,1,8 L3(A Line(X-Ans,W+A,X+Ans,W+A,0 Line(X-Ans,16-A+W,X+Ans,16-A+W,0 End:End:End For(F,7,147,20 Line(F,2,F,115,0,20,1 End:End If S=2:Then For(F,4,118,19 Line(7,F,147,F,1,10 End For(F,7,147,20 Line(F,3,F,117,1,10 End:End TextColor(Black Text(18,184,"2ND/[V] Text(31,204,"TO Text(44,196,"DROP Text(107,195,"MODE Text(120,204,"TO Text(133,195,"QUIT 1->W:1->U:7->R While iPart(W)=1 If fPart(W)=0:Then:17->A:126->B:End For(F,1,8 L3(F Line(A-Ans,(B-7)+F,A+Ans,(B-7)+F,1,10+U-3(U=5),2 Line(A-Ans,16-F+(B-7),A+Ans,16-F+(B-7),1,10+U-3(U=5),2 End 2->W While W=2 getKey->K If max(K={21,24,26,22,34 Then For(F,1,8 L3(F Line(A-Ans,(B-7)+F,A+Ans,(B-7)+F,0 Line(A-Ans,16-F+(B-7),A+Ans,16-F+(B-7),0 End If K=24 or K=26:Then A-20((K=24 and A>17)-(K=26 and A<137->A 1.1->W:End If K=22:Then ClrDraw:BackgroundOff:DelVar ADelVar BDelVar FDelVar ZDelVar KDelVar MDelVar LDelVar PDelVar RDelVar thetaDelVar UDelVar WDelVar L1DelVar L4DelVar L3 End If K=21 or K=34:Then (A+3)/20->L (B-12)/19->Z (6L)-5->M If L1(M)=0:Then If T=1:Then While Z>1 and L1(M)=0 For(F,1,8 L3(F Line(A-Ans,(B-7)+F,A+Ans,(B-7)+F,0 Line(A-Ans,16-F+(B-7),A+Ans,16-F+(B-7),0 End B-19->B:M+1->M (B+7)/19->Z If Z=2 and L1(M)!=0:U->L1(M-1 For(F,1,8 L3(F Line(A-Ans,(B-7)+F,A+Ans,(B-7)+F,1,10+U-3(U=5),2 Line(A-Ans,16-F+(B-7),A+Ans,16-F+(B-7),1,10+U-3(U=5),2 End:End:End If T=2:Then While Z>1 and L1(M)=0 B-19->B:M+1->M (B+7)/19->Z If Z=2 and L1(M)!=0:U->L1(M-1 End For(F,1,8 L3(F Line(A-Ans,(B-7)+F,A+Ans,(B-7)+F,1,10+U-3(U=5),2 Line(A-Ans,16-F+(B-7),A+Ans,16-F+(B-7),1,10+U-3(U=5),2 End:End M-1->M U->L1(M If Z>3 and L>0 sum({L1(M),L1(M+1),L1(M+2),L1(M+3)})/4->L4(1 If Z>3 and L>3 sum({L1(M),L1(M-5),L1(M-10),L1(M-15)})/4->L4(2 If Z>0 and L>3 sum({L1(M),L1(M-6),L1(M-12),L1(M-18)})/4->L4(3 If Z<4 and L>3 sum({L1(M),L1(M-7),L1(M-14),L1(M-21)})/4->L4(4 If Z<4 and L<5 sum({L1(M),L1(M+5),L1(M+10),L1(M+15)})/4->L4(5 If Z>0 and L<5 sum({L1(M),L1(M+6),L1(M+12),L1(M+18)})/4->L4(6 If Z>3 and L<5 sum({L1(M),L1(M+7),L1(M+14),L1(M+21)})/4->L4(7 If (Z>1 and L>1) and (Z<6 and L<6 sum({L1(M),L1(M-5),L1(M+5),L1(M+10)})/4->L4(8 If (Z>2 and L>2) and (Z<6 and L<7 sum({L1(M),L1(M+5),L1(M-5),L1(M-10)})/4->L4(9 If (Z>0 and L>1) and (Z<6 and L<6 sum({L1(M),L1(M-6),L1(M+6),L1(M+12)})/4->L4(10 If (Z>0 and L<7) and (Z<6 and L>2 sum({L1(M),L1(M+6),L1(M-6),L1(M-12)})/4->L4(11 If (Z<6 and L>1) and (Z>2 and L<6 sum({L1(M),L1(M-7),L1(M+7),L1(M+14)})/4->L4(12 If (Z<5 and L>2) and (Z>1 and L<7 sum({L1(M),L1(M+7),L1(M-7),L1(M-14)})/4->L4(13 If max(1=L4) or max(5=L4:Then TextColor(10+U-3(U=5 Text(1,1,"Player ",U-3(U=5)," Wins! Pause :For(F,148,164:Line(0,F,100,F,0:End 1->M For(X,17,149,20 For(F,100,5,~19 If L1(M)!=0:Then For(A,1,8 L3(A Line(X-Ans,F+A,X+Ans,F+A,0 Line(X-Ans,16-A+F,X+Ans,16-A+F,0 End:End M+1->M End:End 1->U:Fill(0,L1 Fill(0,L4 Else U-4(U=5)+4(U=1)->U End 1->W End:End:End End:End`

` ``DispGraph For(Y,0,61 For(X,0,93 DelVar A If Pxl-Test(Y,X-1 A+4→A If Pxl-Test(Y,X A+2→A If Pxl-Test(Y,X+1 A+1→A If L₁(A+1 Pxl-On(Y+1,X End End`

This code has no extra features whatsoever to make it as small as possible, so it requires some setup to work properly.

- It is best to have axes, coordinates, expressions, plots, etc. turned off.
- There has to be some sort of input to the program to work with. All you have to do is Draw an input on the top row of pixels. It is also trivial to add a subroutine that creates a random input if that suits you better:

` ``ClrDraw Delvar A For(X,0,93 RandInt(0,1→A If A Pxl-On(0,A`

- The rule for the automaton is stored in a list (in my example L
_{1}). In order to understand how the list is stored, one must have a basic understanding of how Wolfram's automata work.

Wolfram's Automata use a simple rule table in order to take an input and return an output. In Wolfram's automata, the state of the cell and its two neighbors determine the state of the cell in the next generation (or next line)

Last Generation | New Generation |
---|---|

111 | 0 |

110 | 0 |

101 | 0 |

100 | 1 |

011 | 1 |

010 | 1 |

001 | 1 |

000 | 0 |

In this example, the three numbers from the last generation represent the state of the cell and it's neighbors, and the numbers from the new generation represent the cell's state in the new generation. So, if a cell and it's two neighbors formed a pattern of OFF-ON-OFF, or 010, the cell will be ON in the next generation, and therefore ON in the next row.

Looking down the second row of the table, an 8-digit binary number is formed, 00011110. This number is 30 in binary, so the example in the table is Wolfram's Rule 30, most famous for being very pseudo-random. Any other rule can be formed in the same way. Rule 110, notable for being turing-universal, forms 01101110 in binary. Plugging those numbers into the table gives you the rule table for 110, which is 111=0, 110=1, 101=1, etc.

And now for how the rules are implemented in my program. The binary number representing the rule is entered into each item in L_{1} with the LEAST SIGNIFICANT DIGIT FIRST. that means Rule 30, which is 00011110 in binary, becomes {0,1,1,1,1,0,0,0} when entered into L_{1}. Rule 110, which is 01101110, is {0,1,1,1,0,1,1,0} when entered into L_{1} This provides an easy way of setting and switching rules as you please.

The most interesting rules to try are 90, 30, 110, and 60

**EXAMPLE OUTPUTS**

imgur .com/a/opQOS

(I'm not allowed to actually post links apparently, I hope this is okay.)

{

[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]

[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]

[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]

[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]

[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]

[0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0]

[1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1]

[1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]

` ``:1→G :1→F :1→X :5→Y :Lbl A :Repeat 5≠5 :getKey→K :Output(1,1," 0 0 00000000000000000 //82 spaces, 1 zero, 13 spaces, 1 zero, 14 spaces, then 17 zeros :Output(Y,X,"X :Y+G→Y :If Y>8 :Goto 0 :If X>1 :Then :If not([A](Y-1,X-1)=1 :Then :If K=24 :Then :If [A](Y,X-1)=1 :Then :Y-1→Y :End :X-1→X :End :End :End :If X<16 :If not([A](Y-1,X+1)=1 :Then :If K=26 :Then :If [A](Y,X+1)=1 :Then :Y-1→Y :End :X+1→X :End :End :End :If K=25 and F=0 :Then :If G=1 :Then :Y-3→Y :1→F :Else :Y-1→Y :End :End :If [A](Y,X)=1 :Then :Y-1→Y :0→F :End :End :Lbl 0 :ClrHome :Disp "YOU DIED`

tell me if there are any syntax error. I hope you can use this. ]]>

Thank you in advanced, Alex

]]>How to edit the program in the event that it is closed. The file downloaded from the network.

Thank You. ]]>

Repeat (end condition)

For(N,10-(level),1,-1)

(movement code here)

End

(other stuff happens down here)

If (level completed)

1+(level)->level

End

This works fine until about level 8, where the other stuff happens practically right away with no time to react. So what I need is a game loop that gets progressively harder. Thanks!

]]>I.e. if the number is 8 the program should return:

5, 7

I thought it should be something like this:

` ``Define grpr2(x)= Prgm If isPrime(x-1) -> a Then isPrime(x-3) -> b Else (x-1) -> x Endif Disp a, b EndPrgm`

Obviously I'm doing something wrong. I think it has to do with defining a and b, but I have no idea what. Can someone help me?

]]>PROGRAM:DDDD

:prgmDDDD

which causes an err:memory within 10 seconds even with maximum memory. I joined the wiki to get help for projects that I have ideas on and help other people. However, I am still a newbie and haven't gotten the hang of Matrices yet, so… yeah, that's it.

]]>()

Prgm

Input "Radius=",R

Input "Thickness=",T

Input "Angle=",A

If A=1:Then

K=.00873

If A=2:Then

K=.001745

If A=3:Then

K=.02618

If A=4:Then

K=.03492

If A=5:Then

K=.04366

If A=6:Then

K=.05241

If A=7:Then

K=.06116

If A=8:Then

K=.06993

If A=9:Then

K=.07870

If A=10:Then

K=.08749

If A=11:Then

K=.09629

If A=12:Then

K=.10510

If A=13:Then

K=.11393

If A=14:Then

K=.12278

If A=15:Then

K=.13165

If A=16:Then

K=.14054

If A=17:Then

K=.14945

If A=18:Then

K=.15838

If A=19:Then

K=.16734

If A=20:Then

K=.17633

If A=21:Then

K=.18534

If A=22:Then

K=.19438

If A=23:Then

K=.20345

If A=24:Then

K=.21256

If A=25:Then

K=.22169

If A=26:Then

K=.23087

If A=27:Then

K=.24008

If A=28:Then

K=.24933

If A=29:Then

K=.25862

If A=30:Then

K=.26795

If A=31:Then

K=.27732

If A=32:Then

K=.28674

If A=33:Then

K=.29621

If A=34:Then

K=.30573

If A=35:Then

K=.31530

If A=36:Then

K=.32492

If A=37:Then

K=.33459

If A=38:Then

K=.34433

If A=39:Then

K=.35412

If A=40:Then

K=.36397

If A=41:Then

K=.37388

If A=42:Then

K=.38386

If A=43:Then

K=.39391

If A=44:Then

K=.40403

If A=45:Then

K=.41421

If A=46:Then

K=.42447

If A=47:Then

K=.43481

If A=48:Then

K=.44523

If A=49:Then

K=.45573

If A=50:Then

K=.46631

If A=51:Then

K=.47697

If A=52:Then

K=.48773

If A=53:Then

K=.49858

If A=54:Then

K=.50952

If A=55:Then

K=.52057

If A=56:Then

K=.53171

If A=57:Then

K=.54295

If A=58:Then

K=.55431

If A=59:Then

K=.56577

If A=60:Then

K=.57735

If A=61:Then

K=.58904

If A=62:Then

K=.60086

If A=63:Then

K=.61280

If A=64:Then

K=.62487

If A=65:Then

K=.63707

If A=66:Then

K=.64941

If A=67:Then

K=.66188

If A=68:Then

K=.67451

If A=69:Then

K=.68728

If A=70:Then

K=.70021

If A=71:Then

K=.71329

If A=72:Then

K=.72654

If A=73:Then

K=.73996

If A=74:Then

K=.75355

If A=75:Then

K=.76733

If A=76:Then

K=.78128

If A=77:Then

K=.79543

If A=78:Then

K=.80978

If A=79:Then

K=.82434

If A=80:Then

K=.83910

If A=81:Then

K=.85408

If A=82:Then

K=.86929

If A=83:Then

K=.88472

If A=84:Then

K=.90040

If A=85:Then

K=.91633

If A=86:Then

K=.93251

If A=87:Then

K=.94890

If A=88:Then

K=.96569

If A=89:Then

K=.98270

If A=90:Then

K=1.0000

If A=91:Then

K=1.0176

If A=92:Then

K=1.0355

If A=93:Then

K=1.0538

If A=94:Then

K=1.0724

If A=95:Then

K=1.0913

If A=96:Then

K=1.1106

If A=97:Then

K=1.1303

If A=98:Then

K=1.1504

If A=99:Then

K=1.1708

If A=100:Then

K=1.1917

If A=101:Then

K=1.2131

If A=102:Then

K=1.2349

If A=103:Then

K=1.2572

If A=104:Then

K=1.2799

If A=105:Then

K=1.3032

If A=106:Then

K=1.3270

If A=107:Then

K=1.3514

If A=108:Then

K=1.3764

If A=109:Then

K=1.4019

If A=110:Then

K=1.4281

If A=111:Then

K=1.4550

If A=112:Then

K=1.4826

If A=113:Then

K=1.5108

If A=114:Then

K=1.5399

If A=115:Then

K=1.5697

If A=116:Then

K=1.6003

If A=117:Then

K=1.6318

If A=118:Then

K=1.6643

If A=119:Then

K=1.6977

If A=120:Then

K=1.7320

If A=121:Then

K=1.7675

If A=122:Then

K=1.8040

If A=123:Then

K=1.8418

If A=124:Then

K=1.8807

If A=125:Then

K=1.9210

If A=126:Then

K=1.9626

If A=127:Then

K=2.0057

If A=128:Then

K=2.0503

If A=129:Then

K=2.0965

If A=130:Then

K=2.1445

If A=131:Then

K=2.1943

If A=132:Then

K=2.2460

If A=133:Then

K=2.2998

If A=134:Then

K=2.3558

If A=135:Then

K=2.4142

If A=136:Then

K=2.4715

If A=137:Then

K=2.5386

If A=138:Then

K=2.6051

If A=139:Then

K=2.6746

If A=140:Then

K=2.7475

If A=141:Then

K=2.8239

If A=142:Then

K=2.9042

If A=143:Then

K=2.9887

If A=144:Then

K=3.0777

If A=145:Then

K=3.1716

If A=146:Then

K=3.2708

If A=147:Then

K=3.3759

If A=148:Then

K=3.4874

If A=149:Then

K=3.6059

If A=150:Then

K=3.7320

If A=151:Then

K=3.8667

If A=152:Then

K=4.0108

If A=153:Then

K=4.1653

If A=154:Then

K=4.3315

If A=155:Then

K=4.5107

If A=156:Then

K=4.7406

If A=157:Then

K=4.9151

If A=158:Then

K=5.1455

If A=159:Then

K=5.3995

If A=160:Then

K=5.6713

If A=161:Then

K=5.9758

If A=162:Then

K=6.3137

If A=163:Then

K=6.6911

If A=164:Then

K=7.1154

If A=165:Then

K=7.5957

If A=166:Then

K=8.1443

If A=167:Then

K=8.7769

If A=168:Then

K=9.5144

If A=169:Then

K=10.385

If A=170:Then

K=11.430

If A=171:Then

K=12.706

If A=172:Then

K=14.301

If A=173:Then

K=16.350

If A=174:Then

K=19.081

If A=175:Then

K=22.904

If A=176:Then

K=26.636

If A=177:Then

K=38.188

If A=178:Then

K=57.290

If A=179:Then

K=114.590

If A=180:Then

K=0

K*(R+T)»O

K*R»I

Disp "Outside="

Disp O

Disp "Inside="

Disp I

EndPrgm

` ``:ClrHome :ClrList L1 :Input "L1 ",Str1 :expr("{"+Str1sto→L1 :Lbl SM :Menu(" FIND? ","SAMPLE SD",SP,"MEAN",ME,"VARIANCE",VA,"POPULATION SD",PS,"POP VARIANCE",PV,"QUIT",QU :Lbl SP :Disp "STND. DEV. OF L1",stdDev(L1 :Pause :Goto SM :Lbl ME :Disp "MEAN OF L1",mean(L1 :Pause :Goto SM :Lbl VA :Disp "VARIANCE OF L1",variance(L1 :Pause :Goto SM :Lbl PS :Disp "POP STND. DEV. OF L1",stdDev(augment(L1,{mean(L1 :Pause :Goto SM :Lbl PV :(stdDev(augment(L1,{mean(L1)})))^2sto→A :Disp "POPULATION VARIANCE OF L1",A :Pause :Goto SM :Lbl QU :Stop`

]]>
` ``:ClrHome :ClrList L1 :Lbl SM :Menu(" FIND? ","SAMPLE SD",SP,"MEAN",ME,"VARIANCE",VA,"POPULATION SD",PS,"POPULATION VARIANCE",PV,"QUIT",QU :Lbl SP :Disp "USE BRACES FOR L1" :Prompt L1 :Disp "STND. DEV. OF L1",stdDev(L1) :Pause :Goto SM :Lbl ME :Disp "USE BRACES FOR L1" :Prompt L1 :Disp "MEAN OF L1",mean(L1) :Pause :Goto SM :Lbl VA :Disp "USE BRACES FOR L1" :Prompt L1 :Disp "VARIANCE OF L1",variance(L1 :Pause :Goto SM :Lbl PS :Disp "USE BRACES FOR L1" :Prompt L1 :Disp "POP STND. DEV. OF L1",stdDev(augment(L1,{mean(L1 :Pause :Goto SM :Lbl PV :Disp "USE BRACES FOR L1" :Prompt L1 :(stdDev(augment(L1,{mean(L1)})))^^2^^→A :Disp "POPULATION VARIANCE",A :Pause :Goto SM :Lbl QU :Stop`

There is some window manipulation that must happen, but the heart of the program is this:

` ``For(R,1,40,1) Circle(0,0,R*sqrt(2) ) End`

The problem I have with the TI-84 Plus CE is that there is this new concept of circle thickness that I am not sure how to change programatically. When I manually draw a circle, there is a new Style tab bound to the graph button. The default is a thick circle, which obscures the fractal pattern. I can manually change it to thin, and the fractal pattern is created. However, I cannot seem to figure out how to make the program draw with a thin circle. I have tried the Thin and dot-Thin commands both inside and prior to the loop, but it always draws a thick circle.

Does anyone know how to force the calculator to draw a thin circle?

]]>*side note* This is meant for a ti-83+! This code will run perfectly on it and it only, ti-84(or newer) will run the buffer For( loops too fast(and ti-83 and older will run it too slow), and on any digital display, the game will not stretch to fit the screen. I do not have any time commands at my fingertips.

` ``ClrHome Disp "1-6 Repeat K getKey→K End If K=92:Then "1-3→Str1 3→D End If K=93:Then 5→D "1-5→Str1 End If K=94:Then "1-10→Str1 10→D End if K=82:Then "1-50→Str1 50→D End If K=84:Then 1000→D "1-1000→Str1 End randInt(1,D→E ForC,1,3 ClrHome Disp Str1 Input A ClrHome Disp"---------------- //16 - signs For(B,1,12 If B=1:Then Output(5,9,"θ Output(2,8,"º //a little square-thing End If B=6:Then Output(2,8," //one space Output(4,8,"º Output(5,8,"- End If B=12:then Output(4,8," //one space Output(5,8," //one space Output(4,10,"/ If A>E Output(8,10,"º If A<E Output(8,6,"º If A=E Output(1,8,"º End End For(B,1,100 End ClrHome If A≠E and C=1 Disp " STRIKE ONE! If A≠E and C=2 disp" STRIKE TWO! If A≠E and C=3:Then Disp " STRIKE THREE! For(B,1,125 End ClrHome Output(1,4,"YOU'RE OUT! Stop End If A=E:Then Output(1,4,"HOME RUN! Stop End For(B,1,125 End End`

-I am a magician and I love to program.

-I have been programming for about a year in Java and a little in HTML. I Now want to learn how to program in Ti-Basic.

-I am currently making a text adventure in Java based off of The Fallout game.

-I don't have much to offer right now but i hope to learn a lot and share that knowledge with others and use it to make the world a better and more fun place to be.

-BSIllusions.

]]>For the two programs, the most useful is probably(in my opinion) CDRAW, as it allows graphics to be slightly faster in rendering, reduce work time(instead of building your own, why not use an open source one that is ready to go the second you download it and put it on your calculator?) Most of the software made by Northsteel for TI-Basic developers, in TI-Basic.

Err, there was a link to the site, but it got removed. Thanks.

(it's a google sites website, with the end tag nsgsm if you want to look at it)

Also someone please link me to assembly tutorials, I'd like NOT to have to use any of my TI basic projects as they're, even though they work, are pretty much husks because TI-Basic is so slow.

]]>` ``ClrHome Lbl A If J≥1000 or J≤0 100→J End ClrHome rand2→B rand2→C Goto D Lbl E B≤1→H Menu("How much?","1 Dollar",Q,"5 Dollars",R,"10 Dollars",S,"20 Dollars",T,"50 Dollars",U,"100 Dollars",V Lbl F B≤1 and C≤1→H Menu("How much?","1 Dollar",K,"5 Dollars",L,"10 Dollars",M,"20 Dollars",N,"50 Dollars",O,"100 Dollars",P Lbl D Menu("What do you choose?","1/2",E,"1/4",F,"Exit",AC Lbl I If H:Then Disp "It's your lucky day Else Disp "You saw a black cat End Pause Lbl AF Disp "You have",J,"Dollars Pause If J≥1000 or J=0:Then Goto W Else Goto A Lbl Q If H<1:Then J-1→J Else J-1→J End Goto I Lbl R If (J-5)<(J=0):Then Goto AA End If H<1:Then J-5→J Else J+5→J End Goto I Lbl S If (J-10)<(J=0):Then Goto AA End If H<1:Then J-10→J Else J+10→J End Goto I Lbl T If (J-20)<(J=0):Then Goto AA End If H<1:Then J-20→J Else J+20→J End Goto I Lbl U If (J-50)<(J=0):Then Goto AA End If H<1:Then J-50→J Else J+50→J End Goto I Lbl V If (J-100)<(J=0):Then Goto AA End If H<1:Then J-100→J 0→G «Zero Else J+100→J 1→G End Goto AE Lbl K If H<1:Then J-1→J Else J+2→J End Goto I Lbl L If (J-5)<(J=0):Then Goto AB End If H<1:Then J-5→J Else J+10→J End Goto I Lbl M If (J-10)<(J=0):Then Goto AB End If H<1:Then J-10→J Else J+20→J End Goto I Lbl N If (J-20)<(J=0):Then Goto AB End If H<1:Then J-20→J Else J+40→J End Goto I Lbl O If (J-50)<(J=0):Then Goto AB End If H<1:Then J-50→J Else J+100→J End Goto I Lbl P If (J-100)<(J=0):Then Goto AB End If H<1:Then J-100→J 0→G Else J+200→J 1→G End Goto AE Lbl AA Disp "You can't do that Pause Disp "You only have",J,"Dollars Pause ClrHome End Goto E Lbl AB Disp "You can't do that Pause Disp "You only have",J,"Dollars Pause ClrHome End Goto F Lbl AE End If G=1:Then Disp "Jackpot!!! Pause Else Disp "You lost a lot Pause End Goto AF Lbl W End If J=0:Then Goto Y Else Disp "You Won! :) Pause Goto Z Lbl Y Disp "You Lost! :( Pause End Lbl Z Menu("Want to play again?","Sure",A,"No thanks",AC Lbl AC End Stop`

I know it isn't that compact since I am fairly new to Ti-84 Basic, but I wanted to give it a go.

Tell me what you think and if I made any errors while typing this up.

I am open to all suggestions

I'm currently using a TI-83+ on a project similar to Oregon Trail, sans graphics, and obviously simplified in other ways.

I look forwards to groaning about all my problems in the future!

]]>I'll go first!

Right now, I'm working on a program called prgmKEYBOARD which (when it's finished) will allow you to write a piano song and the calculator will "play" the song in a synthesia style on a keyboard drawn on the graph screen. You will be able to save your song to play it later and I'm even considering adding some premade songs before I upload on the program archives in TI-Basic Dev!

I know this is a new kind of post, but I look at old forum posts and they seem to be frequent and lighthearted. If y'all are up for it, I say we bring those days back! So whatcha workin on right now?

HG

]]>Thanks

HG

[A^a][B^b]/[C^c][D^d] where a reaction is given in the form c[C]+d[D]->a[A]+b[B]. This however is limited to two reactants and two products, when there are times that there may be more than two of each, or imbalanced numbers of each.

My code for this equation looks like this:

` ``If not(dim(L1)=dim(L2):Return 1->B For(A,1,dim(L1 B(L1(A)^L2(A)->B End Disp B`

Now, I realize that that does not allow user input inside the program. Simply adding this code to the beginning of the program changes the input to a comma separated values input (e.g. 3,4.57,9.21,-2.8)

` ``Input "Molarities:",Str1 Input "Powers:",Str2 expr("{"+Str1->L1 expr("{"+Str2->L2`

The way the code works is by entering a negative value for the power of any molarity which is intended to be in the denominator.

I was wondering if this code could be optimized at all

]]>For example, with two variables it would be

` ``a xor b`

If I wanted to test exactly one of a, b, c, … were 0, would it be

` ``a xor b xor c xor...`

or would I need parenthesis somewhere? ]]>

I got the part of inputting for N down, but I have no idea how to make the Summation function work in the program. I can do it on the homescreen, but it doesn't appear in code the same way. I have a TI-84+CE, and the Summation function is found after you push MATH, the character with jagged lines. I can't find anything on this site about the function.

]]>I know I can write:

if list('number')= a valuebut that is not what I want

I want to test for the whole list, not just for 1 item in a list.

anyone who knows how to do?

]]>