diff --git a/gui/lander/lander.tal b/gui/lander/lander.tal
index 1348580..105e51b 100644
--- a/gui/lander/lander.tal
+++ b/gui/lander/lander.tal
@@ -47,14 +47,10 @@ BRK
 		#0010 .force/y STZ2
 		&no-d
 	DUP #40 NEQ ?&no-l
-
 		.angle LDZ2 #0001 SUB2 #001f AND2 .angle STZ2
-		;draw-lander/plume LDA INC ;draw-lander/plume STA
 		&no-l
 	DUP #80 NEQ ?&no-r
-
 		.angle LDZ2 INC2 #001f AND2 .angle STZ2
-		;draw-lander/plume LDA INC ;draw-lander/plume STA
 		&no-r
 	POP
 
@@ -86,6 +82,8 @@ BRK
 	reduce3
 	.force/y LDZ2 ADD2 .force/y STZ2
 
+	#08 ;draw-lander/plume STA
+
 JMP2r
 
 @apply-force ( -- )
@@ -93,6 +91,8 @@ JMP2r
 	[ LIT &f $1 ] INCk ,&f STR
 	#03 AND ?&skip
 		.force/y LDZ2 INC2 .force/y STZ2
+		;draw-lander/plume LDA #00 EQU ?&skip
+		;draw-lander/plume LDA #01 SUB ;draw-lander/plume STA
 		&skip
 	.force/y LDZ2 reduce .pos/y LDZ2 ADD2 .pos/y STZ2
 	.force/x LDZ2 reduce .pos/x LDZ2 ADD2 .pos/x STZ2
@@ -148,7 +148,7 @@ JMP2r
 	#0d0c get-pt #0e0f get-pt #01 draw-line
 	#130c get-pt #120f get-pt #01 draw-line
 	( plume )
-	[ LIT &plume $1 ] #03 AND #0c ADD STH
+	[ LIT &plume $1 ] #09 ADD STH
 	#0e08 get-pt #1208 get-pt #02 draw-line
 	#0e08 get-pt #10 STHkr get-pt #02 draw-line
 	#1208 get-pt #10 STHr get-pt #02 draw-line
@@ -179,7 +179,6 @@ JMP2r
 @get-pt ( id rad -- x* y* )
 
 	#00 SWP STH2
-
 	.angle LDZ2 NIP ADD
 
 !get-point/force