Data commit

Task/Reverse-a-string/M2000-Interpreter/reverse-a-string-1.m2000

@@ -0,0 +1,26 @@
+Module ReverseString {
+      a$="as⃝df̅"
+      Print Len(a$), len.disp(a$)
+      Let i=1, j=Len(a$)
+      z$=String$(" ",j)
+      j++
+      do {
+            k$=mid$(a$, i, 1)
+            if i<len(a$) then {
+                  while len.disp(k$+mid$(a$, i+1,1)) =len.disp(k$)  {
+                        k$+=mid$(a$, i+1,1)
+                        i++
+                        if i>len(a$) then exit
+                        j--
+                  }
+                  j--
+                  insert j, len(k$) Z$=K$
+            } else j-- :Insert j,1 z$=k$
+            if i>=len(a$) then exit
+            i++
+      } Always
+      Print len(z$), len.disp(z$)
+      Print z$="f̅ds⃝a"
+      Print z$
+}
+ReverseString

Task/Reverse-a-string/M2000-Interpreter/reverse-a-string-2.m2000

@@ -0,0 +1,4 @@
+a$="as⃝df̅"
+b$=strrev$(a$)
+clipboard b$
+Print b$="̅fd⃝sa"