<>  -Not equal to

And [OPTN][F6][F6][F4][F1]

Or [OPTN][F6][F6][F4][F2]

/  -Division

$ -(Square) root

Text [SHIFT][F4][F6][F6][F2]

_______________________________________________________________

Program

ClrText
Axesoff
ViewWindow -126,126,0,-62,62,0
"TYPE"
"1:RIGHT TRI."
"2:45-45 RIGHT"
"3:30-60 RIGHT"?->r
ClrText
r<>1 => "ENTER"
r=1 => "FIND"
If r<>2
Then "1:A"
"2:B"
"3:C"
r=1 => ?->M
r=3 => ?->U
Else "1:C"
"2:X"?->P
IfEnd
ClrText
"WHAT IS"
(M<>3 And r=1) Or (r=3 And U=1) => "A="?->A
(M<>2 And r=1) Or (r=3 And U=2) => "B="?->B
(M<>3 And r=1) Or (r=3 And U=3) => "C="?->C
If r=2
Then If P=1
Then "C="?->C
C/2->Q
Else "X="?->S
$(S^2*2->C
S->Q
IfEnd
IfEnd
If r=3
Then If U=1
Then A$3->B
A*2->C
IfEnd
If U=2
Then B/$3->A
2A->C
IfEnd
If U=3
Then C/2->A
A$3->B
IfEnd
IfEnd
ClrText
If r<>2
Then If r=1
Then Text 5,10,"MULTIPLES OF RIGHT TRIANGLES"
Text 32,10,"A"
Text 53,35,"B"
Text 28,40,"C"
Else Text 5,20,"30-60 RIGHT TRIANGLES"
Text 32,3,"A=X"
Text 53,30,"B=X$3"
Text 28,40,"C=2X"
IfEnd
F-Line -96,-36,-96,32
F-Line -12,-36,-96,-36
F-Line -12,-36,-96,32
If r=1
Then If M=1
Then $(-B^2+C^2->A
Text 15,65,"-B^2+C^2=A^2"
Text 23,60,"->"
Text 49,65,"$A="
Text 49,80,A^2
IfEnd
If M=2
Then $(-A^2+C^2->B
Text 15,65,"-A^2+C^2=B^2"
Text 32,60,"->"
Text 49,65,"$B="
Text 49,80,B^2
IfEnd
If M=3
Then $(A^2+B^2->C
Text 15,65,"A^2+B^2=C^2"
Text 40,60,"->"
Text 49,65,"$C="
Text 49,80,C^2
IfEnd
IfEnd
Text 23,68,"A="
Text 23,77,A
Text 32,68,"B="
Text 32,77,B
Text 40,68,"C="
Text 40,77,C
Else Text 5,20,"45-45 RIGHT TRIANGLES"
Text 32,10,"X"
Text 53,30,"X"
Text 28,36,"C=X$2"
F-Line -96,-36,-96,32
F-Line -96,32,-28,-36
F-Line -28,-36,-96,-36
If P=1
Then Text 23,60,"->"
Text 23,77,$Q
Text 40,68,"$X="
Text 40,82,Q
Else Text 32,60,"->"
Text 23,77,Q
Text 40,68,"$C="
Text 40,82,C^2
IfEnd
Text 23,68,"X="
Text 32,68,"C="
Text 32,77,C
IfEnd