From 6b70e4147870f03d86271da3677e4f9e5a97cefe Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Mon, 26 Aug 2024 09:03:13 -0700
Subject: [PATCH] (m291) Cleanup

---
 gui/m291/src/m291.tal | 18 ++++++++++++------
 1 file changed, 12 insertions(+), 6 deletions(-)

diff --git a/gui/m291/src/m291.tal b/gui/m291/src/m291.tal
index e6fb813..7e486ef 100644
--- a/gui/m291/src/m291.tal
+++ b/gui/m291/src/m291.tal
@@ -27,21 +27,24 @@
 
 @on-reset ( -> )
 	;meta #06 DEO2
+	( | theme )
 	#d2d2 DUP2 .System/r DEO2
 	DUP2 .System/g DEO2
 	.System/b DEO2
 	<load-theme>
+	( | size )
 	#0100 .Screen/width DEO2
-	[ LIT2 01 -playing ] STZ
-	;dict/home-path set-path <refresh-dir>
-	;on-mouse .Mouse/vector DEO2
-	;on-control .Controller/vector DEO2
-	;on-console .Console/vector DEO2
-	( | play something )
+	( | .. )
 	message/<new>
 	;dict/mpg-cmd .Console/addr DEO2
 	[ LIT2 03 -Console/mode ] DEO
 	[ LIT2 01 -Console/exec ] DEO
+	[ LIT2 01 -playing ] STZ
+	;dict/home-path set-path <refresh-dir>
+	( | unlock )
+	;on-mouse .Mouse/vector DEO2
+	;on-control .Controller/vector DEO2
+	;on-console .Console/vector DEO2
 	BRK
 
 @meta $1
@@ -50,6 +53,9 @@
 	( auth ) "By 20 "Devine 20 "Lu 20 "Linvega 0a
 	( date ) "25 20 "Aug 20 "2024 $2
 
+(
+@|vectors )
+
 @on-console ( -> brk )
 	[ LIT2 01 -Console/type ] DEI EQU ?{ BRK }
 	[ LIT2 0a -Console/read ] DEI EQUk ?{ message/<append>