ClrDraw
String►Equ("",Y₁
String►Equ("",Y₂
String►Equ("",Y₃
String►Equ("",Y₄
String►Equ("",Y₅
String►Equ("",Y₆
String►Equ("",Y₇
String►Equ("",Y₈
String►Equ("",Y₉
ZStandard
Line(⁻4,⁻4,⁻4,4)
Line(⁻4,⁻4,8,⁻4)
Line(⁻4,4,8,⁻4)
Text(74,68,"OPP")
Text(108,136,"ADJ")
Text(70,136,"HYP")
Text(100,190,"ANG")
Text(140,20,"PRESS ENTER TO CONTINUE"
DispGraph
Pause 
ClrDraw
ClrHome
Degree
Disp "Input two. Make two Zero."
Input "OPP=",B
Input "ADJ=",C
Input "HYP=",D
Input "ANG=",A
If A≠0 and B≠0
Then
A→E
B→F
B/tan(A)→G
B/sin(A)→H
Else:If A≠0 and C≠0
Then
A→E
tan(A)C→F
C→G
C/cos(A)→H
Else:If A≠0 and D≠0
Then
A→E
sin(A)D→F
cos(A)D→G
D→H
Else:If B≠0 and C≠0
Then
tan⁻¹(B/C)→E
B→F
C→G
√(B²+C²)→H
Else:If B≠0 and D≠0
Then
sin⁻¹(B/D)→E
B→F
√(D²-B²)→G
D→H
Else:If C≠0 and D≠0
Then
cos⁻¹(C/D)→E
√(D²-C²)→F
C→G
D→H
End
End
End
End
End
End
ClrHome
Output(1,1,"OPP=")
Output(2,1,"ADJ=")
Output(3,1,"HYP=")
Output(4,1,"ANG=")
Output(5,1,"SIN=")
Output(6,1,"COS=")
Output(7,1,"TAN=")
Output(8,1,"CSC=")
Output(9,1,"SEC=")
Output(10,1,"COT=")

F→T
G→U
H→V
E→W

//OUTPUT OPPOSITE
T→D
1→F
1→I
0→J
While I<20000 and J≠1
  If ((D^2)*I*I)=round((D^2)*I*I,0)
  Then
    I→F
    1→J
  End
  I+1→I
End
round((D*F)^2,0)→R
1→C
R→S
S→H
1→J
1→I
While S≥1
  (R/(I*I))→S
  If S=int(S)
  Then
    S→H
    I→C
  End
  I+1→I
End
H→R
Lbl G
{C}→L₅
{F}→L₆
1→I
While I≤round(√(C),0)+1
  If IfPart(C/I)=0
  Then
    I→L₅(1+dim(L₅))
    (C/I)→L₅(1+dim(L₅))
  End
  I+1→I
End
1→I
While I≤round(√(F),0)+1
  If IfPart(F/I)=0
  Then
    I→L₆(1+dim(L₆))
    (F/I)→L₆(1+dim(L₆))
  End
  I+1→I
End
1→I
1→J
0→K
While I<dim(L₅) and K≠1
  While J<dim(L₆) and K≠1
    If L₅(I)=L₆(J) and L₅(I)≠1
    Then
      C/L₅(I)→C
      F/L₅(I)→F
      1→K
    End
    J+1→J
  End
  I+1→I
End
{0,1→L₅
CL₅→L₆
LinReg(ax+b) L₅,L₆,Y₉
Equ►String(Y₉,Str0
sub(Str0,1,length(Str0)-3→Str0
" "→Str9
If C=1 and R≠1
  " "→Str0
Str0→Str9
{0,1→L₅
RL₅→L₆
LinReg(ax+b) L₅,L₆,Y₉
Equ►String(Y₉,Str0
sub(Str0,1,length(Str0)-3→Str0
If R≠1
  Str9+"√("+Str0+")"→Str9
{0,1→L₅
FL₅→L₆
LinReg(ax+b) L₅,L₆,Y₉
Equ►String(Y₉,Str0
sub(Str0,1,length(Str0)-3→Str0
If F≠1
  Str9+"/"+Str0→Str9
If F=0
  "Error"→Str9
If inString(Str9," ")=1
  sub(Str9,2,length(Str9)-1)→Str9
If D<0
  "⁻"+Str9→Str9
Output(1,5,Str9

//OUTPUT ADJACENT
U→D
1→F
1→I
0→J
While I<20000 and J≠1
  If ((D^2)*I*I)=round((D^2)*I*I,0)
  Then
    I→F
    1→J
  End
  I+1→I
End
round((D*F)^2,0)→R
1→C
R→S
S→H
1→J
1→I
While S≥1
  (R/(I*I))→S
  If S=int(S)
  Then
    S→H
    I→C
  End
  I+1→I
End
H→R
Lbl G
{C}→L₅
{F}→L₆
1→I
While I≤round(√(C),0)+1
  If IfPart(C/I)=0
  Then
    I→L₅(1+dim(L₅))
    (C/I)→L₅(1+dim(L₅))
  End
  I+1→I
End
1→I
While I≤round(√(F),0)+1
  If IfPart(F/I)=0
  Then
    I→L₆(1+dim(L₆))
    (F/I)→L₆(1+dim(L₆))
  End
  I+1→I
End
1→I
1→J
0→K
While I<dim(L₅) and K≠1
  While J<dim(L₆) and K≠1
    If L₅(I)=L₆(J) and L₅(I)≠1
    Then
      C/L₅(I)→C
      F/L₅(I)→F
      1→K
    End
    J+1→J
  End
  I+1→I
End
{0,1→L₅
CL₅→L₆
LinReg(ax+b) L₅,L₆,Y₉
Equ►String(Y₉,Str0
sub(Str0,1,length(Str0)-3→Str0
" "→Str9
If C=1 and R≠1
  " "→Str0
Str0→Str9
{0,1→L₅
RL₅→L₆
LinReg(ax+b) L₅,L₆,Y₉
Equ►String(Y₉,Str0
sub(Str0,1,length(Str0)-3→Str0
If R≠1
  Str9+"√("+Str0+")"→Str9
{0,1→L₅
FL₅→L₆
LinReg(ax+b) L₅,L₆,Y₉
Equ►String(Y₉,Str0
sub(Str0,1,length(Str0)-3→Str0
If F≠1
  Str9+"/"+Str0→Str9
If F=0
  "Error"→Str9
If inString(Str9," ")=1
  sub(Str9,2,length(Str9)-1)→Str9
If D<0
  "⁻"+Str9→Str9
Output(2,5,Str9

//OUTPUT HYPOTENUSE
V→D
1→F
1→I
0→J
While I<20000 and J≠1
  If ((D^2)*I*I)=round((D^2)*I*I,0)
  Then
    I→F
    1→J
  End
  I+1→I
End
round((D*F)^2,0)→R
1→C
R→S
S→H
1→J
1→I
While S≥1
  (R/(I*I))→S
  If S=int(S)
  Then
    S→H
    I→C
  End
  I+1→I
End
H→R
Lbl G
{C}→L₅
{F}→L₆
1→I
While I≤round(√(C),0)+1
  If IfPart(C/I)=0
  Then
    I→L₅(1+dim(L₅))
    (C/I)→L₅(1+dim(L₅))
  End
  I+1→I
End
1→I
While I≤round(√(F),0)+1
  If IfPart(F/I)=0
  Then
    I→L₆(1+dim(L₆))
    (F/I)→L₆(1+dim(L₆))
  End
  I+1→I
End
1→I
1→J
0→K
While I<dim(L₅) and K≠1
  While J<dim(L₆) and K≠1
    If L₅(I)=L₆(J) and L₅(I)≠1
    Then
      C/L₅(I)→C
      F/L₅(I)→F
      1→K
    End
    J+1→J
  End
  I+1→I
End
{0,1→L₅
CL₅→L₆
LinReg(ax+b) L₅,L₆,Y₉
Equ►String(Y₉,Str0
sub(Str0,1,length(Str0)-3→Str0
" "→Str9
If C=1 and R≠1
  " "→Str0
Str0→Str9
{0,1→L₅
RL₅→L₆
LinReg(ax+b) L₅,L₆,Y₉
Equ►String(Y₉,Str0
sub(Str0,1,length(Str0)-3→Str0
If R≠1
  Str9+"√("+Str0+")"→Str9
{0,1→L₅
FL₅→L₆
LinReg(ax+b) L₅,L₆,Y₉
Equ►String(Y₉,Str0
sub(Str0,1,length(Str0)-3→Str0
If F≠1
  Str9+"/"+Str0→Str9
If F=0
  "Error"→Str9
If inString(Str9," ")=1
  sub(Str9,2,length(Str9)-1)→Str9
If D<0
  "⁻"+Str9→Str9
Output(3,5,Str9

//OUTPUT ANGLE
Output(4,5,W)

//OUTPUT SINE
sin(E)→D
1→F
1→I
0→J
While I<20000 and J≠1
  If ((D^2)*I*I)=round((D^2)*I*I,0)
  Then
    I→F
    1→J
  End
  I+1→I
End
round((D*F)^2,0)→R
1→C
R→S
S→H
1→J
1→I
While S≥1
  (R/(I*I))→S
  If S=int(S)
  Then
    S→H
    I→C
  End
  I+1→I
End
H→R
Lbl G
{C}→L₅
{F}→L₆
1→I
While I≤round(√(C),0)+1
  If IfPart(C/I)=0
  Then
    I→L₅(1+dim(L₅))
    (C/I)→L₅(1+dim(L₅))
  End
  I+1→I
End
1→I
While I≤round(√(F),0)+1
  If IfPart(F/I)=0
  Then
    I→L₆(1+dim(L₆))
    (F/I)→L₆(1+dim(L₆))
  End
  I+1→I
End
1→I
1→J
0→K
While I<dim(L₅) and K≠1
  While J<dim(L₆) and K≠1
    If L₅(I)=L₆(J) and L₅(I)≠1
    Then
      C/L₅(I)→C
      F/L₅(I)→F
      1→K
    End
    J+1→J
  End
  I+1→I
End
{0,1→L₅
CL₅→L₆
LinReg(ax+b) L₅,L₆,Y₉
Equ►String(Y₉,Str0
sub(Str0,1,length(Str0)-3→Str0
" "→Str9
If C=1 and R≠1
  " "→Str0
Str0→Str9
{0,1→L₅
RL₅→L₆
LinReg(ax+b) L₅,L₆,Y₉
Equ►String(Y₉,Str0
sub(Str0,1,length(Str0)-3→Str0
If R≠1
  Str9+"√("+Str0+")"→Str9
{0,1→L₅
FL₅→L₆
LinReg(ax+b) L₅,L₆,Y₉
Equ►String(Y₉,Str0
sub(Str0,1,length(Str0)-3→Str0
If F≠1
  Str9+"/"+Str0→Str9
If F=0
  "Error"→Str9
If inString(Str9," ")=1
  sub(Str9,2,length(Str9)-1)→Str9
If D<0
  "⁻"+Str9→Str9
Output(5,5,Str9

//OUTPUT COSINE
cos(E)→D
1→F
1→I
0→J
While I<20000 and J≠1
  If ((D^2)*I*I)=round((D^2)*I*I,0)
  Then
    I→F
    1→J
  End
  I+1→I
End
round((D*F)^2,0)→R
1→C
R→S
S→H
1→J
1→I
While S≥1
  (R/(I*I))→S
  If S=int(S)
  Then
    S→H
    I→C
  End
  I+1→I
End
H→R
Lbl G
{C}→L₅
{F}→L₆
1→I
While I≤round(√(C),0)+1
  If IfPart(C/I)=0
  Then
    I→L₅(1+dim(L₅))
    (C/I)→L₅(1+dim(L₅))
  End
  I+1→I
End
1→I
While I≤round(√(F),0)+1
  If IfPart(F/I)=0
  Then
    I→L₆(1+dim(L₆))
    (F/I)→L₆(1+dim(L₆))
  End
  I+1→I
End
1→I
1→J
0→K
While I<dim(L₅) and K≠1
  While J<dim(L₆) and K≠1
    If L₅(I)=L₆(J) and L₅(I)≠1
    Then
      C/L₅(I)→C
      F/L₅(I)→F
      1→K
    End
    J+1→J
  End
  I+1→I
End
{0,1→L₅
CL₅→L₆
LinReg(ax+b) L₅,L₆,Y₉
Equ►String(Y₉,Str0
sub(Str0,1,length(Str0)-3→Str0
" "→Str9
If C=1 and R≠1
  " "→Str0
Str0→Str9
{0,1→L₅
RL₅→L₆
LinReg(ax+b) L₅,L₆,Y₉
Equ►String(Y₉,Str0
sub(Str0,1,length(Str0)-3→Str0
If R≠1
  Str9+"√("+Str0+")"→Str9
{0,1→L₅
FL₅→L₆
LinReg(ax+b) L₅,L₆,Y₉
Equ►String(Y₉,Str0
sub(Str0,1,length(Str0)-3→Str0
If F≠1
  Str9+"/"+Str0→Str9
If F=0
  "Error"→Str9
If inString(Str9," ")=1
  sub(Str9,2,length(Str9)-1)→Str9
If D<0
  "⁻"+Str9→Str9
Output(6,5,Str9

//OUTPUT TANGENT
tan(E)→D
1→F
1→I
0→J
While I<20000 and J≠1
  If ((D^2)*I*I)=round((D^2)*I*I,0)
  Then
    I→F
    1→J
  End
  I+1→I
End
round((D*F)^2,0)→R
1→C
R→S
S→H
1→J
1→I
While S≥1
  (R/(I*I))→S
  If S=int(S)
  Then
    S→H
    I→C
  End
  I+1→I
End
H→R
Lbl G
{C}→L₅
{F}→L₆
1→I
While I≤round(√(C),0)+1
  If IfPart(C/I)=0
  Then
    I→L₅(1+dim(L₅))
    (C/I)→L₅(1+dim(L₅))
  End
  I+1→I
End
1→I
While I≤round(√(F),0)+1
  If IfPart(F/I)=0
  Then
    I→L₆(1+dim(L₆))
    (F/I)→L₆(1+dim(L₆))
  End
  I+1→I
End
1→I
1→J
0→K
While I<dim(L₅) and K≠1
  While J<dim(L₆) and K≠1
    If L₅(I)=L₆(J) and L₅(I)≠1
    Then
      C/L₅(I)→C
      F/L₅(I)→F
      1→K
    End
    J+1→J
  End
  I+1→I
End
{0,1→L₅
CL₅→L₆
LinReg(ax+b) L₅,L₆,Y₉
Equ►String(Y₉,Str0
sub(Str0,1,length(Str0)-3→Str0
" "→Str9
If C=1 and R≠1
  " "→Str0
Str0→Str9
{0,1→L₅
RL₅→L₆
LinReg(ax+b) L₅,L₆,Y₉
Equ►String(Y₉,Str0
sub(Str0,1,length(Str0)-3→Str0
If R≠1
  Str9+"√("+Str0+")"→Str9
{0,1→L₅
FL₅→L₆
LinReg(ax+b) L₅,L₆,Y₉
Equ►String(Y₉,Str0
sub(Str0,1,length(Str0)-3→Str0
If F≠1
  Str9+"/"+Str0→Str9
If F=0
  "Error"→Str9
If inString(Str9," ")=1
  sub(Str9,2,length(Str9)-1)→Str9
If D<0
  "⁻"+Str9→Str9
Output(7,5,Str9

//OUTPUT COSECANT
1/sin(E)→D
1→F
1→I
0→J
While I<20000 and J≠1
  If ((D^2)*I*I)=round((D^2)*I*I,0)
  Then
    I→F
    1→J
  End
  I+1→I
End
round((D*F)^2,0)→R
1→C
R→S
S→H
1→J
1→I
While S≥1
  (R/(I*I))→S
  If S=int(S)
  Then
    S→H
    I→C
  End
  I+1→I
End
H→R
Lbl G
{C}→L₅
{F}→L₆
1→I
While I≤round(√(C),0)+1
  If IfPart(C/I)=0
  Then
    I→L₅(1+dim(L₅))
    (C/I)→L₅(1+dim(L₅))
  End
  I+1→I
End
1→I
While I≤round(√(F),0)+1
  If IfPart(F/I)=0
  Then
    I→L₆(1+dim(L₆))
    (F/I)→L₆(1+dim(L₆))
  End
  I+1→I
End
1→I
1→J
0→K
While I<dim(L₅) and K≠1
  While J<dim(L₆) and K≠1
    If L₅(I)=L₆(J) and L₅(I)≠1
    Then
      C/L₅(I)→C
      F/L₅(I)→F
      1→K
    End
    J+1→J
  End
  I+1→I
End
{0,1→L₅
CL₅→L₆
LinReg(ax+b) L₅,L₆,Y₉
Equ►String(Y₉,Str0
sub(Str0,1,length(Str0)-3→Str0
" "→Str9
If C=1 and R≠1
  " "→Str0
Str0→Str9
{0,1→L₅
RL₅→L₆
LinReg(ax+b) L₅,L₆,Y₉
Equ►String(Y₉,Str0
sub(Str0,1,length(Str0)-3→Str0
If R≠1
  Str9+"√("+Str0+")"→Str9
{0,1→L₅
FL₅→L₆
LinReg(ax+b) L₅,L₆,Y₉
Equ►String(Y₉,Str0
sub(Str0,1,length(Str0)-3→Str0
If F≠1
  Str9+"/"+Str0→Str9
If F=0
  "Error"→Str9
If inString(Str9," ")=1
  sub(Str9,2,length(Str9)-1)→Str9
If D<0
  "⁻"+Str9→Str9
Output(8,5,Str9

//OUTPUT SECANT
1/cos(E)→D
1→F
1→I
0→J
While I<20000 and J≠1
  If ((D^2)*I*I)=round((D^2)*I*I,0)
  Then
    I→F
    1→J
  End
  I+1→I
End
round((D*F)^2,0)→R
1→C
R→S
S→H
1→J
1→I
While S≥1
  (R/(I*I))→S
  If S=int(S)
  Then
    S→H
    I→C
  End
  I+1→I
End
H→R
Lbl G
{C}→L₅
{F}→L₆
1→I
While I≤round(√(C),0)+1
  If IfPart(C/I)=0
  Then
    I→L₅(1+dim(L₅))
    (C/I)→L₅(1+dim(L₅))
  End
  I+1→I
End
1→I
While I≤round(√(F),0)+1
  If IfPart(F/I)=0
  Then
    I→L₆(1+dim(L₆))
    (F/I)→L₆(1+dim(L₆))
  End
  I+1→I
End
1→I
1→J
0→K
While I<dim(L₅) and K≠1
  While J<dim(L₆) and K≠1
    If L₅(I)=L₆(J) and L₅(I)≠1
    Then
      C/L₅(I)→C
      F/L₅(I)→F
      1→K
    End
    J+1→J
  End
  I+1→I
End
{0,1→L₅
CL₅→L₆
LinReg(ax+b) L₅,L₆,Y₉
Equ►String(Y₉,Str0
sub(Str0,1,length(Str0)-3→Str0
" "→Str9
If C=1 and R≠1
  " "→Str0
Str0→Str9
{0,1→L₅
RL₅→L₆
LinReg(ax+b) L₅,L₆,Y₉
Equ►String(Y₉,Str0
sub(Str0,1,length(Str0)-3→Str0
If R≠1
  Str9+"√("+Str0+")"→Str9
{0,1→L₅
FL₅→L₆
LinReg(ax+b) L₅,L₆,Y₉
Equ►String(Y₉,Str0
sub(Str0,1,length(Str0)-3→Str0
If F≠1
  Str9+"/"+Str0→Str9
If F=0
  "Error"→Str9
If inString(Str9," ")=1
  sub(Str9,2,length(Str9)-1)→Str9
If D<0
  "⁻"+Str9→Str9
Output(9,5,Str9

//OUTPUT COTANGET
1/tan(E)→D
1→F
1→I
0→J
While I<20000 and J≠1
  If ((D^2)*I*I)=round((D^2)*I*I,0)
  Then
    I→F
    1→J
  End
  I+1→I
End
round((D*F)^2,0)→R
1→C
R→S
S→H
1→J
1→I
While S≥1
  (R/(I*I))→S
  If S=int(S)
  Then
    S→H
    I→C
  End
  I+1→I
End
H→R
Lbl G
{C}→L₅
{F}→L₆
1→I
While I≤round(√(C),0)+1
  If IfPart(C/I)=0
  Then
    I→L₅(1+dim(L₅))
    (C/I)→L₅(1+dim(L₅))
  End
  I+1→I
End
1→I
While I≤round(√(F),0)+1
  If IfPart(F/I)=0
  Then
    I→L₆(1+dim(L₆))
    (F/I)→L₆(1+dim(L₆))
  End
  I+1→I
End
1→I
1→J
0→K
While I<dim(L₅) and K≠1
  While J<dim(L₆) and K≠1
    If L₅(I)=L₆(J) and L₅(I)≠1
    Then
      C/L₅(I)→C
      F/L₅(I)→F
      1→K
    End
    J+1→J
  End
  I+1→I
End
{0,1→L₅
CL₅→L₆
LinReg(ax+b) L₅,L₆,Y₉
Equ►String(Y₉,Str0
sub(Str0,1,length(Str0)-3→Str0
" "→Str9
If C=1 and R≠1
  " "→Str0
Str0→Str9
{0,1→L₅
RL₅→L₆
LinReg(ax+b) L₅,L₆,Y₉
Equ►String(Y₉,Str0
sub(Str0,1,length(Str0)-3→Str0
If R≠1
  Str9+"√("+Str0+")"→Str9
{0,1→L₅
FL₅→L₆
LinReg(ax+b) L₅,L₆,Y₉
Equ►String(Y₉,Str0
sub(Str0,1,length(Str0)-3→Str0
If F≠1
  Str9+"/"+Str0→Str9
If F=0
  "Error"→Str9
If inString(Str9," ")=1
  sub(Str9,2,length(Str9)-1)→Str9
If D<0
  "⁻"+Str9→Str9
  Output(10,5,Str9

Pause 
ClrHome
ClrDraw
Lbl Z