diff --git a/tfv/TODO b/tfv/TODO
index d009bae0..7623690e 100644
--- a/tfv/TODO
+++ b/tfv/TODO
@@ -1,7 +1,9 @@
 short term:
-	finish drawing bottom ocean boundary
 	draw scatter/trees
 	put screenshot of being on giant bird
-	map
 
+longer term:
+	map -- adjust x/y to better match real position
+	name entry screen
+	inventory screen
 
diff --git a/tfv/tfv_worldmap.s b/tfv/tfv_worldmap.s
index 6e84a7a2..25abf4d8 100644
--- a/tfv/tfv_worldmap.s
+++ b/tfv/tfv_worldmap.s
@@ -631,6 +631,66 @@ draw_south_shore:
 	cmp	#12
 	bmi	draw_mountains
 
+	ldx	#COLOR_BOTH_DARKBLUE
+	stx	COLOR
+
+	lda	#40
+	sta	V2
+	ldy	#0
+	lda	#38
+
+	jsr	hlin_double	; hlin 0,39 at 38
+
+	ldx	#COLOR_BOTH_LIGHTBLUE
+	stx	COLOR
+
+	lda	#40
+	sta	V2
+
+	lda	#15
+	cmp	MAP_X
+	bne	lblue_15
+	lda	#35
+	sta	V2
+lblue_15:
+
+	ldy	#0
+	lda	#12
+	cmp	MAP_X
+	bne	lblue_12
+	ldy	#6
+lblue_12:
+
+
+	lda	#36
+
+	jsr	hlin_double	; hlin 0,39 at 36
+
+	ldx	#COLOR_BOTH_YELLOW
+	stx	COLOR
+
+	lda	#40
+	sta	V2
+
+	lda	#15
+	cmp	MAP_X
+	bne	yellow_15
+	lda	#32
+	sta	V2
+yellow_15:
+
+	ldy	#0
+	lda	#12
+	cmp	MAP_X
+	bne	yellow_12
+	ldy	#8
+yellow_12:
+
+	lda	#34
+
+	jsr	hlin_double	; hlin 0,39 at 34
+
+
 	;===============================
 	; Draw Mountains
 	;===============================