From 3aeca7bbdd49d47b6ccdbb89409748ddb4c374dd Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Sat, 10 Jun 2023 19:18:41 -0700
Subject: [PATCH] (lander) Fixed leak

---
 gui/lander/lander.tal | 23 +++++++++++++++--------
 1 file changed, 15 insertions(+), 8 deletions(-)

diff --git a/gui/lander/lander.tal b/gui/lander/lander.tal
index e6b1cd9..2601190 100644
--- a/gui/lander/lander.tal
+++ b/gui/lander/lander.tal
@@ -14,9 +14,10 @@
 	#0f0f .System/g DEO2
 	#0f0f .System/b DEO2
 	( resize )
-	#0190 .Screen/width DEO2
-	#00f0 .Screen/height DEO2
+	#0200 .Screen/width DEO2
+	#0160 .Screen/height DEO2
 	( vectors )
+	;on-frame .Screen/vector DEO2
 	;on-control .Controller/vector DEO2
 	redraw
 
@@ -25,20 +26,26 @@ BRK
 (
 @|vectors )
 
-@on-control ( -> )
+@on-frame ( -> )
 
+	[ LIT &f $1 ] INCk ,&f STR
+	#01 AND ?&no-read
 	.Controller/button DEI
-	DUP #10 NEQ ?&no-u
+	DUP #80 NEQ ?&no-u
 		;get-pt/offset LDA #01 SUB ;get-pt/offset STA
 		;draw-lander/plume LDA INC ;draw-lander/plume STA
-		redraw
 		&no-u
-	DUP #20 NEQ ?&no-d
+	DUP #40 NEQ ?&no-d
 		;get-pt/offset LDA INC ;get-pt/offset STA
 		;draw-lander/plume LDA INC ;draw-lander/plume STA
-		redraw
 		&no-d
 	POP
+	&no-read
+	redraw
+
+BRK
+
+@on-control ( -> )
 
 BRK
 
@@ -51,7 +58,7 @@ BRK
 		DUP2 .Screen/x DEO2
 		.Screen/y DEO2
 	#80 .Screen/pixel DEO
-	[ LIT &o $1 ] draw-lander
+	draw-lander
 
 JMP2r