; ************************************************************
; Prime Factor Finder
; ************************************************************
; 

#EMULATOR c:\ti-59\prg2\primfact\primfact.t59
#LISTING c:\ti-59\prg2\primfact\primfact.lst
#POCKETPC c:\ti-59\prg2\primfact\primfact.ti

r/s

lbl c
sum 2 rcl 1 / rcl 2 = inv int eq a' rtn

lbl b'
cp 6 c 4 c 2 c 4 c
2 c 4 c 6 c 2 c rcl 2 x%t rcl 3
ge b' rcl 1 prt adv adv adv clr rst

lbl a'
rcl 1 / rcl 2 prt = sto 1 sqr sto 3 
0 gto c 

lbl e
cp sto 1 prt adv sqr sto 3
1 sto 2 1 c 1 c 2 c 1 sto 2 gto b'

 
#end
 