## ProgramEdit

PROGRAM: FACTOR : Input A : ClrHome : A -> D : 0 -> B : While (B < (sqrt(A)-1)) : B+1 -> B : A/B -> C : If fPart(C) = 0 : Then : Disp B, C, "" : Pause : End : End

## How to useEdit

1. Go to programs

2. Execute FACTOR

3. Insert number that you want factored

4. Hit enter.

5. Two factors of the number will be displayed. If the screen does not display "Done," then there are more factors. Hit enter again to view the next two. Continue in this manner until calculator displays "Done."

## ExampleEdit

This is an example of what the screen will look like

prgmFACTOR

Hit enter

prgmFACTOR ?

Type in the number. I will use 1024 as an example.

prgmFACTOR ?1024

Hit enter. This next portion of text should be appearing on the right of the screen.

1 1024

Hit enter

1 1024 2 512

Hit enter

2 512 4 256

(Numbers are disappearing as the screen scrolls through the factors). Hit enter.

4 256 8 128

Hit enter.

8 128 16 64

Hit enter one last time and...

16 64 Done

## Another version Edit

This is another factoring program. This one takes a number and factors it into the smallest primes. For example, the above program would take 100 and show it as 1 and 100, 2 and 50, 4 and 25, 5 and 20, 10 and 10. This one would show it as 2, 2, 5, and 5.

:ClrHome :Float :Func :Full :FnOff :PlotsOff :CoordOff :GridOff :AxesOff :LabelOff :ClrDraw :0→Xmin :-62→Ymin :1→ΔX :1→ΔY :SetUpEditor L1 :0→dim(L1 :Input "X=",X :ClrHome :2→N:X→I% :RepeatN>I%/N:While not(fPart(I%/N:I%/N→I% :1+dim(L1→dim(L1 :N→L1(Ans :End :N+1→N:End :If I%>1 :Then :1+dim(L1→dim(L1 :I%→L1(Ans :End :0→N:34→FV :Repeat FV=105 :If (FV=25 andN>1) or (FV=34 andN<dim(L1 :Then :N-(FV=25)+(FV=34→N:ClrDraw :For(θ,N,min(N+9,dim(L1 :Text(6θ-6N,1,θ,": ",L1(θ :End :End :getKey→FV :End :ClrDraw :Output(1,1,"