added the make_charaarray instruction and pop_into_chararray insruction

t/feed-01.hcl

@@ -54,4 +54,53 @@ if { q := 10; < k q } {  ## a block expression is a normal expression. so it can
 	printf "OK: k is less than q\n"
 } else (printf "BAD: k is not less than q\n")
 
+
+fun ByteArray:at(pos) {
+	return (core.basicAt self pos)
+}
+
+fun CharacterArray:at(pos) {
+	return (core.basicAt self pos)
+}
+
+fun SmallInteger:toCharacter() {
+	return (core.smooiToChar self)
+}
+
+fun Character:toCode() {
+	return (core.charToSmooi self)
+}
+
+ba := #B[1 2 3 4 5 6 7 8 9 10 11 12 13 14 15]
+i := 0
+while (< i 15) {
+	x := (+ i 1)
+	if (== (ba:at i) x) { printf "OK: (ba:at %d) is %O\n" i (ba:at i) } \
+	else { printf "ERROR: (ba:at %d) is not %d\n" i x }
+	i := x
+}
+
+ca := #C[
+	'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm',
+	'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z',
+	'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M',
+	'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z'
+]
+
+i := 0
+while (< i 26) {
+	x := ((+ i ('a':toCode)):toCharacter)
+	if (eqv? (ca:at i) x) { printf "OK: (ca:at %d) is %O\n" i x } \
+	else { printf "ERROR: (ca:at %d) is not %O\n" i x}
+	i := (+ i 1)
+}
+
+i := 26
+while (< i 52) {
+	x := ((+ (- i 26) ('A':toCode)):toCharacter)
+	if (eqv? (ca:at i) x) { printf "OK: (ca:at %d) is %O\n" i x } \
+	else { printf "ERROR: (ca:at %d) is not %O\n" i x}
+	i := (+ i 1)
+}
+
 }  ## END