Okay guys i made my factor program. Im typing on my phone so i didn't log in, but its me Likeawhisper. So here's my new edited code, but as usual its not working. Any help?

```
:FACTOR
Clrhome
Prompt A,B,C
AC-> N
{1,N
For(I,2,sqrt(N))
If not(fPart(N/I
augment(Ans,{I,N/I
End
Ans->L1 list 1
SortA(L1
Ans-> L1
dim(L1->theta
For(R,1,theta
For(V,1,theta
Lbl 1
(L1(V))(L1(theta))->S
Goto 0
End:end
Lbl 0
If S=B
Then
Clrhome
Disp L1(V), L1(theta)
Else
If S=| B Does not equal
Then
Goto 1
```

As you know I am trying to get the easy way of factoring, which is find the product of A and C and find the factor pair whose sum is B. you guys know what im talking about i think. Plz help!!!

Likeawhisper