Bad Token
I recently finished writing a program that solves geometry formulas for me but when i tried to send the program to my calculator it gave me a bad token error. I have recently started programming so I do not know what this means or how to fix it. If someone could look at my code and see whats wrong that would be great.
Here is my code (it can probably be optimized quite 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₁
(account deleted)
