Here is my code (it can probably be optimized quit a bit):

0→Z

Lbl B

ClrHome

If Z=0

Then

Disp "Area 1

Disp "------

Disp "

Output(4,2,"1. Triangle

Output(5,2,"2. Equilateral Triangle

Output(6,2,"3. Trapezoid

Output(7,2,"4. Rhombus / Kite

Output(8,2,"5. Circle

End

If Z=1

Then

Disp "Surface Area 2

Disp "------

Output(4,2,"6. Prism

Output(5,2,"7. Cylinder

Output(6,2,"8. Pyramid

Output(7,2,"9. Cone

Output(8,2,"10. Sphere

End

If Z=2

Then

Disp "Lateral Area 3

Disp "------

Output(4,2,"11. Prism

Output(5,2,"12. Cylinder

Output(6,2,"13. Pyramid

Output(7,2,"14. Cone

End

If Z=3

Then

Disp "Volume 4

Disp "------

Output(4,2,"15. Prism

Output(5,2,"16. Cylinder

Output(6,2,"17. Pyramid

Output(7,2,"18. Cone

Output(8,2,"19. Sphere

End

If Z=4

Then

Disp "Miscellaneous 5

Disp "------

Output(5,2,"20. Regular Polygon Area

Output(6,2,"21. Distance Formula

Output(7,2,"22. Interior Angle Sum

End

Lbl A

0→X

0→Y

" →Str0

Repeat Y≠0

getKey→X

If X≠105 and X≠24 and X≠26 and X≠0

Then

If X=102

Then

Str0+"0→Str0

End

If X=92

Then

Str0+"1→Str0

End

If X=93

Then

Str0+"2→Str0

End

If X=94

Then

Str0+"3→Str0

End

If X=82

Then

Str0+"4→Str0

End

If X=83

Then

Str0+"5→Str0

End

If X=84

Then

Str0+"6→Str0

End

If X=72

Then

Str0+"7→Str0

End

If X=73

Then

Str0+"8→Str0

End

If X=74

Then

Str0+"9→Str0

End

If X=45

Then

" →Str0

Output(10,1,"

End

Output(10,1,Str0

End

If X=24 or X=26 or X=105

Then

If X=26

Then

" +→Str0

End

If X=24

Then

" -→Str0

End

1→Y

End

End

If Str0=" +

Then

If Z<5

Then

Z+1→Z

Goto B

Else

Goto A

End

End

If Str0=" -

Then

If Z>0

Then

Z-1→Z

Goto B

Else

Goto A

End

End

If Str0=" 1

Then

ClrHome

Disp "A: Triangle

Disp "------

Disp "Formula: A=12bh

Disp "

Input "Base: ",B

Input "Height: ",C

.5BC→D

{0,1→L₁

{0,D→L₂

LinReg(ax+b) Y₁

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(8,1,"Answer: "+Str1

End

If Str0=" 2

Then

ClrHome

Disp "A: Equilateral Triangle

Disp "------

Disp "Formula: A=(12s)²√(3

Disp "

Input "Side Length: ",B

(.5B)²→C

{0,1→L₁

{0,C→L₂

LinReg(ax+b) Y₁

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(7,1,"Answer: "+Str1+"√(3

End

If Str0=" 3

Then

ClrHome

Disp "A: Trapezoid

Disp "------

Disp "Formula: A=12(b1+b2)h

Disp "

Input "Base 1: ",B

Input "Base 2: ",C

Input "Height: ",D

.5(B+C)D→E

{0,1→L₁

{0,E→L₂

LinReg(ax+b) Y₁

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(9,1,"Answer: "+Str1

End

If Str0=" 4

Then

ClrHome

Disp "A: Rhombus / Kite

Disp "------

Disp "Formula: A=12(d1d2)

Disp "

Input "Diagonal 1: ",B

Input "Diagonal 2: ",C

.5BC→D

{0,1→L₁

{0,D→L₂

LinReg(ax+b) Y₁

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(8,1,"Answer: "+Str1

End

If Str0=" 5

Then

ClrHome

Disp "A: Circle

Disp "------

Disp "Formula: A=πr²

Disp "

Input "Radius: ",B

B²→C

{0,1→L₁

{0,C→L₂

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(7,1,"Answer: "+Str1+"π

End

If Str0=" 6

Then

ClrHome

Disp "SA: Prism

Disp "------

Disp "Formula: S=2B+Ph

Disp "

Input "Base: ",B

Input "Perimeter: ",C

Input "Height: ",D

2B+CD→E

{0,1→L₁

{0,E→L₂

LinReg(ax+b) Y₁

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(8,1,"Answer: "+Str1

End

If Str0=" 7

Then

ClrHome

Disp "SA: Cylinder

Disp "------

Disp "Formula: S=2πr²+2πrh

Disp "

Input "Radius: ",B

Input "Height: ",C

2B²+2BC→D

{0,1→L₁

{0,D→L₂

LinReg(ax+b) Y₁

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(8,1,"Answer: "+Str1+"π

End

If Str0=" 8

Then

ClrHome

Disp "SA: Pyramid

Disp "------

Disp "Formula: B+12Pl

Disp "

Input "Base: ",B

Input "Perimeter: ",C

Input "Slant Height: ",D

B+.5(CD)→E

{0,1→L₁

{0,E→L₂

LinReg(ax+b) Y₁

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(8,1,"Answer: "+Str1

End

If Str0=" 9

Then

ClrHome

Disp "SA: Cone

Disp "------

Disp "Formula: πr²+πrl

Disp "

Input "Radius: ",B

Input "Slant Height: ",C

B²+BC→D

{0,1→L₁

{0,D→L₂

LinReg(ax+b) Y₁

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(8,1,"Answer: "+Str1+"π

End

If Str0=" 10

Then

ClrHome

Disp "SA: Sphere

Disp "------

Disp "Formula: 4πr²

Disp "

Input "Radius: ",B

4B²→C

{0,1→L₁

{0,C→L₂

LinReg(ax+b) Y₁

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(8,1,"Answer: "+Str1+"π

End

If Str0=" 11

Then

ClrHome

Disp "LA: Prism

Disp "------

Disp "Formula: L=Ph

Disp "

Input "Perimeter: ",B

Input "Height: ",C

BC→D

{0,1→L₁

{0,D→L₂

LinReg(ax+b) Y₁

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(8,1,"Answer: "+Str1

End

If Str0=" 12

Then

ClrHome

Disp "LA: Cylinder

Disp "------

Disp "Formula: 2πrh

Disp "

Input "Radius: ",B

Input "Height: ",C

2(BC)→D

{0,1→L₁

{0,D→L₂

LinReg(ax+b) Y₁

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(8,1,"Answer: "+Str1+"π

End

If Str0=" 13

Then

ClrHome

Disp "LA: Pyramid

Disp "------

Disp "Formula: L=12Pl

Disp "

Input "Perimeter: ",B

Input "Slant Height: ",C

.5(BC)→D

{0,1→L₁

{0,D→L₂

LinReg(ax+b) Y₁

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(8,1,"Answer: "+Str1

End

If Str0=" 14

Then

ClrHome

Disp "LA: Cone

Disp "------

Disp "Formula: L=πrl

Disp "

Input "Radius: ",B

Input "Slant Height: ",C

BC→D

{0,1→L₁

{0,D→L₂

LinReg(ax+b) Y₁

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(8,1,"Answer: "+Str1+"π

End

If Str0=" 15

Then

ClrHome

Disp "V: Prism

Disp "------

Disp "Formula: V=Bh

Disp "

Input "Base: ",B

Input "Height: ",C

BC→D

{0,1→L₁

{0,D→L₂

LinReg(ax+b) Y₁

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(8,1,"Answer: "+Str1

End

If Str0=" 16

Then

ClrHome

Disp "V: Cylinder

Disp "------

Disp "Formula: V=πr²h

Disp "

Input "Radius: ",B

Input "Height: ",C

B²C→D

{0,1→L₁

{0,D→L₂

LinReg(ax+b) Y₁

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(8,1,"Answer: "+Str1+"π

End

If Str0=" 17

Then

ClrHome

Disp "V: Pyramid

Disp "------

Disp "Formula: V=13Bh

Disp "

Input "Base: ",B

Input "Height: ",C

(1/3)BC→D

{0,1→L₁

{0,D→L₂

LinReg(ax+b) Y₁

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(8,1,"Answer: "+Str1

End

If Str0=" 18

Then

ClrHome

Disp "V: Cone

Disp "------

Disp "Formula: 13πr²h

Disp "

Input "Radius: ",B

Input "Height: ",C

(1/3)B²C→D

{0,1→L₁

{0,D→L₂

LinReg(ax+b) Y₁

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(8,1,"Answer: "+Str1+"π

End

If Str0=" 19

Then

ClrHome

Disp "V: Sphere

Disp "------

Disp "Formula: 43πr

Disp "

Input "Radius: ",B

(4/3)B→C

{0,1→L₁

{0,C→L₂

LinReg(ax+b) Y₁

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(8,1,"Answer: "+Str1+"π

End

If Str0=" 20

Then

ClrHome

Disp "A: Regular Polygon

Disp "------

Disp "Formula: 12aP

Disp "

Input "Apothem: ",B

Input "Perimeter: ",C

.5BC→D

{0,1→L₁

{0,D→L₂

LinReg(ax+b) Y₁

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(8,1,"Answer: "+Str1

End

If Str0=" 21

Then

ClrHome

Disp "Distance Formula

Disp "------

Disp "√((x2−x1)²+(y2−y1)²

Disp "

Input "x1: ",B

Input "y1: ",C

Input "x2: ",D

Input "y2: ",E

(D−B)²+(E−C)²→F

{0,1→L₁

{0,F→L₂

LinReg(ax+b) Y₁

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(10,1,"Answer: √("+Str1

End

If Str0=" 22

Then

Disp "Interior Angle Sum

Disp "------

Disp "Formula: 180(n-2)

Disp "

Input "Number of sides: ",B

180(B-2)→C

{0,1→L₁

{0,C→L₂

LinReg(ax+b) Y₁

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(7,1,"Answer: "+Str1

End

Pause

ClrHome

DelVar A

DelVar B

DelVar C

DelVar D

DelVar E

DelVar X

DelVar Y

DelVar Z

DelVar Str0

DelVar Str1

DelVar L₁

DelVar L₂

DelVar Y₁

Just right click it!!! ]]>

I wish to create a loop that repeats when no button is pressed. I have tried

` ``<code> While not(Ans) <code> getKey End <code>`

However, the loop here is just being skipped.

I have learned that

` ``<code> 0→K While not(K) <code> getKey→K End <code>`

resolves the issue.

My question: Why is the loop skipped in the first code? Isn't the condition of a While( loop checked when its end is reached?

Thanks in advance

]]>` ``PROGRAM:BMI :Clear Entries :Repeat W>0 and W<400 :ClrHome :Disp "Your Weight? :Input ">",W :End :ClrHome :W*703→W :Repeat H>20 and H<200 :ClrHome :Disp "Your Height?","Inches Only!" :Input ">",H :End :H*H→H :W/H→W :Disp "Your BMI:",W`

Thanks,

HG

Here is a picture of what I'd like to accomplish.. please describe in detail how I should go about writing this program. Basically I want to prompt for all the angle values and have them be plugged into the matrix to the right to yield an answer. I appreciate your time, thank you!

*couldn't upload photo…*

]]>What does it do?

What are the pros? Cons?

]]>Most of what I do is related to mathematical algorithms so I actually jump between writing it in TI-BASIC/Python for quick testing and optimizing and then C/Assembly as the intended final result.

Things I've done in TI-BASIC:

- Higher precision computation of the natural logarithm, since I needed a method to create arbitrary sized tables for an algorithm similar to BKM.
- Implementations of algorithms similar to BKM in order to evaluate the complex logarithm and exponential functions. I needed these as possible internal algorithms for my Z80 floating point library as from those functions we can directly acquire the real or complex versions of sine, cosine, arctangent, exp, and log, and with those it's easy to find the hyperbolic functions, remaining trig functions, log
_{y}(x), y^{x}. - The AGM algorithm as a means to compute inverse trig, and logarithm functions.
- The Borchardt-Gauss algorithm as a means to compute inverse hyperbolic, inverse trig, and logarithm functions.
- This far better implementation of the BKM algorithm. I had to use lists that rotated!
- An implementation of a super old algorithm I created in highschool to compute sine and then a new inverse algorithm for arcsine. In highschool I used a fractal as a quick lookup table for values of sine, but after college I came back to it and found that I could use the classic graycode for arbitrary sized inputs and on a computer that can be computed faster than an ADD/SUB instruction. Unfortunately, us not efficient to then compute as a float or real number as it involves nested radicals.
- A program to generate coefficients for the Padé approximations of the exponential function where $f(x)/f(-x)\approx e^{x}$. It allows me to get approximations at half the cost of Taylor series.
- Implementations of mergesort, quicksort, and heapsort, as well as a few of my own ideas.

There are many more I just can't remember them all

]]>` ``string`

is used in the explanation, but I cannot find such a command on my TI-84+CE. Does anyone know where it is?

]]>Define dw14mk(lijnb,lijnc,hoekA)=

Prgm

:If lijnb≤0 or lijnc≤0 or hoekA≤0 Then

:Disp "De ingevoerde getallen moeten groter dan 0 zijn"

:Disp "Het programma stopt hier. Probeer opnieuw."

:Goto stopprogramma

:EndIf

:setMode(2,2)

:lijna=√((lijnb^(2)+lijnc^(2)-2*lijnb*lijnc*cos(hoekA)))

:hoekB=cos^((-1))((lijnb^(2)-lijna^(2)-lijnc^(2))/(-2*lijna*lijnc))

:hoekC=cos^((-1))((lijnc^(2)-lijnb^(2)-lijna^(2))/(-2*lijna*lijnb))

:Disp "De ingevoerde gegevens:"

:Disp "Lijn b = ",format(round(lijnb,1),"f2")

:Disp "Lijn c = ",format(round(lijnc,1),"f2")

:Disp "Ingesloten hoek A = ",format(round(hoekA,1),"f2"),"0"

:If lijnb=lijnc and hoekA≠60 Then

:Disp "De invoer geeft een gelijkbenige driehoek."

:EndIf

:If lijnb=lijnc and hoekA=60 Then

:Disp "De invoer geeft een gelijkzijdige driehoek."

:EndIf

:Disp "Lijn a = ",format(round(lijna,1),"f2")

:Disp "Hoek B = ",format(round(hoekB,1),"f2"),"° "

:Disp "Hoek C = ",format(round(hoekC,1),"f2"),"° "

:Lbl stopprogramma

:EndPrgm

The code will be used in a dutch high school if I can get it to work. And no I am not getting paid to do this. I am a math student trying to get his study points for ICT…..

The purpose of the code is to calculate two angles (B and C) with a given angle (A) and two sides (b and c).

I already renamed the angles alpha, beta and gamma. Still there remains a problem.

Overtime I do a syntax check it takes me to this line:

:hoekB=cos^((-1))((lijnb^(2)-lijna^(2)-lijnc^(2))/(-2*lijna*lijnc))

and tells me there is a missing bracket. But where? I used the reference guide and all, but I can't find the missing bracket, maybe that is because it is missing (attempt to be funny), but I really don't see where it should go.

Then of course when I try to run the code there is the message of too many arguments in function or command line.

Does anyone see what I don't see?

Thanks in advance for your help.

Marc

Objective: You and another player must win! The point of the game is you have to get your tower to the line first to win. Unexpected thing are to come. The things that include like winds and earth quakes, and the calc will say: "Some wind came by. It knocked some of your tower off!!" And The other thing is that : "An earth quake came buy! ALL of your tower was knocked down!" You can create your own expectations!

]]>` ``:AsmPrgm210000115E3FEF5F4DC9`

I'm interested in whether someone has programmed or could help to make the program the finite element method for 2D elements with stiffnes method on Ti Inspire CX CAS.

my idea is to connect with Excel coordinates of points and the program calculates the global stiffnes matric

thank you.

]]>` ``:a+bi :Prompt A,B,C,D,E :(8AC-3(B^2))/(8(A^2))→G :((B^3)+8D(A^2)-4ABC)/(8(A^3))→H :(C^2)-3BD+12AE→I :2(C^3)-9BCD+27(B^2)E+27A(D^2)-72ACE→J :cuberoot((J+squareroot((J^2)-4(I^3)))/2)→K :0.5squareroot((-2/3)G+(1/(3A))(K+(I/K)))→L :(-B/(4A))-L+0.5squareroot(-4(L^2)-2G+(H/L))→M :(-B/(4A))-L-0.5squareroot(-4(L^2)-2G+(H/L))→N :(-B/(4A))+L+0.5squareroot(-4(L^2)-2G-(H/L))→P :(-B/(4A))+L-0.5squareroot(-4(L^2)-2G-(H/L))→Q :Disp "ROOTS ARE",M :Disp N :Disp P :Disp Q`

]]>
Is there a way to make a prgm that do the same thing ]]>

This timer is the next level for any TI-Basic timer in 2017.

` ``PROGRAM:TIMER2 :ZInteger :0→M :0→T :ClrHome :ClrDraw :Horizontal 15 :Clear Entries :Lbl 0 :startTmr→T :Text(1,0,M," Min :Text(8,0,Ans," Sec :Text(57,0,getTmStr(getTmFmt :Text(50,0,getDtStr(getDtFmt :Text(43,0,startTmr :If Ans>59 :Goto 1 :End :ClrDraw :ClrHome :Stop :Lbl 1 :M+1→M :Goto 0`

This Timer Program Includes:

~ Clock

~ Date

~ Calculator hardware timer

~ Timer ** with** MINUTES and seconds

i got a problem yesterday while writing a short program for my Ti. I want to create a program that converts decimal numbers into binary numbers.

` ``Input "Decimal-Number? :",A (ln(A)/ln(2))→B runde(B,0)→C If C<B C+1→D If C>B C→D D→K D→dim(L₁) While A/2≥1 Rest(A,2)→L₁(D) D-1→D A/2→A runde(A,0)→F If F>A F-1→A If F≤A F→A End 1→L₁(1) For(J,1,K) Disp L₁(K) K-1→K End`

The problem is that the converted dual numbers will be shown among themselves.

For Example: decimal number 4563 —> 1000111010011 binary number

But the output on the screen:

1

1

0

0

1

0

1

1

1

0

0

0

1

I decided to convert the used list L1 into a string but it didn´t work…

What is the solution for this problem?

Reason for this is because I don't want another incident where I lend my calculator to someone and they try to show off by clearing ram as fast as they could (congrats bro) after I spent a long time working on programs (unfortunately, that's not a joke, it did happen, and I know I could archive the programs, just didn't expect the guy to be that careless so it didn't cross my mind lol). ]]>

These are the variants I have so far. If anyone has a better version of the ones below, please let me know.

For Y1=0:

` ``For(I,1,10) Tangent(Y1,A) A-((Y1(A))/(nDeriv(Y1,X,A)))→A End`

For Y1=Y2

` ``0→I Repeat I=10 or K<20 I+1→I 0→K 10rand→A Ans→A K+1→K A-(Y1(A)-Y2(A))/nDeriv((Y1-Y2),X,A End End`

ClrHome

randInt(1,1000)→A

Disp "Pick a number"

For(I,1,10)

Input "Guess?", G

If A=G

Then

Disp "you are one lucky duck!"

Pause

Stop

Else

If G>A

Then

Disp "Too high"

Else

Disp "Too low"

End

End

End

Disp "you lose, the number was", A

Just looking for some guidance.

thanks

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`