From e615104426baf10b171f6f207393f5ac1180160a Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Mon, 19 Jun 2023 21:26:57 -0700
Subject: [PATCH] Housekeeping

---
 cli/arvelie/arvelie.tal     |  28 ++--
 cli/base64/b64enc.tal       |  74 +++++----
 cli/hx/hx.tal               |  25 ++-
 cli/proquints/proquints.tal |  59 ++++---
 gui/meta/meta.tal           | 304 +++++++++++++++++-------------------
 5 files changed, 247 insertions(+), 243 deletions(-)

diff --git a/cli/arvelie/arvelie.tal b/cli/arvelie/arvelie.tal
index dabd9b0..1b2c4d3 100644
--- a/cli/arvelie/arvelie.tal
+++ b/cli/arvelie/arvelie.tal
@@ -1,5 +1,4 @@
-(
-	usage: arvelie.rom )
+( usage: arvelie.rom )
 
 |10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1
 |c0 @DateTime &year $2 &month $1 &day $1 &hour $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1
@@ -37,8 +36,11 @@
 @parse ( ztr -- )
 	DUP zlen #05 EQU ?&on-arvgre
 	DUP zlen #0a EQU ?&on-grearv
-	( print-error ) ;&err &w LDAk #19 DEO
-	INC2 LDAk ?&w
+	( | print-error )
+	;&err
+	&w ( -- )
+		LDAk #19 DEO
+		INC2 LDAk ?&w
 	POP2
 	( err ) #010f DEO
 	JMP2r
@@ -55,7 +57,8 @@
 		( d ) STHr bytedec #0001 SUB2 doty SWP2 <emit-arv>
 		#0a18 DEO
 		( end ) #800f DEO
-		JMP2r &err "usage: 20 "arvelie.rom 20 "YYYY-MM-DD 0a $1
+		JMP2r
+		&err "usage: 20 "arvelie.rom 20 "YYYY-MM-DD 0a $1
 
 @<emit-gre> ( doty* year* -- )
 	DUP2 <emit-dec2>
@@ -64,10 +67,10 @@
 	STH2 #0c00
 	&l ( -- )
 		DUP [ LIT2 &y $2 ] ROT diam #00 SWP DUP2 STH2kr GTH2 ?&>skip
-		STH2k SUB2r !&>continue
-		&>skip
-		POP2 !&end
-		&>continue
+			STH2k SUB2r !&>continue
+			&>skip
+			POP2 !&end
+			&>continue
 		POP2 INC GTHk ?&l
 	&end ( -- )
 		NIP INC <emit-dec>
@@ -103,7 +106,7 @@
 
 @diam ( year* month -- days )
 	#00 OVR ;diam-lut ADD2 LDA SWP #01 NEQ ?&>no-feb
-	STH DUP2 is-leap-year STHr ADD &>no-feb
+		STH DUP2 is-leap-year STHr ADD &>no-feb
 	NIP NIP JMP2r
 
 @is-leap-year ( year* -- bool )
@@ -133,10 +136,9 @@
 	DUP zcap SWP SUB JMP2r
 
 @zcap ( ztr -- end )
-	!&>a
+	!&a
 	&w ( -- )
-		INC &>a
-		LDZk ?&w
+		INC &a LDZk ?&w
 	JMP2r
 
 (
diff --git a/cli/base64/b64enc.tal b/cli/base64/b64enc.tal
index dc3227c..da787da 100644
--- a/cli/base64/b64enc.tal
+++ b/cli/base64/b64enc.tal
@@ -3,34 +3,36 @@
 |10 @Console &vector $2 &read $1 &pad $5 &write $1 &error $1
 |a0 @File &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2
 
-|0000 @src $40 @queue $1
+|0000
 
-|0100 ( -> )
+	@src $40
+	@queue $1
+
+|0100
+
+@on-reset ( -> )
 	;await-src .Console/vector DEO2
-BRK
+	BRK
 
 @await-src ( -> )
 	.Console/read DEI .src skey ?on-ready
-BRK
+	BRK
 
 @on-ready ( -> )
 	;src .File/name DEO2
 	#0001 .File/length DEO2
 	;&buf
-	&stream
+	&stream ( -- )
 		DUP2 .File/read DEO2
 		.File/success DEI2 #0000 EQU2 ?&eof
-		LDAk append
-		!&stream &eof
-	POP2
-	( pad )
-	.queue LDZ #00 EQU ?&no-pad
-		#00 append
-		&no-pad
+		LDAk append !&stream
+	&eof POP2
+	( | pad )
+	.queue LDZ #00 EQU ?&>no-pad
+		#00 append &>no-pad
 	#0a18 DEO
 	#010f DEO
-BRK
-	&buf $1
+	BRK &buf $1
 
 (
 @|core )
@@ -38,30 +40,34 @@ BRK
 @append ( byte -- )
 	,&buf STR
 	#0800
-	&l
-		[ LIT &buf $1 ] OVR #07 SWP SUB SFT #01 AND
-		[ LIT &inc $1 ] INCk #06 DIVk MUL SUB ,&inc STR
-		( bit id -- )
-		SWP .queue LDZ ORA DUP ADD .queue STZ
-		#05 NEQ ?&no-cap
-			[ LIT2 00 -queue ]
-				DUP2 LDZ #01 SFT ;MIME ADD2 LDA #18 DEO
-				STZ
-			&no-cap
+	&l ( -- )
+		( ) [ LIT &buf $1 ] OVR #07 SWP SUB SFT #01 AND
+		( ) [ LIT &inc $1 ] INCk #06 DIVk MUL SUB ,&inc STR
+		( bit id -- ) SWP .queue LDZ ORA DUP ADD .queue STZ
+		#05 NEQ ?&>no-cap
+			[ LIT2 00 -queue ] DUP2 LDZ #01 SFT ;MIME ADD2 LDA #18 DEO
+			STZ &>no-cap
 		INC GTHk ?&l
-	POP2
-JMP2r
+	POP2 JMP2r
 
-@MIME [
-	"ABCDEFGHIJKLMNOP
-	"QRSTUVWXYZabcdef
-	"ghijklmnopqrstuv
-	"wxyz0123456789+/ ]
+@MIME
+	[ "ABCDEFGHIJKLMNOP "QRSTUVWXYZabcdef "ghijklmnopqrstuv "wxyz0123456789+/ ]
 
 (
 @|stdlib )
 
-@skey ( key buf -- proc ) OVR #21 LTH ?&eval #00 SWP sput #00 JMP2r &eval POP2 #01 JMP2r
-@scap ( str* -- end* ) LDAk #00 NEQ [ JMP JMP2r ] &w INC2 LDAk ?&w JMP2r
-@sput ( chr str* -- ) scap INC2k #00 ROT ROT STA STA JMP2r
+@skey ( key buf -- proc )
+	OVR #21 LTH ?&eval
+	#00 SWP sput #00 JMP2r
+	&eval POP2 #01 JMP2r
+
+@scap ( str* -- end* )
+	!&a
+	&w ( -- )
+		INC2 &a LDAk ?&w
+	JMP2r
+
+@sput ( chr str* -- )
+	scap ROT #00 SWP2 STA2
+	JMP2r
 
diff --git a/cli/hx/hx.tal b/cli/hx/hx.tal
index f21ea26..594ce2f 100644
--- a/cli/hx/hx.tal
+++ b/cli/hx/hx.tal
@@ -1,5 +1,4 @@
-(
-	uxncli hx.rom file.bin )
+( uxncli hx.rom file.bin )
 
 |10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1
 |a0 @File &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2
@@ -11,13 +10,12 @@
 |0100
 
 @on-reset ( -> )
-	.Console/type DEI ?&on-arg
-	;Dict/usage <perr>
-	#010f DEO
+	.Console/type DEI ?&>has-arg
+		;Dict/usage <perr>
+		#010f DEO
+		BRK &>has-arg
+	;await-src .Console/vector DEO2
 	BRK
-	&on-arg ( -> )
-		;await-src .Console/vector DEO2
-		BRK
 
 @await-src ( -> )
 	.Console/read DEI .src skey ?on-ready
@@ -39,13 +37,12 @@
 		BRK
 
 @<print-spacer> ( id -- )
-	DUP #0f AND ?&no-lb
-	POP #0a18 DEO
+	DUP #0f AND ?&>no-lb
+		POP #0a18 DEO
+		JMP2r &>no-lb
+	#01 AND ?&>end
+		#2018 DEO &>end
 	JMP2r
-	&no-lb ( id -- )
-		#01 AND ?&end
-		#2018 DEO
-		&end JMP2r
 
 (
 @|stdlib )
diff --git a/cli/proquints/proquints.tal b/cli/proquints/proquints.tal
index 891b8f0..2d68fef 100644
--- a/cli/proquints/proquints.tal
+++ b/cli/proquints/proquints.tal
@@ -3,54 +3,69 @@
 |10 @Console &vector $2 &read $1 &pad $5 &write $1 &error $1
 |a0 @File &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2
 
-|0000 @src $40 @queue $1
+|0000
 
-|0100 ( -> )
+	@src $40
+	@queue $1
+
+|0100
+
+@on-reset ( -> )
 	;await-src .Console/vector DEO2
-BRK
+	BRK
 
 @await-src ( -> )
 	.Console/read DEI .src skey ?on-ready
-BRK
+	BRK
 
 @on-ready ( -> )
 	;src .File/name DEO2
 	#0002 .File/length DEO2
 	;&buf
-	&stream
+	&stream ( -- )
 		DUP2 .File/read DEO2
 		.File/success DEI2 #0000 EQU2 ?&eof
-		LDA2k proquint
-		!&stream &eof
-	POP2
-	#0a18 DEO
+		LDA2k proquint !&stream
+	&eof POP2 #0a18 DEO
 	#010f DEO
-BRK
-	&buf $2
+	BRK &buf $2
 
 (
 @|core )
 
 @proquint ( short* -- )
-
 	( c1 ) DUP2 #0c emit-con
 	( v1 ) DUP2 #0a emit-vow
 	( c2 ) DUP2 #06 emit-con
 	( v2 ) DUP2 #03 emit-vow
-	( c3 ) #00 emit-con
-	#20 &emit ( c -- ) #18 DEO
+	( c3 ) #00 emit-con #20
+	&emit ( c -- )
+		#18 DEO
+		JMP2r
 
-JMP2r
+@emit-con
+	SFT2 #000f AND2 ;&con ADD2 LDA !proquint/emit
+	&con [ "bdfghjklmnprstvz ]
 
-@emit-con SFT2 #000f AND2 ;&con ADD2 LDA !proquint/emit
-	&con "bdfghjklmnprstvz
-@emit-vow SFT2 #0003 AND2 ;&vow ADD2 LDA !proquint/emit
-	&vow "aiou
+@emit-vow
+	SFT2 #0003 AND2 ;&vow ADD2 LDA !proquint/emit
+	&vow [ "aiou ]
 
 (
 @|stdlib )
 
-@skey ( key buf -- proc ) OVR #21 LTH ?&eval #00 SWP sput #00 JMP2r &eval POP2 #01 JMP2r
-@scap ( str* -- end* ) LDAk #00 NEQ [ JMP JMP2r ] &w INC2 LDAk ?&w JMP2r
-@sput ( chr str* -- ) scap INC2k #00 ROT ROT STA STA JMP2r
+@skey ( key buf -- proc )
+	OVR #21 LTH ?&eval
+	#00 SWP sput #00 JMP2r
+	&eval POP2 #01 JMP2r
+
+@scap ( str* -- end* )
+	LDAk #00 NEQ [ JMP JMP2r ]
+	&w ( -- )
+		INC2 LDAk ?&w
+	JMP2r
+
+@sput ( chr str* -- )
+	scap ROT #00 SWP2 STA2
+	JMP2r
 
diff --git a/gui/meta/meta.tal b/gui/meta/meta.tal
index 5cfc77b..398febb 100644
--- a/gui/meta/meta.tal
+++ b/gui/meta/meta.tal
@@ -9,235 +9,219 @@
 
 	@src $40
 
-|0100 ( -> )
+|0100
 
-	( meta )
+@on-reset ( -> )
 	;meta #06 DEO2
-
 	#960f .System/r DEO2
 	#a70f .System/g DEO2
 	#a70f .System/b DEO2
-
 	#0150 .Screen/width DEO2
 	#0050 .Screen/height DEO2
-
 	;await-src .Console/vector DEO2
-	;dict/input pstr
+	;dict/input <pstr>
+	BRK
 
-BRK
-
-@meta 00
+@meta
+	00
 	( name ) "Meta 0a
 	( details ) "A 20 "ROM 20 "metadata 20 "viewer 0a
 	( author ) "By 20 "Devine 20 "Lu 20 "Linvega 0a
-	( date ) "Apr 20 "4, 20 "2023 00
-	01
-		( icon ) 83 =appicon
+	( date ) "Apr 20 "4, 20 "2023 00 01
+	( icon ) 83 =appicon
 
 (
 @|vectors )
 
 @await-src ( -> )
-
-	.Console/read DEI .src skey
-		?on-ready
-
-BRK
+	.Console/read DEI .src skey ?on-ready
+	BRK
 
 @on-ready ( -> )
-
-	;src
-		DUP2 pstr #0a18 DEO
-		has-metadata
-			?&on-metadata
-
-	#004c .Screen/x DEO2
-	#0024 .Screen/y DEO2
-
-	;dict/empty draw-txt POP2
-
-BRK
-
-&on-metadata ( -> )
-
-	load-metadata
-	;metadata/body pstr #0a18 DEO
-	draw-metadata
-
-BRK
+	;src DUP2 <pstr>
+	#0a18 DEO
+	has-metadata ?&>has-metadata
+		#004c .Screen/x DEO2
+		#0024 .Screen/y DEO2
+		;dict/empty <draw-txt>
+		POP2 BRK &>has-metadata
+	load-metadata ;metadata/body <pstr>
+	#0a18 DEO
+	<draw-metadata>
+	BRK
 
 (
 @|core )
 
 @has-metadata ( src* -- bool )
-
 	.File/name DEO2
 	#0006 .File/length DEO2
 	;metadata/header .File/read DEO2
-	;metadata/deo LDA2 #0637 EQU2
-
-JMP2r
+	;metadata/deo LDA2 #0637 EQU2 JMP2r
 
 @load-metadata ( -- )
-
 	;metadata/start LDA2 #0100 SUB2 seek
-
-	( version )
+	( | version )
 	#0001 .File/length DEO2
 	;metadata/version .File/read DEO2
-
-	( body )
+	( | body )
 	LIT2r =metadata/body
-	&s
-		STH2kr
-			DUP2 .File/read DEO2
-			INC2r LDA ?&s
+	&s ( -- )
+		STH2kr DUP2 .File/read DEO2
+		INC2r LDA ?&s
 	POP2r
-
-	( fields )
-	;metadata/fields
-		DUP2 .File/read DEO2
-		LDAk #03 MUL #00 SWP .File/length DEO2
-		INC2 .File/read DEO2
-
-JMP2r
+	( | fields )
+	;metadata/fields DUP2 .File/read DEO2
+	LDAk #03 MUL #00 SWP .File/length DEO2
+	INC2 .File/read DEO2
+	JMP2r
 
 (
 @|drawing )
 
-@draw-metadata ( -- )
-
+@<draw-metadata> ( -- )
 	#004c .Screen/x DEO2
 	#0012 .Screen/y DEO2
-	;metadata/body draw-txt POP2
-	( find picture )
-	;metadata/fields LDAk LITr 00 STH
-	INC2 DUP2 STH2r ADD2 SWP2
-	&l
-		LDAk #83 NEQ ?&no-pict
-			INC2k LDA2 #0100 SUB2 draw-icon
-			&no-pict
+	;metadata/body <draw-txt>
+	POP2
+	( | find picture )
+	;metadata/fields LDAk LITr 00 STH INC2 DUP2 STH2r ADD2 SWP2
+	&l ( -- )
+		LDAk #83 NEQ ?&>no-pict
+			INC2k LDA2 #0100 SUB2 <draw-icon> &>no-pict
 		INC2 GTH2k ?&l
-	POP2 POP2
+	POP2 POP2 JMP2r
 
-JMP2r
-
-@draw-icon ( location* -- )
-
-	seek
-	#0090 .File/length DEO2
-	;metadata/icon
-		DUP2 .File/read DEO2
-		.Screen/addr DEO2
+@<draw-icon> ( location* -- )
+	seek #0090 .File/length DEO2
+	;metadata/icon DUP2 .File/read DEO2
+	.Screen/addr DEO2
 	[ LIT2 26 -Screen/auto ] DEO
-	#001c
-		DUP2 .Screen/x DEO2
-		.Screen/y DEO2
-	[ LIT2 81 -Screen/sprite ] DEOk DEOk DEO
-
-JMP2r
-
-@draw-txt ( txt* -- end* )
+	#001c DUP2 .Screen/x DEO2
+	.Screen/y DEO2
+	[ LIT2 81 -Screen/sprite ] DEOk
+	DEOk
+	DEO
+	JMP2r
 
+@<draw-txt> ( txt* -- end* )
 	[ LIT2 01 -Screen/auto ] DEO
 	.Screen/x DEI2 ,&anchor STR2
-	&w
+	&w ( -- )
 		LDAk #20 SUB #00 SWP #30 SFT2 ;font ADD2 .Screen/addr DEO2
 		[ LIT2 02 -Screen/sprite ] DEO
-		LDAk #0a NEQ ?&no-lb
+		LDAk #0a NEQ ?&>no-lb
 			[ LIT2 &anchor $2 ] .Screen/x DEO2
-			.Screen/y DEI2k #000c ADD2 ROT DEO2
-			&no-lb
+			.Screen/y DEI2k #000c ADD2 ROT DEO2 &>no-lb
 		INC2 LDAk ?&w
-
-JMP2r
+	JMP2r
 
 (
 @|stdlib )
 
 @seek ( length* -- )
-
 	.File/name DEI2k ROT DEO2
 	#0000 INC2k .File/length DEO2
-	&l
+	&l ( -- )
 		;&b .File/read DEO2
 		INC2 GTH2k ?&l
-	POP2 POP2
-
-JMP2r
+	POP2 POP2 JMP2r
 	&b $1
 
-@scap ( str* -- end* ) LDAk ?&w [ JMP2r ] &w INC2 LDAk ?&w JMP2r
-@sput ( chr str* -- ) scap STA JMP2r
-@skey ( key buf -- proc ) OVR #21 LTH ?&eval #00 SWP sput #00 JMP2r &eval POP2 #01 JMP2r
-@pstr ( str* -- ) &w LDAk #18 DEO INC2 LDAk ?&w POP2 JMP2r
+@scap ( str* -- end* )
+	!&a
+	&w ( -- )
+		INC2 &a LDAk ?&w
+	JMP2r
+
+@sput ( chr str* -- )
+	scap STA
+	JMP2r
+
+@skey ( key buf -- proc )
+	OVR #21 LTH ?&eval
+	#00 SWP sput #00 JMP2r
+	&eval POP2 #01 JMP2r
+
+@<pstr> ( str* -- )
+	&w ( -- )
+		LDAk #18 DEO
+		INC2 LDAk ?&w
+	POP2 JMP2r
 
 (
 @|assets )
 
-@dict
-	&input "Input(.tal): 20 $1
+@dict &input "Input(.tal): 20 $1
 	&empty "Metadata 20 "Missing $1
 
-@appicon ( 3x3 ) [
-0000 3f20 2020 2020 ffff ffff ffff ffff 0000 ff18 0000 0000 ffff ffff ffff ffff
-0000 fc04 0404 0404 ffff ffff ffff ffff 2020 2030 3020 2020 ffff ffff ffff ffff
-0000 0000 0000 0000 ffff ffff ffff ffff 0404 040c 0c04 0404 ffff ffff ffff ffff
-2020 2020 203f 0000 ffff ffff ffff ffff 0000 0000 18ff 0000 ffff ffff ffff ffff
-0404 0404 04fc 0000 ffff ffff ffff ffff ]
+@appicon ( 3x3 )
+	[
+	0000 3f20 2020 2020 ffff ffff ffff ffff
+	0000 ff18 0000 0000 ffff ffff ffff ffff
+	0000 fc04 0404 0404 ffff ffff ffff ffff
+	2020 2030 3020 2020 ffff ffff ffff ffff
+	0000 0000 0000 0000 ffff ffff ffff ffff
+	0404 040c 0c04 0404 ffff ffff ffff ffff
+	2020 2020 203f 0000 ffff ffff ffff ffff
+	0000 0000 18ff 0000 ffff ffff ffff ffff
+	0404 0404 04fc 0000 ffff ffff ffff ffff ]
 
-@font ( atari8 ) [
-0000 0000 0000 0000 6060 6060 6000 6000
-6666 6600 0000 0000 006c fe6c 6cfe 6c00
-183e 603c 067c 1800 0066 6c18 3066 4600
-386c 3870 decc 7600 6060 6000 0000 0000
-1c30 3030 3030 1c00 380c 0c0c 0c0c 3800
-0066 3cff 3c66 0000 0018 187e 1818 0000
-0000 0000 0030 3060 0000 007e 0000 0000
-0000 0000 0018 1800 0306 0c18 3060 c000
-3c66 6e76 6666 3c00 1838 1818 1818 7e00
-3c66 060c 1830 7e00 7e0c 180c 0666 3c00
-0c1c 3c6c 7e0c 0c00 7e60 7c06 0666 3c00
-3c60 607c 6666 3c00 7e06 0c18 3030 3000
-3c66 663c 6666 3c00 3c66 663e 060c 3800
-0018 1800 0018 1800 0018 1800 1818 3000
-0c18 3060 3018 0c00 0000 7e00 007e 0000
-3018 0c06 0c18 3000 3c66 060c 1800 1800
-3c66 6e6a 6e60 3e00 183c 6666 7e66 6600
-7c66 667c 6666 7c00 3c66 6060 6066 3c00
-786c 6666 666c 7800 7e60 607c 6060 7e00
-7e60 607c 6060 6000 3e60 606e 6666 3e00
-6666 667e 6666 6600 3c18 1818 1818 3c00
-3e06 0606 0666 3c00 666c 7870 786c 6600
-6060 6060 6060 7e00 c6ee fed6 c6c6 c600
-6676 7e7e 6e66 6600 3c66 6666 6666 3c00
-7c66 667c 6060 6000 3c66 6666 766c 3600
-7c66 667c 6c66 6600 3c66 603c 0666 3c00
-7e18 1818 1818 1800 6666 6666 6666 3e00
-6666 6666 663c 1800 c6c6 c6d6 feee c600
-6666 3c18 3c66 6600 6666 663c 1818 1800
-7e06 0c18 3060 7e00 3c30 3030 3030 3c00
-c060 3018 0c06 0300 3c0c 0c0c 0c0c 3c00
-1038 6cc6 0000 0000 0000 0000 0000 fe00
-0060 3018 0000 0000 0000 3c06 3e66 3e00
-6060 7c66 6666 7c00 0000 3c60 6060 3c00
-0606 3e66 6666 3e00 0000 3c66 7e60 3c00
-1c30 7c30 3030 3000 0000 3e66 663e 067c
-6060 7c66 6666 6600 1800 3818 1818 3c00
-1800 1818 1818 1870 6060 666c 786c 6600
-3818 1818 1818 3c00 0000 ecfe d6c6 c600
-0000 7c66 6666 6600 0000 3c66 6666 3c00
-0000 7c66 6666 7c60 0000 3e66 6666 3e06
-0000 7c66 6060 6000 0000 3e60 3c06 7c00
-0018 7e18 1818 0e00 0000 6666 6666 3e00
-0000 6666 663c 1800 0000 c6c6 d67c 6c00
-0000 663c 183c 6600 0000 6666 663e 067c
-0000 7e0c 1830 7e00 1c30 3060 3030 1c00
-1818 1818 1818 1818 380c 0c06 0c0c 3800
-0000 60f2 9e0c 0000 3c42 9985 8599 423c ]
+@font ( atari8 )
+	[
+	0000 0000 0000 0000 6060 6060 6000 6000
+	6666 6600 0000 0000 006c fe6c 6cfe 6c00
+	183e 603c 067c 1800 0066 6c18 3066 4600
+	386c 3870 decc 7600 6060 6000 0000 0000
+	1c30 3030 3030 1c00 380c 0c0c 0c0c 3800
+	0066 3cff 3c66 0000 0018 187e 1818 0000
+	0000 0000 0030 3060 0000 007e 0000 0000
+	0000 0000 0018 1800 0306 0c18 3060 c000
+	3c66 6e76 6666 3c00 1838 1818 1818 7e00
+	3c66 060c 1830 7e00 7e0c 180c 0666 3c00
+	0c1c 3c6c 7e0c 0c00 7e60 7c06 0666 3c00
+	3c60 607c 6666 3c00 7e06 0c18 3030 3000
+	3c66 663c 6666 3c00 3c66 663e 060c 3800
+	0018 1800 0018 1800 0018 1800 1818 3000
+	0c18 3060 3018 0c00 0000 7e00 007e 0000
+	3018 0c06 0c18 3000 3c66 060c 1800 1800
+	3c66 6e6a 6e60 3e00 183c 6666 7e66 6600
+	7c66 667c 6666 7c00 3c66 6060 6066 3c00
+	786c 6666 666c 7800 7e60 607c 6060 7e00
+	7e60 607c 6060 6000 3e60 606e 6666 3e00
+	6666 667e 6666 6600 3c18 1818 1818 3c00
+	3e06 0606 0666 3c00 666c 7870 786c 6600
+	6060 6060 6060 7e00 c6ee fed6 c6c6 c600
+	6676 7e7e 6e66 6600 3c66 6666 6666 3c00
+	7c66 667c 6060 6000 3c66 6666 766c 3600
+	7c66 667c 6c66 6600 3c66 603c 0666 3c00
+	7e18 1818 1818 1800 6666 6666 6666 3e00
+	6666 6666 663c 1800 c6c6 c6d6 feee c600
+	6666 3c18 3c66 6600 6666 663c 1818 1800
+	7e06 0c18 3060 7e00 3c30 3030 3030 3c00
+	c060 3018 0c06 0300 3c0c 0c0c 0c0c 3c00
+	1038 6cc6 0000 0000 0000 0000 0000 fe00
+	0060 3018 0000 0000 0000 3c06 3e66 3e00
+	6060 7c66 6666 7c00 0000 3c60 6060 3c00
+	0606 3e66 6666 3e00 0000 3c66 7e60 3c00
+	1c30 7c30 3030 3000 0000 3e66 663e 067c
+	6060 7c66 6666 6600 1800 3818 1818 3c00
+	1800 1818 1818 1870 6060 666c 786c 6600
+	3818 1818 1818 3c00 0000 ecfe d6c6 c600
+	0000 7c66 6666 6600 0000 3c66 6666 3c00
+	0000 7c66 6666 7c60 0000 3e66 6666 3e06
+	0000 7c66 6060 6000 0000 3e60 3c06 7c00
+	0018 7e18 1818 0e00 0000 6666 6666 3e00
+	0000 6666 663c 1800 0000 c6c6 d67c 6c00
+	0000 663c 183c 6600 0000 6666 663e 067c
+	0000 7e0c 1830 7e00 1c30 3060 3030 1c00
+	1818 1818 1818 1818 380c 0c06 0c0c 3800
+	0000 60f2 9e0c 0000 3c42 9985 8599 423c ]
 
-@metadata
-	&header $1 &start $3 &deo $2 &version $1
+@metadata &header $1
+	&start $3
+	&deo $2
+	&version $1
 	&body $100
 	&fields $100
 	&icon $90