
aa = array { "abc" "def" "GHI" }

// print string s1, s1 is som-string
to prints s1 | a i c1 c2 c3 c4 =
	i = 0
	a = s1[i]
	while a != 0
		c4 = a & 255
		c3 = (a >> 8) & 255
		c2 = (a >> 16) & 255
		c1 = (a >> 24) & 255
		if c1 != 0 printc c1
		if c2 != 0 printc c2
		if c3 != 0 printc c3
		if c4 != 0 printc c4
		i = i + 1
		a = s1[i]

to test =
  prints aa+0 space
  prints aa+4 nl

test
