// fprints in som, now move it to syscall 11  20 sept 2009

// print string s1, s1 is som-string
// 
to fprints2 fo s1 | a i c =
	i = 0
	a = s1[i]
	while a != 0
		c = (a >> 24) & 255		// left most
		if c != 0
			fprintc fo c
			c = (a >> 16) & 255
			if c != 0
				fprintc fo c
				c = (a >> 8) & 255
				if c != 0
					fprintc fo c
					c = a & 255
					if c != 0
						fprintc fo c
		i = i + 1
		a = s1[i]

// end

