diff --git a/cli/uxndis/src/uxndis.tal b/cli/uxndis/src/uxndis.tal
index b8b5bd2..af9d517 100644
--- a/cli/uxndis/src/uxndis.tal
+++ b/cli/uxndis/src/uxndis.tal
@@ -1,5 +1,8 @@
+( uxncli uxndis.rom input.rom )
+
 |10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1
 |a0 @File &vector $2 &success $1 &success-lb $1 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2
+
 |000
 
 	@src $40
@@ -43,8 +46,7 @@
 		;&b .File/read DEO2
 		[ LIT2 00 -File/success-lb ] DEI EQU ?{
 			[ LIT &b $1 ] [ LIT2 &ptr =rom ] INC2k ,&ptr STR2
-			STA
-			!&>stream }
+			STA !&>stream }
 	JMP2r
 
 @<load-sym> ( src* -- )
@@ -68,7 +70,7 @@
 	JMP2r
 
 @<print-address> ( addr* -- )
-	<phex>
+	#0100 ADD2 <phex>
 	[ LIT2 ": 18 ] DEO
 	#03 !<print-pad>
 
@@ -135,8 +137,7 @@
 	SWP2 ;rom SUB2 #0103 ADD2 OVR2 ADD2 find-sym
 	( ) INC2k ORA ?{
 		POP2 OVR #80 AND ?<pdec>
-		[ LIT2 "+ 18 ] DEO
-		!<pdec> }
+		[ LIT2 "+ 18 ] DEO !<pdec> }
 	NIP2 !<pstr>
 
 @<print-pad> ( count -- )
@@ -165,6 +166,7 @@
 		#8000 SWP2 SUB2 #7fff AND2 }
 	[ LIT2 00 _&z ] STR
 	#2710 /p #03e8 /p #0064 /p #000a /p NIP !<pnum>
+
 	&p ( -- )
 	DIV2k DUPk [ LIT &z $1 ] EQU ?{
 		DUP <pnum>
@@ -199,7 +201,7 @@
 	( name ) "Uxndis 0a
 	( desc ) "Uxntal 20 "Disassembler 0a
 	( auth ) "By 20 "Devine 20 "Lu 20 "Linvega 0a
-	( date ) "11 20 "Jun 20 "2024 $2
+	( date ) "21 20 "Jul 20 "2024 $2
 
 @opcodes [
 	"LIT 00 "INC 00 "POP 00 "NIP 00
@@ -213,7 +215,8 @@
 	&brk "BRK 00 &jci "JCI 00 &jmi "JMI
 	00 &jsi "JSI 00 ]
 
-@dict &usage "usage: 20 "uxndis.rom 20 "input.rom 0a $1
+@dict
+	&usage "usage: 20 "uxndis.rom 20 "input.rom 0a $1
 
 @rom $8000
 
diff --git a/gui/notepad/src/notepad.tal b/gui/notepad/src/notepad.tal
index fbe822c..9beb49e 100644
--- a/gui/notepad/src/notepad.tal
+++ b/gui/notepad/src/notepad.tal
@@ -6,6 +6,7 @@
 |80 @Controller &vector $2 &button $1 &key $1
 |90 @Mouse &vector $2 &x $1 &lx $1 &y $1 &ly $1 &state $1 &chord $1
 |a0 @File &vector $2 &success $1 &success-lb $1 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2
+
 |000
 
 	@page $1
@@ -37,7 +38,7 @@
 	( name ) "Note 20 "Pad 0a
 	( details ) "Original 20 "by 20 "Donn 20 "Denman 0a
 	( author ) "By 20 "Devine 20 "Lu 20 "Linvega 0a
-	( date ) "12 20 "Jun, 20 "2024 $1
+	( date ) "21 20 "Jul 20 "2024 $1
 	( fields ) 01
 	( > icon ) 83 =appicon
 
@@ -101,8 +102,7 @@
 	<draw-header>
 	( release on close button ) .Mouse/state DEI ?&unchanged
 	.Mouse/x DEI2 #0008 SUB2 #000a GTH2 ?&unchanged
-	( exit ) #800f DEO
-	&unchanged BRK
+	( exit ) #800f DEO &unchanged BRK
 
 @on-mouse-body ( -> )
 	<trap-mouse>
@@ -130,8 +130,7 @@
 		#01 <set-pixel>
 		<draw-sketch> }
 	DUP #01 NEQ ?{
-		( release/drag mouse1 )
-		( from* ) [ LIT2 &x1 $2 ] [ LIT2 &y1 $2 ]
+		( release/drag mouse1 ) ( from* ) [ LIT2 &x1 $2 ] [ LIT2 &y1 $2 ]
 		( to ) .Mouse/x DEI2 DUP2 ,&x1 STR2
 		.Mouse/y DEI2 #0012 SUB2 DUP2 ,&y1 STR2
 		( paint ) #01 <paint-line>
@@ -148,10 +147,12 @@
 	( | continue )
 	[ LIT2 00 -Mouse/state ] DEI NEQ .Mouse/x DEI2 #0018 LTH2 AND ?&down
 	BRK
+
 	&down ( -> )
 	[ LIT2 00 -Mouse/state ] DEO
 	.Mouse/y DEI2 #00da SUB2 NIP [ LIT2 18 -Mouse/lx ] DEI SUB ADD #18 LTH ?&go-next
-	prev-page BRK &go-next next-page BRK
+	prev-page BRK
+	&go-next next-page BRK
 
 @on-frame ( -> )
 	[ LIT2 &last $1 &f $1 ] INCk ,&f STR
@@ -170,25 +171,21 @@
 	DUP #0d EQU #03 MUL SUB .selection/length LDZ2 #0000 EQU2 ?{ erase-selection }
 	get-from STH2k #0001 SUB2 get-eof #0001 <msfr>
 	STH2kr STA
-	STH2r INC2 <select-from>
-	!file-save
+	STH2r INC2 <select-from> !file-save
 
 @erase ( -- )
 	#00 ;on-frame/f STA
 	.selection/length LDZ2 #0000 EQU2 ?{ erase-selection !<select-reset> }
-	get-from get-page NEQ2 [ JMP JMP2r ] get-from #0001 SUB2 DUP2 cut-char <select-from>
-	!file-save
+	get-from get-page NEQ2 [ JMP JMP2r ] get-from #0001 SUB2 DUP2 cut-char <select-from> !file-save
 
 @erase-selection ( -- )
-	get-from get-eof .selection/length LDZ2 <msfl>
-	!file-save
+	get-from get-eof .selection/length LDZ2 <msfl> !file-save
 
 @delete ( -- )
 	#00 ;on-frame/f STA
 	.selection/length LDZ2 ORA ?{
 		get-from INC2k get-eof NEQ2 ?{ POP2 JMP2r }
-		cut-char <redraw>
-		!file-save }
+		cut-char <redraw> !file-save }
 	erase-selection !<select-reset>
 
 @get-eof ( -- addr* )
@@ -206,8 +203,8 @@
 	POP2 !<update-cursor>
 
 @erase-sketch ( -- )
-	;&mcpy .System/expansion DEO2
-	!<redraw>
+	;&mcpy .System/expansion DEO2 !<redraw>
+
 	&mcpy [ 00 1500 0000 =sketch 00 ]
 
 @get-row ( x* y* -- row* )
@@ -289,13 +286,11 @@
 
 @<select-from> ( addr* -- )
 	clamp-selection DUP2 .selection/a STZ2
-	.selection/b STZ2
-	!select
+	.selection/b STZ2 !select
 
 @<select-to> ( addr* -- )
 	clamp-selection DUP2 .selection/b LDZ2 NEQ2 ?{ POP2 JMP2r }
-	.selection/b STZ2
-	!select
+	.selection/b STZ2 !select
 
 @<select-word> ( addr* -- )
 	DUP2
@@ -306,15 +301,13 @@
 		INC2 LDAk #20 GTH ?&>next
 	OVR2 OVR2 is-selection ?{
 		.selection/b STZ2
-		.selection/a STZ2
-		!select }
+		.selection/a STZ2 !select }
 	POP2
 	( >> )
 
 @<select-line> ( addr* -- )
 	DUP2 find-line-start .selection/a STZ2
-	find-line-end .selection/b STZ2
-	!select
+	find-line-end .selection/b STZ2 !select
 
 @<select-all> ( -- )
 	get-page DUP2 .selection/a STZ2
@@ -323,8 +316,7 @@
 
 @select ( -- )
 	get-to get-from SUB2 .selection/length STZ2
-	#00 ;on-frame/f STA
-	!<redraw>
+	#00 ;on-frame/f STA !<redraw>
 
 @<select-left> ( -- )
 	.selection/length LDZ2 #0000 EQU2 [ LIT2 04 -Controller/button ] DEI AND #00 NEQ ORA ?{ get-from !<select-from> }
@@ -373,6 +365,7 @@
 		#20 STH2r STA
 		INC GTHk ?&>l
 	POP2 JMP2r
+
 	&mcpy [ 01 0100 0000 =placeholder 0000 =mem ]
 
 @file-save ( -- )
@@ -405,8 +398,7 @@
 	get-from STH2r ADD2 !<select-from>
 
 @edit-cut ( -- )
-	.selection/length LDZ2 #0001 GTH2 [ JMP JMP2r ] edit-copy erase-selection <select-reset>
-	!file-save
+	.selection/length LDZ2 #0001 GTH2 [ JMP JMP2r ] edit-copy erase-selection <select-reset> !file-save
 
 @edit-copy ( -- )
 	.selection/length LDZ2 #0001 GTH2 [ JMP JMP2r ] ;snarf-path .File/name DEO2
@@ -466,8 +458,7 @@
 	&>walk-char ( -- )
 		.Screen/x DEI2 [ LIT2 &x $2 ] GTH2 ?&end-char
 		walk-char ?&end-char
-		INC2 LDAk ?&>walk-char
-	&end-char JMP2r
+		INC2 LDAk ?&>walk-char &end-char JMP2r
 
 @walk-char ( addr* -- addr* lb )
 	( | wrap )
@@ -481,6 +472,7 @@
 	( lb line ) DUP2 #013e NEQ2 ?{ POP2 #01 #0011 !<draw-linebreak> }
 	( lb caret ) DUP2 #012d NEQ2 ?{ POP2 #01 #0012 !<draw-linebreak> }
 	POP2 #01 #0008 !<draw-linebreak>
+
 	&no-wrap ( char )
 	LDAk char-width .Screen/x DEI2 ADD2 .Screen/x DEO2
 	( | tab )
@@ -520,30 +512,26 @@
 	;mem #0001 SUB2 SWP2
 	&>l ( -- )
 		#0001 SUB2 LDAk DUP #0a EQU SWP #00 EQU ORA ?&end
-		LTH2k ?&>l
-	&end NIP2 INC2 JMP2r
+		LTH2k ?&>l &end NIP2 INC2 JMP2r
 
 @find-line-end ( addr* -- addr* )
 	get-eof SWP2
 	&>l ( -- )
 		LDAk #0a EQU ?&end
 		LDAk #00 EQU ?&end
-		INC2 GTH2k ?&>l
-	&end NIP2 JMP2r
+		INC2 GTH2k ?&>l &end NIP2 JMP2r
 
 @find-word-start ( addr* -- addr* )
 	;mem SWP2
 	&>l ( -- )
 		#0001 SUB2 LDAk #21 LTH ?&end
-		LTH2k ?&>l
-	&end NIP2 INC2 JMP2r
+		LTH2k ?&>l &end NIP2 INC2 JMP2r
 
 @find-word-end ( addr* -- addr* )
 	get-eof SWP2
 	&>l ( -- )
 		LDAk #21 LTH ?&end
-		INC2 GTH2k ?&>l
-	&end NIP2 JMP2r
+		INC2 GTH2k ?&>l &end NIP2 JMP2r
 
 (
 @|drawing )
@@ -586,8 +574,7 @@
 	#0000 .Screen/x DEO2
 	#0018 .Screen/y DEO2
 	[ LIT2 80 -Screen/pixel ] DEO
-	<draw-note>
-	!<draw-footer>
+	<draw-note> !<draw-footer>
 
 @<draw-note> ( -- )
 	[ LIT2 00 -collapsed ] LDZ EQU ?{ JMP2r }
@@ -612,8 +599,7 @@
 		;on-frame/last LDA #01 AND ?&block
 		;blink-icn .Screen/addr DEO2
 		[ LIT2 05 -Screen/sprite ] DEO
-		.Screen/x DEI2k #0008 SUB2 ROT DEO2
-		&block walk-char POP INC2 LDAk ?&>w
+		.Screen/x DEI2k #0008 SUB2 ROT DEO2 &block walk-char POP INC2 LDAk ?&>w
 	POP2
 	( >> )
 
@@ -701,8 +687,7 @@
 @|stdlib )
 
 @scap ( str* -- end* )
-	&>w ( -- )
-		INC2 & LDAk ?&>w
+	INC2 & LDAk ?scap
 	JMP2r
 
 @<phex> ( short* -: )