; ************************************************************
; Palindromic Number
; ************************************************************
; 

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

lbl a'
( ce / 1 0 prd 1 - inv int sum 1 )
inv eq a' ( exc 1 * 1 0 ) rtn

lbl a
cp cms + a' = sto 2 - a' = eq pi op 20
rcl 2 gto 30 

lbl pi
rcl 2 rtn

op 20 rcl 0 rtn

 
#end
 