diff --git a/source/main.adb b/source/main.adb
index 1da4654..72653fa 100644
--- a/source/main.adb
+++ b/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
 	);
 
diff --git a/source/world.adb b/source/world.adb
index 9bdc7b1..dd87480 100644
--- a/source/world.adb
+++ b/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;
diff --git a/source/world.ads b/source/world.ads
index 5f9bd65..138ae4b 100644
--- a/source/world.ads
+++ b/source/world.ads
@@ -82,6 +82,8 @@ package world is
 
 	procedure mapshot (file_path : in string);
 
+	procedure reveal_map;
+
 ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 
 end world;