Data commit

Task/Tokenize-a-string/XPL0/tokenize-a-string.xpl0

@@ -0,0 +1,20 @@
+string 0;
+include c:\cxpl\codes;
+int  I, J, K, Char;
+char String, Array(5,6);        \5 words and 5 maximum chars + terminating 0
+
+[String:= "Hello,How,Are,You,Today";
+I:= 0;  K:= 0;
+repeat  J:= 0;
+        loop    [Char:= String(I);
+                I:= I+1;
+                if Char=^, or Char=0 then quit;
+                Array(K,J):= Char;
+                J:= J+1;
+                ];
+        Array(K,J):= 0;         \terminate word
+        K:= K+1;                \next word in array
+until   K>=5;
+for K:= 4 downto 0 do [Text(0, addr Array(K,0));  ChOut(0, ^.)];
+CrLf(0);
+]