Initial data commit

Task/Digital-root/TI-83-BASIC/digital-root.basic

@@ -0,0 +1,21 @@
+:ClrHome
+­:1→X
+:Input ">",Str1
+:Str1→Str2
+:Repeat L≤1
+:Disp Str1
+:length(Str1→L
+:L→dim(L₁
+:seq(expr(sub(Str1,A,1)),A,1,L)→L₁
+:sum(L₁→N
+:{0,.5,1→L₂
+:NL₂→L₃
+:Med-Med L₂,L₃,Y₁
+:Equ►String(Y₁,Str1
+:sub(Str1,1,length(Str1)-3→Str1
+:X+1→X
+:End
+:Pause
+:ClrHome
+:Disp Str2,"DIGITAL ROOT",expr(Str1),"ADDITIVE","PERSISTENCE",X
+:Pause