LBL "FACTORS" ; Key: 21 
CLRG 
STO 00 
STO 03 
4
STO 02 
2 
STO 01 
LBL 00 
RCL 03 
RCL 01 
/ 
ENTER 
INT 
X=Y? 
GTO 01 
GTO 02 
LBL 01 
STO 03 
RCL 01 
STO IND 02 
1 
ST+ 02 
GTO 00 
LBL 02 
1 
ST+ 01 
RCL 03 
SQRT 
RCL 01 
X>Y? 
GTO 03 
GTO 00 
LBL 03 
1 
RCL 03 
X#Y? 
STO IND 02 
LBL "RESUL" ; Key: 25
4
STO 01 
CLX
STO 2
STO 3
STO T
STO Z
STO Y
LBL 04
RCL IND 01
X=0?
GTO 05
PSE
1
ST+ 01 
RDN
GTO 04
LBL 05
RDN
STOP
END