Forum category: General Discussion / Wiki Page Discussions

Forum thread: Forest Escape ]]>

Some of those are Pic variables, so the source code for those won't work

Forum category: General Discussion / Wiki Page Discussions

Forum thread: Ownage Hoops ]]>

Pt-Off(~HT+Q,~.5*9.81*T^^2+UT)

End

((~UH)/4.905)+Q->E

If E>=P-1 and E<=P+1

R+L->L

1->W

1->Z

1->G

End

End

End

End

End

Text(6,80,L)

RecallPic 1

Pt-On(P,0,2)

Pt-On(Q,0,2)

If K>L

Text(39,12,"Winner!")

If K<L

Text(39,62,"Winner!")

For(A,0,99)

End

Text(18,30,"Play again?")

Text(28,40,"Yes")

Text(34,40,"No")

0->Z

28->Y

0->C

While C!=105

Text(Y,36,">")

getKey->C

While C=0

getKey->C

End

Text(Y,36," ")

Y-6(C=25)(Y!=28)->Y

Y+6(C=34)(Y!=34)->Y

End

If C=105 and Y=28

Goto 00

RectGC:CoordOn:GridOff:AxesOn:LabelOff:ExprOn

Forum category: General Discussion / Wiki Page Discussions

Forum thread: Yard Wars ]]>

Forum category: General Discussion / Wiki Page Discussions

Forum thread: Ownage Hoops ]]>

Forum category: General Discussion / Wiki Page Discussions

Forum thread: Forest Escape ]]>

Forum category: General Discussion / Wiki Page Discussions

Forum thread: Forest Escape ]]>

Forum category: Programming & Design / CE and CSE Programming

Forum thread: Using usually inacessible characters in sub( command ]]>

Forum category: Programming & Design / CE and CSE Programming

Forum thread: Using usually inacessible characters in sub( command ]]>

http://tibasicdev.wikidot.com/archives:glyphs

It contains most of the ASCII tokens you can acquire on the calculator.

But the program has some cons. Some tokens are unavailable. You can use my Token Finder program to access all tokens 0000-FFFF (including the PrintScreen command):

http://tibasicdev.wikidot.com/archive:token-finder

Forum category: Programming & Design / CE and CSE Programming

Forum thread: Using usually inacessible characters in sub( command ]]>

Forum category: Programming & Design / CE and CSE Programming

Forum thread: Using usually inacessible characters in sub( command ]]>

Too messy to navigate xD

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Analog(ue) Clock Display ]]>

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Analog(ue) Clock Display ]]>

- Removed extra End command on line 23, caused a SYNTAX error.
- Changed the space on line 20 to a '>', to show what the user selected. Nothing was there before, so the space character didn't show anything that the user selected. It doesn't take extra memory.
- Moved the second colon on line 40 to under Lbl 2 in the digital clock to improve speed.
- Changed lines 87-89 and put them in a For( loop.

**Note that the original program will need proper editing to be sent via TI-Connect CE.**

I just decided to do this, I like optimizing random programs. And wow, this (account deleted) guy has spammed the living crap out of that thread lol

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Analog(ue) Clock Display ]]>

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Ti-84+CE Pong ]]>

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Ti-84+CE Pong ]]>

Be sure to organize your conditionals in parenthesis so the calculator can read your program correctly.

If you want, you can try out and experiment with my version of Pong:

` ``ClrHome AxesOff ZStandard 2→Y:0→A:Ans→B:0→S //Y is the paddle Y-coord, A and B are the ball coords. 1→O:0→P:.25→R //O and P are the ball directions. For O, 1 is right and 0 is left. For P, 1 is up and 0 is down. R is how much the B-coord will advance. To make the game fun, it gets harder over time. Line(Xmin,Y,Xmin,Y-4,1,BROWN,1 TextColor(GREEN //Set Text color Text(0,3,0 Repeat K=45 or (A=-10 and (B>Y or B<Y-4 Line(Xmin,Y,Xmin,Y-4,1,BROWN,1 //Paddle Repeat Ans or (A=-10 and (B>Y or B<Y-4 Pt-Off(A,B,3 //Turn off Ball A+(O)-(not(O→A If max(Ans={Xmin,Xmax not(O→O B+R(P)-R(not(P→B If Ans>=Ymax or Ans<=Ymin not(P→P Pt-On(A,B,3,RED //Turn ball on If A=Xmin and B<=Y and B>Y-4:Then R+.02→R:S+1→S //Increase score by one and make game slightly harder Text(0,3,Ans End getKey End:Ans→K Line(Xmin,Y,Xmin,Y-4,0 max(-6,min(Ymax,Y+2(K=25)-2(K=34→Y //Move paddle by two End ClrDraw:ClrHome "SCORE: "+toString(S //Display score`

Ah, yes. My Zinogre brethren approves this program.

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Ti-84+CE Pong ]]>

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Ti-84+CE Pong ]]>

` ``max(-6,min(10,A+(K=24)-(K=25→A`

What is the graph screen setup? I don't see any initialization at the beginning of your code, so I assume you are using ZStandard?

I'll make my own code later, I'll help you a bit

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Ti-84+CE Pong ]]>

` ``2→A //height of the line 0→X //X-coor of the ball 0→Y //Y-coor of the ball -1→S //direction of the ball (left/right) .1→T //direction of the ball (up/down) Line(-15, A, -15, A-4 Repeat X=-16 Pt-Off(X, Y, 3 X+S→X Y+T→Y Pt-On(X,Ans,3 Line(-15, A, -15, A-4, 20 min(10, max(-6, A+sum(ΔList(getKey={34, 25→A //got the idea for this from the wiki's movement page, makes sure the line doesn't go off the screen Line(-15, A, -15, A-4 If X=15 or X=-15 and Y≤A and Y≥A-4 -S→S If Y=10 or Y=-10 -T→T End Text(10, 10, "YOU LOSE! :(`

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Ti-84+CE Pong ]]>

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Adding values to list with values > 0 ]]>

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Adding values to list with values > 0 ]]>

The user sees numbers 0-9 (based on the keypad) on the graph screen. The user has to press those numbers very quickly. It starts slow and gets faster over time. If the user misses a number for too long they lose. If they hit the key quickly enough, the number vanishes from the graph screen and the user continues to wait. If they hit it quickly enough, their score increments by one. Sort of those bash-it games from arcades. Two main lists are used. One to see if a value is going up or not. The second list for the values increasing. How can I increase all the values in the list at once without using a slow loop? Will seq( work?

EXAMPLE:

` ``L₁ = {0,1,0,0,1,0,0,1,1} L₂ = {0,3,0,0,4,0,0,6,8} Only elements 2, 5, 8, and 9 increase if those same elements in the first list are 1`

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Adding values to list with values > 0 ]]>

Forum category: Forum 101 / Community Introductions

Forum thread: Malagas_Fire wants to learn TI Nspire CXII BASIC ]]>

Forum category: Forum 101 / Community Introductions

Forum thread: Malagas_Fire wants to learn TI Nspire CXII BASIC ]]>

http://tibasicdev.wikidot.com/nspire:home

I do not believe Lua applies to TI-Nspire programming.

Forum category: Forum 101 / Community Introductions

Forum thread: Malagas_Fire wants to learn TI Nspire CXII BASIC ]]>

Forum category: Forum 101 / Community Introductions

Forum thread: Malagas_Fire wants to learn TI Nspire CXII BASIC ]]>

In the past used a ti89 for automate electronics calculation using BASIC language to avoid repetition.

Now got a brand TI cxii-T Nspire, since the ti89 is under repair and would like to learn some BASIC related to Nspire to re-create programs for automated calcs to ease at work and jobs.

Would like to learn more of BASIC Nspire for CXII-T since it differs a lot from the ti89 in OS and programming. Manual is good but doesn't cover all scenarios.

Best Regards,

Forum category: Forum 101 / Community Introductions

Forum thread: Malagas_Fire wants to learn TI Nspire CXII BASIC ]]>

Forum category: General Discussion / Wiki Page Discussions

Forum thread: xFiles [UPDATE] ]]>

` ``Graph dimension: 165x265 pixels Home Dimension: 10x26 units Text spacing: 12 down, 8 across (small) 15 down, 12 across (home) Set text y-coordinates in multiples of 12 (0 [start at 0 for very top and 156 for very bottom], 12, 24, 36, 48, ...)`

On the monochrome calculators, text on the graph screen is…

` ``Graph dimension: 62x94 pixels Home Dimension: 8x16 units Text spacing: 6 down, 4 across (small) 8 down, 6 across (home) Set text y-coordinates in multiples of 6 (0 [start at 0 for very top and 54 for very bottom], 6, 12, 18, 24, ...)`

So if the y-coordinates on the graph screen are in multiples of 6, change them to multiples of 12.

Hope this helps!

If you need examples, here are a few…

` ``If the y-coord on this text command is this: Text(24,18,"Santiago Change it to: Text(48,18,"Santiago`

You may want to adjust the x-coordinates on the text so they all don't appear to be on the more-left side of the screen.

Forum category: Programming & Design / CE and CSE Programming

Forum thread: TI84 Plus CE overlapping txt ]]>

Forum category: Programming & Design / CE and CSE Programming

Forum thread: TI84 Plus CE overlapping txt ]]>

In this program, I included a python utility that compresses files and then you use an on-calc program to decompress.

In that program, the decompression is only intended for pic vars, but that is easy-ish to fix. The compression program takes any kind of data, though, so for example, I copied this thread's text and it compressed it to 65% of the original size.

**EDIT:** Erp, accidentally submitted.

Anyways, there are compression routines specifically targeted toward text compression, and you could probably see much better results. For example, some routines can average better than 85% as the size tends to inifinity. That's pretty wild.

To sum up: With a computer and an on-calc assembly program, you could possibly achieve this for relatively small books :)

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Compression ]]>

Forum category: Programming & Design / CE and CSE Programming

Forum thread: TI84 Plus CE overlapping txt ]]>

hopefully it makes it easier, really don't about the squares or the code, srry!!!

Forum category: Programming & Design / CE and CSE Programming

Forum thread: TI84 Plus CE overlapping txt ]]>

Forum category: General Discussion / Tech Support

Forum thread: TI Nspire CX II Teardown ]]>

Forum category: General Discussion / Tech Support

Forum thread: TI Nspire CX II Teardown ]]>

They won't work on Linux either

Forum category: Programming & Design / CE and CSE Programming

Forum thread: TI84 Plus CE overlapping txt ]]>

Does anybody know how to disassemble (mechanically) the CX II ?

My daughter let some undefined french fries sauce get in between the keypad and the housing.

I tried to teardown the CX II (of course brand new) - without any luck. I removed 4 screws and one screw for the battery compartment and removed the battery itself.

then I tried to set apart the white housing from the black backplate. Without any luck. Do I need some additional information? Or just raw brute force? I tried to open up the left side and tried to open the gap between white and black …

Kind regards

Peter

Forum category: General Discussion / Tech Support

Forum thread: TI Nspire CX II Teardown ]]>

I just don't know how to edit the code to fix the problem

Forum category: Programming & Design / CE and CSE Programming

Forum thread: TI84 Plus CE overlapping txt ]]>

I’m not sure why there would be any text overlap; the CE screen is bigger than the monochrome calculators. However I would have to try out the program myself. Biohazard is right though, don’t use this on such an official test like the ACT.

Forum category: Programming & Design / CE and CSE Programming

Forum thread: TI84 Plus CE overlapping txt ]]>

Forum category: Programming & Design / CE and CSE Programming

Forum thread: TI84 Plus CE overlapping txt ]]>

` ``AxesOff PlotsOff GridOff FnOff 0→Xscl 0→Yscl Lbl 0 Menu(" ACT Ver. 7a R² "," DIST./PYTHAG.",A," QUAD FORMULA",B," SYSTEM OF EQ.",C," TRIANGLES",D," NUMBER THEORY",I," FORMULAS/GRFS",L," QUIT (10/01)",Z) Lbl A Menu(" OPTIONS "," DIST./SLOPE",1," PYTHAG.",2," MAIN MENU",0) Lbl 1:ClrHome Disp "(x₁,y₁) (x₂,y₂)","" Input "x₁ = ",A Input "y₁ = ",B Input "x₂ = ",C Input "y₂ = ",D 2→dim(L₁) (A+C)/2→L₁(1) (B+D)/2→L₁(2) √((A-C)²+(B-D)²)→E ClrHome:Disp "DIST.=" Output(1,8,"√("):Output(1,9,E²) Disp E Output(2,3,"OR") If C-A=0:Then Disp "",A:Output(4,1,"EQN. IS X = ") Else Disp "",L₁Frac Output(3,1,"MIDPT=") (D-B)/(C-A)→M M*A+B→Y Output(5,1,"EQUATION: Y=MX+B") Disp "",MFrac,YFrac Output(6,3,"M =") Output(7,3,"B =") End Pause :Goto A Lbl 2 Menu(" WHAT IS KNOWN? "," LEG-HYP",3," 2 LEGS",4) Lbl 3:ClrHome Input "LEG = ",B Input "HYP = ",A If (A²-B²)<0:Then Disp "NOT A TRIANGLE" Pause :Goto A End Output(4,1,"HYP = √(") Output(4,9,A²-B²) Disp "","","",√(A²-B²) Output(6,1,"OR") Pause :Goto A Lbl 4:ClrHome Input "LEG 1 = ",B Input "LEG 2 = ",C Output(4,1,"HYP = √(") Output(4,9,B²+C²) Disp "","","",√(B²+C²) Output(6,1,"OR") Pause :Goto A Lbl B:ClrHome FnOff Disp "AX²+BX+C = 0" Lbl G:Input "A (≠0) ",A If A=0:Goto G Input "B = ",B Input "C = ",C B²-4AC→D B/(2A)→L₆(1) AL₆(1)²+BL₆(1)+C→L₆(2) ClrDraw Text(1,1,"DISCRIMINANT =") Text(1,55,D) Text(8,1,"ZEROS:") Text(15,1,"---------------------------------------") If D>0:Goto J If D<0:Goto H Text(24,1,"DOUBLE ZERO =") Text(24,50,B/(2A)) Text(57,67,"<ENTER>") Text(47,1,"VERTEX = (",L₆(1),", ",L₆(2),")") Pause :Goto 0 Lbl J (B+√(D))/(2A)→X (B-√(D))/(2A)→Y Text(24,1,"REAL ZEROS =") Text(24,47,X) Text(31,47,Y) Text(57,67,"<ENTER>") Text(47,1,"VERTEX = (",L₆(1),", ",L₆(2),")") Pause :Goto 0 Lbl H B/(2A)→L₅(1) √(D)/(2A)→L₅(2) round(L₅,5)→L₅ Text(24,1,"COMPLEX ZEROS") Text(31,10,L₅(1)) Text(31,39,"+") Text(31,44,L₅(2)) Text(31,72,"") Text(38,10,L₅(1)) Text(38,39,"-") Text(38,44,L₅(2)) Text(38,72,"") Text(57,67,"<ENTER>") Text(47,1,"VERTEX = (",L₆(1),", ",L₆(2),")") Pause :Goto 0 Lbl C:ClrHome Input "WHAT SIZE? ",N Lbl N:ClrHome {N,N}→dim([A]):{N,1}→dim([B]) For(θ,1,N) ClrHome Output(1,1,"EQN:"):Output(1,6,θ) Disp "" If N=2:Disp "AX + BY = C" If N=3:Disp "AX + BY + CZ = D" Input "A = ",X X→[A](θ,1) Input "B = ",X X→[A](θ,2) If N=2:Then Input "C = ",X X→[B](θ,1) End If N=3:Then Input "C = ",X X→[A](θ,3) Input "D = ",X X→[B](θ,1) End End If det([A])=0 Then:ClrHome:Disp "NO SOLUTION" Disp "DETERMINANT = 0" Pause :Goto 0 End ClrHome If [B](1,1)*[A](2,1)-[B](2,1)*[A](1,1)=0 Then:Disp "INF. SOLUTIONS" Pause :Goto 0 End [A][B]→[C]:N→dim(L₁) For(θ,1,N) [C](θ,1)→L₁(θ):[C](θ,1)→L₁(θ) End If N=2:Then Disp "(X,Y) =" Disp L₁ Pause L₁Frac:End If N=3:Then Disp "(X,Y,Z) = " Disp L₁ Pause L₁Frac:End Goto 0 Lbl D:ClrHome:Degree Menu(" GIVEN INFO "," ASA",5," AAS",6," SAS",7," SSS",8," MAIN MENU",0) Lbl 5:ClrHome Input "ANGLE = ",A Input "SIDE = ",E Input "ANGLE = ",C 180-A-C→B:Esin(A)/sin(B)→D Esin(C)/sin(B)→F:Goto E Lbl 6:ClrHome Input "ANGLE = ",A Input "ANGLE = ",B Input "SIDE = ",D 180-A-B→C:Dsin(B)/sin(A)→E Dsin(C)/sin(A)→F:Goto E Lbl 7:ClrHome Input "SIDE = ",E Input "ANGLE = ",A Input "SIDE = ",F (E²+F²-2EFcos(A)→Q If Q≤0:Goto U √(Q→D:((E²-D²-F²)/(2DF))→Q If abs(Q)>1:Goto U cos(Q)→B:180-A-B→C:Goto E Lbl 8:ClrHome Input "SIDE = ",D Input "SIDE = ",E Input "SIDE = ",F If D+E≤F or E+F≤D or D+F≤E:Goto U cos((D²-E²-F²)/(2EF))→A cos((E²-D²-F²)/(2DF))→B 180-A-B→C:Goto E Lbl U:ClrHome Disp "NO TRIANGLE" Pause :Goto D Lbl Y:ClrHome 90→C:√((F²-D²)→E 90-A→B:Goto 6 Lbl 9:ClrHome sin(Fsin(A)/D)→C 180-A-C→B Dsin(B)/sin(A)→E:Goto 6 Lbl E:AxesOff:FnOff :ClrDraw Text(5,5,"ANGLE"):Text(5,60,"SIDE") Text(12,5,"-----"):Text(12,60,"----") Text(18,5,"1= ",A) Text(18,60,"1= ",D) Text(25,5,"2= ",B) Text(25,60,"2= ",E) Text(32,5,"3= ",C) Text(32,60,"3= ",F) .5EFsin(A)→Z Text(45,5,"AREA =",Z) Text(55,5,"HIT <ENTER> FOR MENU") Pause :AxesOn :ClrDraw FnOn :Goto D Lbl I:Menu(" NUMBER THEORY "," FACTORIAL",S," LCM / GCD",T," PERM./COMB.",V," PRIME FACTORS",W," MAIN MENU",0) Lbl S:ClrHome Disp "FACTORIAL N!" Disp "----------------" Disp "ENTER N" Input "(N<70) -> ",N Disp "",N! Output(6,1,N) Output(6,3,"!=") Pause :Goto I Lbl T:ClrHome Disp "LCM / GCD" Disp "----------------" Input "1ST NUM -> ",N Input "2ND NUM -> ",M lcm(N,M)→A:gcd(N,M)→B Disp "",A,B:Output(6,1,"LCM =") Output(7,1,"GCD ="):Pause :Goto I Lbl V:ClrHome Disp "PERM./COMB." Input "N = ",N Input "R = ",R N nPr R→A:N nCr R→B Disp "",A,"",B Output(4,1,"nPr =") Output(6,1,"nCr =") Pause :Goto I Lbl W:ClrHome 20→dim(⌊PR):Fill(0,⌊PR) Disp "PRIME FACTORS:" Disp "----------------" 1→I:2→Q Input "NUMBER ",N ClrHome Disp "PRIME FACTORS OF","" Disp "----------------" Output(2,3,N):Output(2,10,"ARE:") Lbl M If fPart(N/Q)=0:Then Q→⌊PR(I):I+1→I:N/Q→N Else:Q+1→Q:End If Q≤N:Goto M If N≠1:N→⌊PR(I) For(J,1,20) If ⌊PR(J)=0:Goto X End Lbl X:J-1→dim(⌊PR) If dim(⌊PR)=1:Disp "PRIME" Disp ⌊PR:Pause :Goto I Lbl L:AxesOff:FnOff Menu(" FORMULAS "," ALG/GEO/SEQ.",P," CONICS",Q," TRIG./TRI.",R," CONVERSIONS",θ," PARENT GRAPHS",O," MAIN MENU",0) Lbl P:ClrDraw Text(1,1,"SLOPE: M = (y₂-y₁)/(x₂-x₁)") Text(8,1,"MIDPT: (x₁+x₂)/2, (y₁+y₂)/2") Text(15,1,"LINES: Y = MX + B AX + BY = C") Text(22,25,"Y - y₁ = M(X - x₁)") Text(29,1,"QUAD: Y = AX²+BX+C") Text(36,25,"Y = A(X-H)²+K") Text(42,1,"FOR:X=[B+/-√(B²-4AC)]/2A") Text(49,1,"VERTEX: X=B/2A F(B/2A)") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"D = RT (AB)²=A²B²") Text(10,1,"X²X=X (X²)=X") Text(8,25,"5"):Text(8,63,"6") Text(19,1,"I=PRT A=Pe") Text(28,1,"A=P(1+R/N)") Text(17,54,"RT"):Text(26,39,"NT") Text(35,1,"X =1/X 1/X = X") Text(42,1,"DOMAIN = ALL REALS EXCEPT:") Text(49,1,"1-DIVISION BY 0") Text(56,1,"2-EVEN RTS OF NEG.") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"SPECIAL FACTORS") Text(7,1,"--------------------------------") Text(13,1,"X²-(A+B)X+AB = (X-A)(X-B)") Text(20,1,"A²-B² = (A+B)(A-B)") Text(27,1,"A-B = (A-B)(A²+AB+B²)") Text(34,1,"A+B = (A+B)(A²-AB+B²)") Text(42,1,"A - B = (A²+B²)(A+B)(A-B)") Text(40,5,"4") Text(40,18,"4") Text(49,1,"A²+B² = NONE") Text(57,1,"A + B = NONE") Text(55,5,"4") Text(55,18,"4") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"IMAGINARY POWERS") Text(10,1,"=√(1) ²=1") Text(20,1,"= =1") Text(18,34,"4") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"ARITHMETIC SEQ./SERIES") Text(8,4,"A = A + (N-1)D") Text(11,8,"N") Text(17,4,"S = (N/2)[2A + (N-1)D]") Text(20,8,"N") Text(27,1,"GEOMETRIC SEQ./SERIES") Text(35,4,"A = AR") Text(37,8,"N") Text(33,26,"N-1") Text(43,4,"S = A(1 - R )/(1 - R)") Text(41,39,"N-1") Text(45,8,"N") Text(52,4,"S = A/(1 - R) 1<R<1") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"FACTORIAL") Text(9,1,"n! = n(n - 1)(n - 2) . . . (2)(1)") Text(20,1,"COMBINATION") Text(34,1," nCr = -------") Text(28,32,"n!") Text(40,22,"r!(n-r)!") Text(20,51,"PERMUTATION") Text(34,51," nPr = ------") Text(28,80,"n!") Text(40,72,"(n - r)!") Text(48,10,"NO ORDER") Text(48,65,"ORDER") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"PASCAL'S") Text(1,60,"TRIANGLE") Text(1,45,"1") Text(7,41,"1 1") Text(13,37,"1 2 1") Text(19,33,"1 3 3 1") Text(25,29,"1 4 6 4 1") Text(31,25,"1 5 10 10 5 1") Text(37,21,"1 6 15 20 15 6 1") Text(43,17,"1 7 21 35 35 21 7 1") Text(49,13,"1 8 28 56 70 56 28 8 1") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"GEOMETRY FORMULAS - PG. 1") Text(9,1,"CIRCLE: A = πR²") Text(16,1,"CIRCLE: C = 2πR = πD") Text(23,1,"SPHERE: V = (4/3)πR") Text(30,1,"SPHERE: SA = 4πR²") Text(37,1,"CYLINDER: V = πR²H") Text(44,1,"CYLINDER: SA = 2πRH + 2πR²") Text(51,1,"CONE: V = (1/3)πR²H") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"GEOMETRY FORMULAS - PG. 2") Text(9,1,"RECT.: A = L*W P = 2L + 2W") Text(16,1,"SQR.: A = S² P = 4S") Text(23,1,"TRAP.: A = 0.5H(B1 + B2)") Text(30,1,"RHOMBUS: A = B*H = B²sin(θ)") Text(37,1,"PARALLELOGRAM: A = B*H") Text(44,35,"A = S1*S2*sin(θ)") Text(57,67,"<ENTER>") Pause :Goto L Lbl O:AxesOn Thick 4.7→Xmin:4.7→Xmax:1→Xscl 3.1→Ymin:3.1→Ymax:1→Yscl DispGraph Text(50,8,"Y = X") DrawF X Text(5,10,"Y = X²") DrawF X² Text(18,62,"Y = log(X)") DrawF log(X) Text(57,67,"<ENTER>") Pause :ClrDraw DispGraph Text(5,5,"Y = abs(X)") DrawF abs(X) Text(19,72,"Y = 1/X") Text(37,1,"Y = 1/X") DrawF 1/X Text(57,13,"Y = X") DrawF X Text(57,67,"<ENTER>") Pause :ClrDraw 1→Ymin DispGraph Text(1,25,"Y = ^(X)") DrawF ^(X) Text(1,68,"Y = 2^X") DrawF 2^X Text(33,62,"Y = ^(X)") DrawF ^(X) Text(57,67,"<ENTER>") Pause :ClrDraw 3.1→Ymin:Dot-Thick Text(1,12,"Y = [X]") DrawF int(X) Text(9,6,"GREATEST") Text(16,6,"INTEGER") Text(23,6,"FUNCTION") Text(34,49,"CLOSED - LEFT") Text(41,52,"OPEN - RIGHT") Text(57,67,"<ENTER>") Pause :ClrDraw Radian 0→Xmin:2π→Xmax:π/2→Xscl 2→Ymin:2→Ymax:1→Yscl Text(23,85,"2π") Text(23,47,"π") Text(48,2,"AMPLITUDE = 1 PERIOD = 2π") Text(9,10,"Y = sin(X)") DrawF sin(X) Text(9,63,"Y = cos(X)") DrawF cos(X) Text(57,67,"<ENTER>") Pause :Degree:Thick AxesOff:Goto L Lbl Q:ClrDraw Text(1,10,"AX² + BY² + CX + DY + E = 0") Text(7,1,"-------------------------------" Text(13,1,"If A=B ...........................") Text(13,62," CIRCLE") Text(20,1,"If A≠B, = SIGNS ...............") Text(20,62," ELLIPSE") Text(27,1,"If A, B DIFFERENT SIGNS .........") Text(34,58,"HYPERBOLA") Text(41,1,"If 1 SQR. TERM ...................") Text(41,60," PARABOLA") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"CIRCLE") Text(1,33,"(X-H)²+(Y-K)²=R²") Text(8,1,"ELLIPSE - HORIZONTAL") Text(15,1,"(X-H)² (Y-K)²") Text(21,1,"----- + ----- = 1 (A > B)") Text(27,9,"A²"):Text(27,37,"B²") Text(34,1,"VERTICAL") Text(34,57,"A² = B² + C²") Text(41,1,"(X-H)² (Y-K)²") Text(47,1,"----- + ----- = 1 (A > B)") Text(53,9,"B²") Text(53,37,"A²") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"PARABOLA - VERTICAL") Text(7,1,"(X-H)² = 4A(Y-K) AT (H, K)") Text(13,7,"X² = 4AY AT (0, 0)") Text(19,7,"DIRECTRIX: Y = A") Text(25,7,"FOCUS = (0,A)") Text(32,1,"PARABOLA - HORIZONTAL") Text(38,1,"(Y-K)² = 4A(X-H) AT (H, K)") Text(44,7,"Y² = 4AX AT (0, 0)") Text(50,7,"DIRECTRIX: X = A") Text(56,7,"FOCUS = (A, 0)") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"HYPERBOLA - HORIZONTAL") Text(8,1,"(X-H)² (Y-K)²") Text(14,1,"----- - ----- = 1") Text(20,9,"A²"):Text(20,37,"B²") Text(30,1,"VERTICAL") Text(30,58,"C² = A² + B²") Text(37,1,"(Y-K)² (X-H)²") Text(43,1,"----- - ----- = 1") Text(49,9,"A²") Text(49,37,"B²") Text(57,67,"<ENTER>") Pause :Goto L Lbl R:ClrDraw 0→Xmin:1→Xmax:0→Xscl 0→Ymin:1→Ymax:0→Yscl Text(1,1,"SPECIAL RT. TRIANGLES") Text(8,10,"30-60-90 45-45-90") Text(15,10,"1-√(3)-2 1-1-√(2)") Line(.05,.25,.45,.25) Line(.45,.25,.45,.55) Line(.45,.55,.05,.25) Line(.40,.25,.40,.30) Line(.40,.30,.45,.30) Text(48,18,"√(3)") Text(35,46,"1") Text(27,24,"2") Line(.65,.25,.9,.25) Line(.9,.25,.9,.6) Line(.9,.6,.65,.25) Line(.86,.25,.86,.30) Line(.86,.30,.9,.30) Text(48,73,"1") Text(33,88,"1") Text(28,62,"√(2)") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"MORE RIGHT TRIANGLES") Text(10,10,"3-4-5") Text(10,50,"5-12-13") Text(17,10,"7-24-25") Text(17,50,"8-15-17") Text(24,10,"9-40-41") Text(24,50,"11-60-61") Text(31,10,"12-35-37") Text(31,50,"13-84-85") Text(38,10,"16-63-65") Text(38,50,"20-21-29") Text(48,23,"+ MULTIPLES") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"CIRCULAR DEFINITIONS:") Text(15,1,"SIN(X) = Y / R") Text(23,1,"COS(X) = X / R") Text(31,1,"TAN(X) = Y / X") Text(15,50,"CSC(X) = R / Y") Text(23,50,"SEC(X) = R / X") Text(31,50,"COT(X) = X / Y") Text(57,67,"<ENTER>") Pause :ClrDraw Text(2,1,"SIN(X) = OPP/HYP") Text(2,68,"CHIEF") Text(9,1,"COS(X) = ADJ/HYP SOHCAHTOA") Text(16,1,"TAN(X) = OPP/ADJ") Text(23,1,"TAN(X) = SIN(X)/COS(X)") Text(30,1,"CSC(X) = 1/SIN(X)") Text(37,1,"SEC(X) = 1/COS(X)") Text(44,1,"COT(X) = COS(X)/SIN(X)") Text(51,1,"COT(X) = 1/TAN(X)") Text(57,67,"<ENTER>") Pause :AxesOn :ClrDraw 1→Xmin:1→Xmax:0→Xscl 1→Ymin:1→Ymax:0→Yscl Text(8,10,"SIN(X)") Text(15,10,"CSC(X)") Text(40,10,"TAN(X)") Text(47,10,"COT(X)") Text(40,60,"COS(X)") Text(47,60,"SEC(X)") Text(12,56,"ALL ARE +") Text(23,53,"I") Text(23,35,"II") Text(33,32,"III") Text(33,51,"IV") Text(57,67,"<ENTER>") Pause 0→Xmin:14.58064516→Xmax:0→Xscl 0→Ymin:10→Ymax:0→Yscl Circle(0,0,8):Line(0,0,6.900961,4.0322581) Line(0,0,5.7391901,5.483871):Line(0,0,3.8778312,6.9354839) Text(2,4,"QUADRANT I") Text(2,46,"(cos(X),sin(X))") Text(42,39,"3O") Text(33,50,"(√(3)/2,1/2)" Text(25,25,"45") Text(22,41,"(√(2)/2,√(2)/2)") Text(19,14,"60") Text(12,29,"(1/2,√(3)/2)") Text(41,60,"60 = π/3") Text(48,60,"45 = π/4") Text(55,60,"30 = π/6") Text(55,22,"<ENTER>") Pause :ClrDraw 15.16129032→Xmin:15.16129032→Xmax:0→Xscl 10→Ymin:10→Ymax:0→Yscl:Circle(0,0,5) Line(0,5,0,5):Line(5,0,5,0) Text(23,70,"O"):Text(33,65,"(1,O)") Text(1,34,"9O = π/2"):Text(8,40,"(O,1)") Text(23,7,"18O = π"):Text(33,10,"(1,O)") Text(48,30,"27O = 3π/2") Text(55,38,"(O,1)") Text(57,67,"<ENTER>") Pause :ClrDraw:AxesOff Text(1,1,"DEG. - RAD.") Text(1,38,"(cos(X),sin(X))") Text(10,5,"30=π/6") Text(16,5,"45=π/4") Text(22,5,"60=π/3") Text(28,5,"90=π/2") Text(34,1,"120=2π/3") Text(40,1,"135=3π/4") Text(46,1,"150=5π/6") Text(52,1,"180=π") Text(10,38,"(√(3)/2,1/2)") Text(16,38,"(√(2)/2,√(2)/2)") Text(22,38,"(1/2,√(3)/2)") Text(28,38,"(0,1)") Text(34,38,"(1/2,√(3)/2)") Text(40,38,"(√(2)/2,√(2)/2)") Text(46,38,"(√(3)/2,1/2)") Text(52,38,"(1,0)") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"DEG. - RAD.") Text(1,38,"(cos(X),sin(X))") Text(10,1,"210=7π/6") Text(16,1,"225=5π/4") Text(22,1,"240=4π/3") Text(28,1,"270=3π/2") Text(34,1,"300=5π/3") Text(40,1,"315=7π/4") Text(46,1,"330=11π/6") Text(52,1,"360=2π") Text(10,38,"(√(3)/2,1/2)") Text(16,36,"(√(2)/2,√(2)/2)") Text(22,38,"(1/2,√(3)/2)") Text(28,38,"(0,1)") Text(34,38,"(1/2,√(3)/2)") Text(40,38,"(√(2)/2,√(2)/2)") Text(46,42,"(√(3)/2,1/2)") Text(52,42,"(1,0)") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"FUNC. PER. DOM. RNG.") Text(10,1,"SIN(X) 2π R 1 ≤ Y ≤ 1") Text(17,1,"COS(X) 2π R 1 ≤ Y ≤ 1") Text(24,1,"TAN(X) π * R") Text(33,5,"* = R EXCEPT ODD MULT.") Text(40,25,"OF π/2") Text(57,67,"<ENTER>") Pause :ClrDraw 1→Xmin:1→Xmax:0→Xscl 1→Ymin:1→Ymax:0→Yscl Text(1,1,"SIN²(X) + COS²(X) = 1") Text(8,1,"TAN²(X) + 1 = SEC²(X)") Text(15,1,"1 + COT²(X) = CSC²(X)") Text(25,1,"PYTHAGOREAN THEOREM") Text(33,7,"A² + B² = C²") Line(.1,.6,.6,.6) Line(.6,.6,.6,.1) Line(.6,.1,.1,.6) Line(.5,.6,.5,.5) Line(.5,.5,.6,.5) Text(38,78,"A") Text(52,60,"B") Text(34,56,"C") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"DOUBLE-ANGLE FORMULAS") Text(10,1,"SIN(2X) = 2SIN(X) COS(X)") Text(17,1,"COS(2X) = COS²(X) - SIN²(X)") Text(25,1,"COS(2X) = 2 COS²(X) - 1") Text(32,1,"COS(2X) = 1 - 2 SIN²(X)") Text(39,40,"2TAN(X)") Text(45,1,"TAN(2X) =") Text(45,35,"--------") Text(51,35,"1-TAN²(X)") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"HALF-ANGLE FORMULAS") Text(10,1,"SIN(X/2) = √((1-COS(X))/2)") Text(17,1,"COS(X/2) = √((1+COS(X))/2)") Text(30,1,"TAN(X/2) = ----------------") Text(25,38,"√((1-COS(X))/2)") Text(36,38,"√((1+COS(X))/2)") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"SUM AND DIFFERENCE") Text(8,1,"sin(X + Y) =") Text(14,8,"sin(X)cos(Y) + cos(X)sin(Y)") Text(20,1,"sin(X - Y) =") Text(26,8,"sin(X)cos(Y) - cos(X)sin(Y)") Text(32,1,"cos(X + Y) =") Text(38,8,"cos(X)cos(Y) - sin(X)sin(Y)") Text(44,1,"cos(X - Y) =") Text(50,8,"cos(X)cos(Y) + sin(X)sin(Y)") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"SUM AND DIFFERENCE") Text(9,1,"tan(X + Y) =") Text(16,8,"tan(X) + tan(Y)") Text(22,8,"-------------") Text(28,8,"1 - tan(X)tan(Y)") Text(38,1,"tan(X - Y) =") Text(45,8,"tan(X) - tan(Y)") Text(51,8,"-------------") Text(57,8,"1 + tan(X)tan(Y)") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"LAW OF SINES") Text(9,1," sin(A) sin(B) sin(C)") Text(15,1," ----- = ----- = -----") Text(20,13,"a b c") Text(29,1,"LAW OF COSINES") Text(36,1," c² = a² + b² - 2ab*cos(C)") Text(43,1," b² = a² + c² - 2ac*cos(B)") Text(50,1," a² = b² + c² - 2bc*cos(A)") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"TRIANGLE AREAS") Text(10,1,"A = (1/2)BH" Text(17,1,"A = (1/2)ab*sin(C)" Text(24,33,"a²*sin(B)*sin(C)") Text(30,1,"A = (1/2)---------------") Text(36,50,"sin(A)") Text(43,1,"HERON'S FORMULA") Text(50,5,"A = √(S(S-a)(S-b)(S-c))") Text(57,5,"S = (a + b + c)/2") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"INVERSE TRIG. FUNCTIONS") Text(10,1,"FUNC.") Text(10,25,"DEF. ANGLES") Text(10,75,"QUAD.") Text(19,1,"SIN") Text(19,20,"π/2 ≤ θ ≤ π/2") Text(19,78,"4, 1") Text(27,1,"TAN") Text(27,20,"π/2 ≤ θ ≤ π/2") Text(27,78,"4, 1") Text(35,1,"COS") Text(35,25,"0 ≤ θ ≤ π") Text(35,78,"1, 2") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"POLAR COORDINATES") Text(10,1,"X = R cos(θ)") Text(10,53,"Y = R sin(θ)") Text(20,1,"R = √(X² + Y²)") Text(20,53,"R² = X² + Y²") Text(27,1,"θ = tan(Y/X)") Text(36,1,"COMPLEX FORM = A + B") Text(43,1,"POLAR FORM = R CIS θ") Text(50,27,"= R(cos(θ) + sin(θ))") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"POLAR GRAPHS") Text(10,1,"R = A + B sin(θ), R = A + B cos(θ)") Text(20,1,"!A! = !B! CARDIOID") Text(27,1,"!A! > !B! LIMACON W/O LOOP") Text(34,1,"!A! < !B! LIMACON W/LOOP") Text(42,1,"R² = A sin(2θ), R² = A cos(2θ)") Text(49,30,"LEMNISCATE") Text(57,67,"<ENTER>") Pause :Goto L Lbl θ ClrDraw Text(1,1,"LENGTH") Text(10,1,"1 FT = 12 IN") Text(16,1,"1 YD = 3 FT") Text(22,1,"1 MI = 1760 YD") Text(28,1,"1 MI = 5280 FT") Text(34,1,"1 N.MI = 1.15 MI") Text(40,1,"1 LEAGUE = 3 MI") Text(46,1,"1 FATHOM = 6 FT") Text(52,1,"1 ROD = 16.5 FT") Text(10,49,"1 IN = 2.54 CM") Text(16,49,"1 M = 39.37 IN") Text(22,53,"1 KM = .62 MI") Text(28,51,"1 MI = 1.58 KM") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"AREA - PG. 1") Text(10,1,"1 SQ FT = 144 SQ IN") Text(17,1,"1 SQ YD = 9 SQ FT") Text(24,1,"1 ACRE = 4840 SQ YD") Text(31,1,"1 ACRE = 43,560 SQ FT") Text(38,1,"1 SQ MI = 27,878,400 SQ FT") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"AREA - PG. 2") Text(10,1,"1 SQ IN = 6.4516 SQ CM") Text(17,1,"1 SQ METER = 10,000 SQ CM") Text(24,1,"1 SQ METER = 1.196 SQ YD") Text(31,1,"1 SQ YD = .836 SQ METER") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"VOLUME - PG. 1") Text(10,1,"1 T = 3 t") Text(17,1,"1 CUP = 16 T") Text(24,1,"1 PT = 2 CUP") Text(31,1,"1 QT = 2 PT") Text(38,1,"1 GAL = 4 QT") Text(45,1,"1 QT = 0.946 LITER") Text(52,1,"1 LITER = 1000 ML") Text(10,34,"1 BUSHEL = 4 PECKS") Text(17,46,"1 PECK = 8 QTS") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"VOLUME - PG. 2") Text(10,1,"1 CU FT = 1728 CU IN") Text(17,1,"1 CU YD = 27 CU FT") Text(24,1,"1 CU YD = 46,656 CU IN") Text(31,1,"1 CU IN = 16.387 CU CM") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"WEIGHT") Text(10,1,"1 OZ = 28.35 GM") Text(17,1,"1 LB = 16 OZ") Text(24,1,"1 TON = 2000 LB") Text(31,1,"1 METRIC TON = 2200 LB") Text(38,1,"1 KG = 2.2 LB") Text(45,1,"1 LB = .45 KG") Text(52,1,"1 LB = 453.6 GM") Pause :ClrDraw Text(1,1,"TEMPERATURE") Text(10,1,"C = (5/9)(F - 32)") Text(17,1,"F = (9/5)C + 32") Text(26,1,"KELVIN = C + 273") Text(57,67,"<ENTER>") Pause :ClrDraw Goto L Lbl Z ClrHome AxesOn Output(1,1,"CREATED BY RYAN MCCLAIN **2003** CLASS OF *2006* P.V.H.S")`

Forum category: Programming & Design / CE and CSE Programming

Forum thread: TI84 Plus CE overlapping txt ]]>

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Compression ]]>

` ``Lbl M Menu("Snake","Play",P,"Stats",W,"Quit",Q Lbl Q Stop Lbl W ClrHome Output(1,1,"≥15//Turns out I got the order of the numbers wrong, I fixed that as well Output(2,1,S Output(4,1,"≥20 Output(5,1,N Output(1,5,"≥30 Output(2,5,I Output(4,5,"≥40 Output(5,5,R Pause Goto M Lbl P`

I just need to find a place to put the rest, since it doesn't work when placed at the end or in the Lbl

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: A few more questions ]]>

I actually do have a string "compression" algorithm I made in the sense that in can store 4 characters per list element. This is done by storing character indices from a reference string into the integer and fractional part of both a real and imaginary number in the same element (resulting in something like 1.002+3.004i for "ABCD")

However, the resulting list ends up taking up much more space than the original string.

Anyways, you might be able to store a bit of a chapter into a string like BioHazard suggested, you can also archive it to avoid it being overwritten.

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Compression ]]>

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Compression ]]>

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Compression ]]>

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Compression ]]>

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Compression ]]>

.gz is shorter than .zip

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Compression ]]>

` ``Str1+".zip"->Str1`

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Compression ]]>

But instead of books, you can do your favorite *chapters* from your books.

…keep in mind that big books can take a massive amount of memory, in which the CE can only hold about 4MB of ROM (4,000,000 bytes) and ~148kB of RAM (148,000 bytes). Books can have millions of letters and the calculator won't be able to hold it all.

EDIT: There IS a text compression tool, but it's only for Monochrome calcs. https://www.ticalc.org/archives/files/fileinfo/445/44523.html

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Compression ]]>

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Compression ]]>

The scoring is simple, as you can do this:

` ``SetUpEditor HS 5→dim(ʟHS ... ;Snake game ClrHome If A>dim(ʟHS:Then A→ʟHS(6 SortD(ʟHS 5→dim(ʟHS End Disp "Score: Output(1,7,A Disp "High: For(I,1,5 Output(I+2,1,ʟHS(I End:Pause`

Just an example.

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: A few more questions ]]>

Menu("SNAKE","PLAY",P,"STATS",W,"QUIT",Q

Lbl Q

Stop

Lbl W

ClrHome

Output(1,1,"≥15"

Output(1,2,S

If A≥15

S+1->S

Output(1,4,"≥20"

Output(1,5,N

If A≥20

N+1->N

Output(5,1,"≥30

Output(5,2,I

If A≥30

I+1->I

Output(5,4,"≥40"

Output(5,5,R

If A≥40

R+1->R

Lbl P

[Insert snake code here]

My main problem is that whenever I load the "STATS" option, it shows some of the display outputs then loads the game, I tried adding End's after the If command, but that lead to a syntax error, I tried just at the end of the Lbl, but that also ended up with a syntax error. I believe I have a good idea, but honestly I have no idea. I have another idea on it but I'm not sure.

Lbl W

ClrHome

Output(1,1,"≥15"

Output(1,2,S

Output(1,4,"≥20"

Output(1,5,N

Output(5,1,"≥30

Output(5,2,I

Output(5,4,"≥40

Output(5,5,R

[Skip to end]

augment({Ans},|LA->A

End

augment(Ans,{Ans(A->A

End

Lbl 0

ClrHome

A

If A≥15

S+1->S

[Insert the rest here]

Which one would work? Now that I type it out I feel like the second one would be better because the A value isn't set until then, but I'm not sure, I'll do some experimentation.

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: A few more questions ]]>

This comes with both a timer and a high score feature.

You can move the rows and columns with the arrow keys, and you can move the pointers on the sides of the board with mode, alpha, XTθn, and stat

You can copy and paste this into sourcecoder to try it out if you like.

` ``ClrHome "ABCDEFGHIJKLMNOPQRSTUVWXY->Str1 Ans->Str2 randIntNoRep(1,25->L1 sub(Str1,Ans(1),1 For(N,2,25 Ans+sub(Str1,L1(N),1 If not(remainder(N,5 Output(2+N/5,4,sub(Ans,N-4,5 End Ans->Str1 4->A Ans->B DelVar TDelVar KSetUpEditor LOOP UnArchive |LLOOP If not(dim(|LLOOP {0->|LLOOP "* Output(3,3,Ans Output(2,4,Ans Output(3,9,Ans Output(8,4,Ans Output(2,18,"Time: Output(7,18,"High: timeCnv(sum(|LLOOP Output(8,18,"n/a If sum(Ans Output(8,18,toString(Ans(3))+"m"+toString(Ans(4))+"s Repeat K=45 or Str1=Str2 Repeat Ans If T Then timeCnv(checkTmr(T Output(3,18,toString(Ans(3))+"m"+toString(Ans(4))+"s End getKey End Ans->K If sum(Ans={22,31,32,33 Then If K=22 or K=32 Then Output(A-1,3," Output(A-1,9," A+(K=32)-(K=22->A Ans+5(Ans=3)-5(Ans=9->A Output(Ans-1,3,"* Output(Ans-1,9,"* Else If K=31 or K=33 Then Output(2,B," Output(8,B," B+(K=33)-(K=31->B Ans+5(Ans=3)-5(Ans=9->B Output(2,Ans,"* Output(8,Ans,"* End End Else If K=24 or K=26 Then If not(T startTmr->T sub(Str1,5A-15-3(K=24),1+3(K=24))+sub(Str1,5A-19,4-3(K=24 Output(A-1,4,Ans If A>4 sub(Str1,1,5A-20)+Ans If A<8 Ans+sub(Str1,5A-14,26-(5A-14 Ans->Str1 Else If K=25 or K=34 Then If not(T startTmr->T sub(Str1,B+2+15(K=34),1)+sub(Str1,B-2,4)+sub(Str1,B+7-10(K=34),1)+sub(Str1,B+3,4)+sub(Str1,B+12-10(K=34),1)+sub(Str1,B+8,4)+sub(Str1,B+17-10(K=34),1)+sub(Str1,B+13,4)+sub(Str1,B-3+15(K=34),1 If B>4 sub(Str1,1,B-4)+Ans If B<8 Ans+sub(Str1,B+18,26-(B+18 Ans->Str1 For(I,0,4 Output(3+I,B,sub(Str1,5I+B-3,1 End End End End End If Str1=Str2 Then checkTmr(T If Ans<sum(|LLOOP) or not(sum(|LLOOP Then {Ans->|LLOOP timeCnv(sum(Ans Output(8,18,toString(Ans(3))+"m"+toString(Ans(4))+"s End Output(5,16,"Congrats! Repeat getKey End End Archive |LLOOP ClrHome`

Forum category: Projects & Contests / Your Projects

Forum thread: LoopOver ]]>

If you need examples, let me know.

Forum category: General Discussion / Wiki Page Discussions

Forum thread: password ]]>

This code could be used to create and store a password:

` ``Input("New Password: ",A A->rand rand->B`

In which A would be a password, and B would be the randomized number based on it.

So the password 1234 would produce .0219931723, which could then be stored somewhere. This way, nobody can just read through variables to find the password.

Using this method, you could check to see if the password is correct with the code:

` ``Input("Enter Password: ",A If A=B "Yay stuff happens If A\=\B //Sorry, that's the not-equal sign "Sad things happen`

Forum category: General Discussion / Wiki Page Discussions

Forum thread: password ]]>

moc.it|serac-it#moc.it|serac-it

Forum category: General Discussion / Tech Support

Forum thread: TI Feedback ]]>

* This is relating to just feedback, not troubleshooting, etc

Forum category: General Discussion / Tech Support

Forum thread: TI Feedback ]]>

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: A few more questions ]]>