LBL "SUMPAL" ; Key: 12 
CLRG 
FIX 0 
"NOMBRE?" 
PROMPT 
10 
STO 04 
4 
STO 00 
X<> Z 
GTO 01 
LBL 10 
0 
X<>Y 
LBL 02 
RCL X 
RCL 04 
ST* T 
ST/ Z 
MOD 
ST+ Z 
RDN 
INT 
X#0? 
GTO 02 
X<>Y 
RTN 
LBL 01 
ISG 00 
CLX 
STO 01 
XEQ 10 
RCL 01 
X=Y? 
GTO 04 
LOG 
RCL 04 
X<>Y 
X=Y? 
9.1 
FRC 
X=0? 
GTO 03 
X<> L 
INT 
RCL 01 
RCL 01 
1 
R^ 
+ 
2 
/ 
INT 
10^X 
STO 03 
MOD 
- 
RCL 03 
- 
STO 02 
LASTX 
/ 
X=0? 
9 
XEQ 10 
RCL 03 
MOD 
RCL 02 
+ 
STO IND 00 
RCL 01 
X<>Y 
- 
GTO 01 
LBL 03 
RCL 01 
1 
- 
STO IND 00 
LASTX 
ST+ 00 
LBL 04 
STO IND 00 
RCL 00 
.1 
% 
5 
+ 
STO 00 
LBL "LSTPAL" ; Key: 13 
RCL 00 
FRC 
1000 
* 
STO 02 
LBL 14 
VIEW IND 02 
PSE 
RCL 02 
1 
- 
STO 02 
4 
- 
X<>0? 
GTO 14 
RCL 08 
RCL 07 
RCL 06 
RCL 05 
STOP 
END