local w1 w2 w3
	Background()
	while true
		file unload all
		w1 = "˙Contacts"
		w2 = "Estimates"
		w3 = "˙˙Orders"
		x = popuplist(9,30,13,w1&w2&w3,"{Esc} to exit",1,0)
		if x = 0
			if ptstr = w1                   '
				CONTACT_Menu()
			elseif ptstr=w2
				ESTIMATE_Menu()
			elseif ptstr=w3
				ORDER_Menu()
			elseif x=-1
		 		return(-1)
			end if
		end if
	end while