at ");
				put(x_klingon(i)+1);
				put(',');
				put(y_klingon(i)+1);
				put(" (");
				put(power_klingon(i));
				put(')');
				new_line;
				energy := energy - j;
			end;
		end loop;
	end if;
end attacked;

procedure commands is

procedure short_range_scan is
begin

-- set starship condition

	if klingons > 0 then
		condition := "Red   ";
	elsif docked then
		dock;
	elsif energy < 300 then
		condition := "Yellow";
	else
		condition := "Green ";
	end if;

-- print quadrant map

	for i in 0..7 loop
		for j in 0..7 loop	-- print a row of quadrant
			put(sectors(i,j)); put(' ');
		end loop;
		put("    ");

-- print a line of starship information

	    case i is
		when 1 =>
			put("Stardate=");put(star_date);new_line;
		when 2 =>
			put("Condition: ");
			put(condition);
			new_line;
		when 3 =>
			put("Quadrant=");
			put(x_quadrant+1);put(",");
			put(y_quadrant+1);new_line;
		when 4 =>
			put("Sector=");
			put(x_sector+1);put(",");
			put(y_sector+1);new_line;
		when 5 =>
			put("Energy=");put(energy);new_line;
		when 7 =>
			put("Klingons left=");put(total_klingons);new_line;
		when others =>
			new_line;
	    end case;
	end loop;
end short_range_scan;

procedure long_range_scan is

procedure display(number : integer) is

procedure dispnum(number : integer) is
begin
	if number = 0 then
		put('-');
	else
		pu