Data commit

Task/Character-codes/M2000-Interpreter/character-codes.m2000

@@ -0,0 +1,22 @@
+\\ ANSI
+Print Asc("a")
+Print Chr$(Asc("a"))
+\\ Utf16-Le
+Print ChrCode("a")
+Print ChrCode$(ChrCode("a"))
+
+\\ (,) is an empty array.
+
+Function Codes(a$) {
+      If Len(A$)=0 then =(,) : Exit
+      Buffer Mem as byte*Len(a$)
+      \\ Str$(string) return one byte character
+      Return Mem, 0:=Str$(a$)
+           Inventory Codes
+      For i=0 to len(Mem)-1
+      Append Codes, i:=Eval(Mem, i)
+      Next i
+      =Codes
+}
+Print Codes("abcd")
+\\ 97 98 99 100