arraybase 1

dim list = {-7, 1, 5, 2, -4, 3, 0}
print "equilibrium indices are : "; equilibrium(list)
end

function equilibrium (l)
	r = 0: s = 0
	e$ = ""
	for n = 1 to l[?]
		s += l[n]
	next
	for i = 1 to l[?]
		if r = s - r - l[i] then e$ += string(i-1) + " "
		r += l[i]
	next
	e$ = left(e$, length(e$)-1)
	return e$
end function