Added reveal map on M signal...

source/main.adb

@@ -111,6 +111,7 @@ procedure main is
 		signal_v           => ui_main_style'access,
 		signal_kp_add      => zoom_in'access,
 		signal_kp_subtract => zoom_out'access,
+		signal_m           => world.reveal_map'access,
 		others             => idle_skip'access
 	);
 

source/world.adb

@@ -301,6 +301,17 @@ package body world is
 		core.dash;
 	end mapshot;
 
+                                             ------------------------------------------------------------------------------------------
+
+	procedure reveal_map is
+	begin
+		for x in 0 .. map.width - 1 loop
+			for y in 0 .. map.height - 1 loop
+				map.views (x, y) := true;
+			end loop;
+		end loop;
+	end reveal_map;
+
 ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 
 end world;

source/world.ads

@@ -82,6 +82,8 @@ package world is
 
 	procedure mapshot (file_path : in string);
 
+	procedure reveal_map;
+
 ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 
 end world;