Add Palindromic Number in TI Basic (TheRenegadeCoder#4444)

archive/t/ti-basic/palindromic-number.tiprogram

@@ -0,0 +1,36 @@
+Input "",Str1
+"0123456789"->Str2
+length(Str1)->L
+L<1->E
+0->D
+0->V
+1->N
+1->S
+While E=0 and N<=L
+    sub(Str1,N,1)->C
+    inString(Str2,C)-1->K
+    If C="+" or C="-"
+    Then
+        D>0->E
+        If C="-"
+        Then 0-S->S
+        End
+    Else
+        K<0->E
+        D+1->D
+        V*10+K*S->V
+    End
+    N+1->N
+End
+If E or D<1 or V<0 Then Disp "Usage: please input a non-negative integer"
+Else
+    V->T
+    0->R
+    While T>0
+        10*R+remainder(T,10)->R
+        int(T/10)->T
+    End
+    If R=V Then Disp "true"
+    Else Disp "false"
+    End
+End