procedure STAR_TREK is energy : integer := 4000; torpedoes : integer := 10; star_date : integer := 3421; klingons : integer; total_klingons : integer; -- # klingons in galaxy star_bases : integer; -- # starbases in galaxy x_sector,y_sector : integer; -- position of Enterprise x_quadrant,y_quadrant : integer; -- position of Enterprise condition : string(1..6) := "Green "; damage : array(1..6) of integer; x,y : integer; max_klingons : constant integer := 4; x_klingon, y_klingon, power_klingon : array(1..max_klingons) of integer; sectors : array(0..7,0..7) of character; quadrants : array(0..7,0..7) of integer;