LBL "PALIND" ; Key: 11
FIX 0
"NOMBRE?"
PROMPT
LBL 00
STO 00
XEQ 10
RCL 00
X=Y?
GTO 02
+
VIEW X
PSE
GTO 00
LBL 10
0
X<>Y
LBL 01
RCL X
10
ST* T
ST/ Z
MOD
ST+ Z
RDN
INT
X#0?
GTO 01
X<>Y
RTN
LBL 02
CLD
END