edure initialize is
begin
	put("Please wait while I create the universe");new_line;
	put("(Even God took seven days...)");new_line;
	reset;
	x_quadrant := rand(7);
	y_quadrant := rand(7);
	star_date := 3421;
	total_klingons := 0;
	star_bases := 0;
	for i in 0..7 loop
		for j in 0..7 loop
			declare
				n : integer := 1;
				o : integer;
			begin
			      o := rand(max_klingons+1);   -- get rand # klingons
				total_klingons := total_klingons + o;
				n := n + o * 100;
				n := n + rand(8);-- get rand # stars
				if rand(8)=1 then
					n := n + 10;
					star_bases := star_bases + 1;
				end if;
				quadrants(i,j) := -n;
			end;
		end loop;
	end loop;
	put("Initialization complete."); new_line;
end initialize;

procedure set_up_q