From 3aca95b23223c86349be9a4c293199ce3410aa6c Mon Sep 17 00:00:00 2001
From: neauoire <aliceffekt@gmail.com>
Date: Sun, 17 Sep 2023 08:18:11 -0700
Subject: [PATCH] Added soft reboot

---
 src/adelie.tal | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

diff --git a/src/adelie.tal b/src/adelie.tal
index 37b6dad..5468bf4 100644
--- a/src/adelie.tal
+++ b/src/adelie.tal
@@ -24,10 +24,12 @@
 @on-reset ( -> )
 	( | meta )
 	;meta #06 DEO2
+	( | detect soft reboot )
+	.src LDZ ?on-soft
 	( | startup )
-	.Console/type DEI ?&>has-arg
+	.Console/type DEI ?{
 		;dict/usage <print-str>/
-		#010f DEO &>has-arg
+		#010f DEO }
 	( | unlock )
 	;&await-src .Console/vector DEO2
 	BRK
@@ -46,7 +48,9 @@
 	( | center )
 	.Screen/width DEI2 #01 SFT2 .center/x STZ2
 	.Screen/height DEI2 #01 SFT2 .center/y STZ2
-	( | unlock )
+	( >> )
+
+@on-soft ( -> )
 	;on-button .Controller/vector DEO2
 	;on-mouse .Mouse/vector DEO2
 	;on-frame .Screen/vector DEO2
@@ -57,7 +61,7 @@
 	( name ) "Adelie 0a
 	( details ) "A 20 "Slideshow 20 "Program 0a
 	( author ) "By 20 "Hundred 20 "Rabbits 0a
-	( date ) "July 20 "12, 20 "2023 00
+	( date ) "Sep 20 "17, 20 "2023 00
 	( > ) 02
 	( icon ) 83 =appicon
 	( mask ) 41 1705
@@ -794,15 +798,13 @@
 	&file-max "File-size 20 "Limit 20 "Exceeded 0a $1
 	&file-missing "!! 20 "File 20 "missing: 20 $1
 
-@op-tbl
-	[
+@op-tbl [
 	=dict/null =dict/name =dict/goto =dict/pict
 	=dict/head =dict/text =dict/move =dict/mode
 	=dict/fill =dict/size =dict/link =dict/patt
 	=dict/rect =dict/rgb4 =dict/stop =dict/wait ]
 
-@fnc-tbl
-	[
+@fnc-tbl [
 	=op-null =op-name =op-goto =op-pict
 	=op-head =op-text =op-move =op-mode
 	=op-fill =op-size =op-link =op-patt
-- 
2.45.2