**TI89**mainRprimeÿ¥Z¥() Prgm Disp "enter number to factor" Input n 2d Lbl a If n/d=int(n/d) Goto b d+1d If dœ¨(n) Goto a Goto c Lbl b n/dn Disp d Goto a Lbl c Disp n EndPrgmäåܦ2