Adapted from https://github.com/jwvhewitt/gearhead-1/pull/86
Index: gearhead2-0.701/maped.pas
===================================================================
--- gearhead2-0.701.orig/maped.pas	2017-12-03 11:15:29.000000000 +0200
+++ gearhead2-0.701/maped.pas	2020-05-12 20:50:37.816235610 +0300
@@ -88,8 +88,8 @@
 	Map_Zone.H := ScreenRows - 5;
 	ClipZone( Map_Zone );
 
-	for TX := 1 to Map_Zone.W do begin
-		for TY := 1 to Map_Zone.H do begin
+	for TY := 1 to Map_Zone.H do begin
+		for TX := 1 to Map_Zone.W do begin
 			MX := TX + Pen_X - Map_Zone.W div 2;
 			MY := TY + Pen_Y - Map_Zone.H div 2;
 			if OnTheMap( GB , MX , MY ) then begin
@@ -110,8 +110,8 @@
 				T := TileTerrain( GB , MX , MY );
 				DrawGlyph( METerrGfx[ T ] , TX , TY , METerrColor[T] , BGColor );
 			end;
-		end;	{ For TY }
-	end;	{ For TX }
+		end;	{ For TX }
+	end;	{ For TY }
 
 	{ Restore the clip zone. }
 	MaxClipZone;
Index: gearhead2-0.701/vidmap.pp
===================================================================
--- gearhead2-0.701.orig/vidmap.pp	2017-12-03 11:15:29.000000000 +0200
+++ gearhead2-0.701/vidmap.pp	2020-05-12 20:53:50.094303845 +0300
@@ -280,8 +280,8 @@
 	else TileSet := NAV_DefaultTiles;
 
 	{ Start by displaying the terrain. }
-	for TX := 1 to Map_Zone.W do begin
-		for TY := 1 to Map_Zone.H do begin
+	for TY := 1 to Map_Zone.H do begin
+		for TX := 1 to Map_Zone.W do begin
 			MX := TX + Origin_X - Map_Zone.W div 2;
 			MY := TY + Origin_Y - Map_Zone.H div 2;
 			if OnTheMap( GB , MX , MY ) then begin
@@ -299,8 +299,8 @@
 					DrawMapGlyph( ' ' , TX , TY , Black , MX , MY );
 				end;
 			end;
-		end;	{ For TY }
-	end;	{ For TX }
+		end;	{ For TX }
+	end;	{ For TY }
 
 	{ Next draw the map content on top of it. Thanks to the FPC video unit which }
 	{ is nice and lovely and almost pornographic, I don't have to worry about flicker }
