Data commit

Task/Reverse-a-string/Action-/reverse-a-string.action

@@ -0,0 +1,23 @@
+PROC Reverse(CHAR ARRAY src,dst)
+  BYTE i,j
+
+  i=1 j=src(0) dst(0)=j
+  WHILE j>0
+  DO
+    dst(j)=src(i)
+    i==+1 j==-1
+  OD
+RETURN
+
+PROC Test(CHAR ARRAY src)
+  CHAR ARRAY dst(40)
+
+  Reverse(src,dst)
+  PrintF("'%S' -> '%S'%E",src,dst)
+RETURN
+
+PROC Main()
+  Test("Hello World!")
+  Test("123456789")
+  Test("!noitcA iratA")
+RETURN