From 55d1d353f357587943e0bf59547395c1d1c8c38a Mon Sep 17 00:00:00 2001
From: rzuckerm <ron.zuckerman@adtran.com>
Date: Sat, 1 Feb 2025 16:19:38 -0600
Subject: [PATCH] Add Even Odd in TI Basic

---
 archive/t/ti-basic/even-odd.tiprogram | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 archive/t/ti-basic/even-odd.tiprogram

diff --git a/archive/t/ti-basic/even-odd.tiprogram b/archive/t/ti-basic/even-odd.tiprogram
new file mode 100644
index 000000000..0e4d1ef17
--- /dev/null
+++ b/archive/t/ti-basic/even-odd.tiprogram
@@ -0,0 +1,24 @@
+Input "",Str1
+"0123456789"->Str2
+length(Str1)->L
+L<1->E
+0->D
+0->V
+1->N
+While E=0 and N<=L
+    sub(Str1,N,1)->C
+    inString(Str2,C)-1->K
+    If C="+" or C="-" Then D>0->E
+    Else
+        K<0->E
+        D+1->D
+        V*10+K->V
+    End
+    N+1->N
+End
+If E or D<1 Then Disp "Usage: please input a number"
+Else
+    If remainder(V,2)=0 Then Disp "Even"
+    Else Disp "Odd"
+    End
+End