( 54K . Dave, Dave, Dave.. )

|00 @System &vector $2 &expansion $2 &wst $1 &rst $1 &metadata $2 &r $2 &g $2 &b $2 &debug $1 &state $1
|10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1
|20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1
|80 @Controller/vector $2 &button $1 &key $1
|90 @Mouse &vector $2 &x $2 &y $2 &state $1 &chord $1 &pad $4 &scrolly &scrolly-hb $1 &scrolly-lb $1
|a0 @File &vector $2 &success $1 &success-lb $1 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2
|004f @Varvara/version
|2000 @buffer/buflen

|000

	@hex/active $1
	@thru/active $1

|100

@on-reset ( -> )
	;meta #06 DEO2
	theme/<load>
	( | size )
	#0190 .Screen/width DEO2
	#0028 .Screen/height DEO2
	buffer/<redraw>
	;on-mouse .Mouse/vector DEO2
	;on-console .Console/vector DEO2
	;on-button .Controller/vector DEO2
	;on-screen .Screen/vector DEO2
	BRK

@meta $1
	( name ) "Logger 0a
	( desc ) "Log 20 "Viewer 0a
	( auth ) "By 20 "Devine 20 "Lu 20 "Linvega 0a
	( date ) "19 20 "Sep 20 "2026 00
	( . ) 02
	( - ) 56 =Varvara/version
	( - ) 83 =appicon
	( - ) a0 =manifest/dat

@manifest/dat ( . )
	_{ =dict/logger
	( - ) 00 1b =buffer/<clear> =dict/clear
	( - ) 00 09 =hex/<toggle> =dict/toggle }
	( ) $1

%Screen/<set-pos> ( x* y* -- ) {
	.Screen/y DEO2
	.Screen/x DEO2 }

@on-console ( -> )
	.Console/read DEI buffer/<append>
	#01 ;on-screen/reqdraw STA
	BRK

@on-screen ( -> )
	[ LIT &reqdraw $1 ] DUP ?{ POP BRK }
	DUP #01 NEQ ?{ buffer/<redraw> }
	#01 SUB ,&reqdraw STR
	BRK

@on-mouse ( -> )
	cursor/<update>
	[ LIT2 &last $1 -Mouse/state ] DEI DUP ,&last STR
	#0001 EQU2 ?{ BRK }
	.Mouse/x DEI2 #0010 LTH2 ?{ thru/<toggle>
		BRK }
	hex/<toggle-clear>
	BRK

@on-button ( -> )
	.Controller/button DEI2 manifest/scan INC2k ORA ?{ POP2 BRK }
	( * ) JSR2 BRK

(
@|Buffer )

@buffer/<reqdraw> ( -- )
	#08 ;on-screen/reqdraw STA
	JMP2r

@buffer/<rescale> ( -- )
	.Screen/height DEI2 #04 SFT2 NIP ;&buf /count-lines EQUk ?{
		( min ) #03 GTHk [ JMP SWP POP ]
		( scale ) #00 OVR #40 SFT2 #0008 ADD2 .Screen/height DEO2 }
	POP2 JMP2r

@buffer/count-lines ( buf* -- lines )
	.hex/active LDZ ?/hex
	[ LITr 00 ]
	&>wcl
		LDAk #20 GTH ?{
			INC2k word-fits ?{ INCr !/res } }
		LDAk #0a NEQ ?{ INCr !/res } &res INC2 LDAk ?/>wcl
	POP2 INCr STHr JMP2r
	&hex ,&ptr LDR2 SWP2 SUB2 #04 SFT2 NIP INC JMP2r

@buffer/<redraw> ( -- )
	/<rescale>
	( | clear )
	#0014 #0000 Screen/<set-pos>
	[ LIT2 80 -Screen/pixel ] DEO
	sidebar/<draw>
	/<draw-body> !thru/<draw>

@buffer/<draw-body> ( -- )
	#0014 #0004 Screen/<set-pos>
	,&ptr LDR2 ;&buf .hex/active LDZ ?font/<draw-binary>
	( | Draw text )
	!font/<draw-range>

@buffer/<clear> ( -- )
	.Mouse/state DEI #02 LTH ?{ hex/<toggle> }
	#0000 ;&buf STA2
	;&buf ,&ptr STR2
	#0000 DUP2 Screen/<set-pos>
	/<reqdraw>
	#04 !hex/<draw-icon>

@buffer/<append> ( byte type -- )
	DUP u8/<send>
	[ LIT2 &ptr =&buf ] INC2k ,&ptr STR2
	STA !/<reqdraw>

@font/<draw-binary> ( to* from* -- )
	[ LIT2 15 -Screen/auto ] DEO
	[ LITr 00 ]
	&>w
		LDAk /<draw-byte>
		.Screen/x DEI2k #0008 ADD2 ROT DEO2
		INCr STHkr #0f AND ?{ /<draw-lb> }
		INC2 GTH2k ?/>w
	POP2 POP2 POPr JMP2r

@font/<draw-range> ( to* from* -- )
	EQU2k ?{
		[ LIT2 15 -Screen/auto ] DEO
		&>wdt
			LDAk #08 NEQ ?{ /<draw-bs>
				INC2 }
			LDAk /<draw-char>
			INC2 GTH2k ?/>wdt }
	POP2 POP2 JMP2r

@font/<draw-byte> ( byte -- )
	DUP #04 SFT /<draw-hex>
	( >> )

@font/<draw-hex> ( byte -- )
	#0f AND #00 SWP ;&base16 ADD2 LDA
	( >> )

@font/<draw-char> ( char -- )
	/get-glyph
	( >> )

@font/<draw-glyph> ( addr* -- )
	.Screen/addr DEO2
	[ LIT2 01 -Screen/sprite ] DEO
	JMP2r

@font/get-glyph ( char -- addr* )
	DUP #0a EQU ?/blank
	DUP #09 EQU ?/blank
	DUP #20 LTH ?/unknown
	DUP #7e GTH ?/unknown
	#20 SUB #00 SWP #40 SFT2 ;&glyphs ADD2 JMP2r
	&unknown POP ;halftone-icn JMP2r
	&blank POP ;blank-icn JMP2r

@word-fits ( str* -- f )
	.Screen/x DEI2 #0008 ADD2 STH2
	&>w
		STH2kr .Screen/width DEI2 GTH2 ?/fail
		LDAk #20 GTH ?{ POP2 POP2r #01 JMP2r }
		[ LIT2r 0008 ADD2r ] INC2 !/>w
	&fail POP2 POP2r #00 JMP2r

@font/<draw-lb> ( -- )
	.Screen/y DEI2k #0010 ADD2 ROT DEO2
	#0014 .Screen/x DEO2
	JMP2r

@font/<draw-bs> ( c -- )
	.Screen/x DEI2k #0008 SUB2 ROT DEO2
	#20 /<draw-char>
	.Screen/x DEI2k #0008 SUB2 ROT DEO2
	JMP2r

@sidebar/<draw> ( -- )
	#0000 DUP2 Screen/<set-pos>
	( | fill )
	[ LIT2 12 -Screen/auto ] DEO
	;halftone-icn .Screen/addr DEO2
	[ LIT2 00 -Screen/height ] DEI2 #03 SFT2 NIP SUB
	&>times
		[ LIT2 01 -Screen/sprite ] DEO
		INC DUP ?/>times
	POP
	( | icon )
	#0000 DUP2 Screen/<set-pos>
	#01
	( >> )

@hex/<draw-icon> ( color -- )
	[ LIT2 16 -Screen/auto ] DEO
	;ascii-icn [ LIT2 00 -&active ] LDZ #50 SFT2 ADD2 .Screen/addr DEO2
	.Screen/sprite DEOk DEO
	JMP2r

@hex/<toggle-clear> ( -- )
	buffer/<clear>
	( >> )

@hex/<toggle> ( -- )
	[ LIT2 00 -&active ] LDZ EQU .&active STZ !buffer/<reqdraw>

@thru/<toggle> ( -- )
	[ LIT2 00 -&active ] LDZ EQU .&active STZ !buffer/<reqdraw>

@thru/<draw> ( -- )
	.&active LDZ ?{ JMP2r }
	[ LIT2 15 -Screen/auto ] DEO
	;&sprite .Screen/addr DEO2
	[ LIT2 01 -Screen/sprite ] DEO
	JMP2r

(
@|Cursor )

@cursor/<update> ( -- )
	[ LIT2 00 -Mouse/state ] DEI NEQ #41 ADD [ LIT2 15 -Screen/auto ] DEO
	#40 ;fill-icn /<draw>
	.Mouse/x DEI2 ,&x STR2
	.Mouse/y DEI2 ,&y STR2
	;&sprite
	( >> )

@cursor/<draw> ( color addr* -- )
	.Screen/addr DEO2
	[ LIT2 &x $2 ] [ LIT2 &y $2 ] Screen/<set-pos>
	.Screen/sprite DEO
	JMP2r

(
@|theme )

@theme/<reset> ( -- )
	#f0ad #f0ef #f0be
	( >> )

@theme/<set> ( r* g* b* -- )
	.System/b DEO2
	.System/g DEO2
	.System/r DEO2
	JMP2r

@theme/<load> ( -- )
	;&path .File/name DEO2
	#0002 .File/length DEO2
	;&r .File/read DEO2
	;&g .File/read DEO2
	;&b .File/read DEO2
	.File/success-lb DEI ?{ !/<reset> }
	[ LIT2 &r $2 ] [ LIT2 &g $2 ] [ LIT2 &b $2 ] !/<set>

	&path ".theme $1

@manifest/scan ( but key -- fn* )
	ORAk ?{ POP2 #ffff JMP2r }
	,&bk STR2
	;&dat
	&>cat
		DUP2 LDAk #00 SWP INC ADD2 SWP2 #0003 ADD2
		&>opt
			LDA2k [ LIT2 &bk $2 ] NEQ2 ?{
				NIP2 INC2 INC2 LDA2 JMP2r }
			#0006 ADD2 GTH2k ?/>opt
		POP2 INC2 LDAk ?/>cat
	POP2 #ffff JMP2r

(
@|Stdlib )

@str/cap ( str* -- end* )
	LDAk ?{ JMP2r }
	INC2 !/cap

@u8/<send> ( byte -- )
	.hex/active LDZ ?/<send-hex>
	( >> )

@u8/<emit> ( byte -- )
	.thru/active LDZ ?{ POP JMP2r }
	.Console/write DEO
	JMP2r

	&<send-hex> ( byte -- )
	/<print>
	[ LIT &count 00 ] INC DUP ,&count STR
	#0f AND ?{ #0a !/<emit> }
	#20 !/<emit>

@u8/<print> ( byte -- )
	DUP #04 SFT /c
	&c ( -- )
	#0f AND DUP #09 GTH #27 MUL ADD [ LIT "0 ] ADD !/<emit>

(
@|Assets )

@dict/logger "Logger 00
	&clear "Clear 00
	&toggle "Toggle 00

@fill-icn [8
	ffff ffff ffff ffff ffff ffff ffff ffff ]

@blank-icn $10

@halftone-icn [8
	aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55 ]

@cursor/sprite [8
	80c0 e0f0 f8fc feff f8d8 8c0c 0606 0000 ]
	( from Symbolics )

@thru/sprite [8
	0000 4040 2020 1010 0810 1020 2040 4000 ]

@appicon [8
	0000 0000 003f 3838 0000 0000 0000 1717
	0000 0000 00ff 0000 0000 0000 0000 ffff
	0000 0000 00fc 0404 0000 0000 0000 f8f8
	3838 3838 3838 3838 1717 1717 1717 1717
	0042 e742 0042 3c00 ffbd 5abd ffbd c3ff
	0404 0404 0404 043c f8f8 f8f8 f8f8 f8c0
	3838 3700 0000 0000 1717 0000 0000 0000
	0000 ff00 0000 0000 ffff 0000 0000 0000
	3830 e000 0000 0000 d0c0 0000 0000 0000 ]

@ascii-icn [8
	aa55 805f 9051 9357 aa55 02f9 0a89 cae9
	9753 9150 9f40 aa55 eac9 8a09 fa01 aa55 ]
	( hex ) [8
	aa55 805f 9057 9455 aa55 02f9 0ae9 2aa9
	9554 9750 9f40 aa55 aa29 ea09 fa01 aa55 ]

@font/base16 [8
	"0123456789abcdef ]

@font/glyphs [8
	0000 0000 0000 0000 0000 0000 0000 0000
	0038 3838 3838 3810 1010 1000 0010 3810
	6c6c 2424 4800 0000 0000 0000 0000 0000
	0012 1212 7f24 2424 2424 fe48 4848 4800
	1038 5492 9690 5038 1412 d292 9478 1010
	0262 9494 9498 6810 102c 3252 5252 8c80
	0030 4848 4850 202e 5454 9488 8c72 0000
	e0e0 2020 c000 0000 0000 0000 0000 0000
	0204 0808 1010 1010 1010 1010 0808 0402
	8040 2020 1010 1010 1010 1010 2020 4080
	0000 0010 3892 d638 d692 3810 0000 0000
	0000 0010 1010 10fe 1010 1010 0000 0000
	0000 0000 0000 0000 0000 00e0 e020 20c0
	0000 0000 0000 00fe 0000 0000 0000 0000
	0000 0000 0000 0000 0000 0040 e0e0 4000
	0202 0404 0808 0810 1010 2020 4040 8080
	0018 2424 4242 4242 4242 4242 2424 1800
	0010 7010 1010 1010 1010 1010 107c 0000
	0018 2442 6202 0408 0810 2022 427e 0000
	0038 4482 8202 0438 0402 8282 4438 0000
	0008 1828 2848 4888 88fe 0808 083c 0000
	00fc 8080 80b8 c482 0202 c282 4438 0000
	003c 4246 8080 b8c4 8282 8282 4438 0000
	00fe 8282 0404 0408 0808 0810 1010 1000
	0038 4482 8282 4438 4482 8282 4438 0000
	0038 4482 8282 8246 3a02 0282 4438 0000
	0000 0000 0038 3800 0000 0000 3838 0000
	0000 0000 0038 3800 0000 0038 3818 1030
	0204 0408 0810 1020 2010 1008 0804 0402
	0000 0000 00fe 0000 00fe 0000 0000 0000
	8040 4020 2010 1008 0810 1020 2040 4080
	0038 4482 c202 0404 0810 1000 0010 3810
	003c 4282 9aa6 a2a2 a2a6 9a80 423c 0000
	0010 2828 2844 4444 447c 8282 82c6 0000
	00f8 4442 4242 4478 4442 4242 42fc 0000
	003a 4642 8080 8080 8080 8242 423c 0000
	00f8 4444 4242 4242 4242 4244 44f8 0000
	00fe 4242 4048 4878 4848 4242 42fe 0000
	00fe 4242 4048 4878 4848 4040 40f0 0000
	001a 2642 4080 808f 8282 8242 661a 0000
	00e7 4242 4242 7e42 4242 4242 42e7 0000
	00fe 1010 1010 1010 1010 1010 10fe 0000
	001f 0202 0202 0202 0282 8282 4438 0000
	00e6 4444 4848 7050 4848 4444 42e3 0000
	00f0 4040 4040 4040 4040 4242 42fe 0000
	0082 c6aa aaaa 9292 9282 8282 82c6 0000
	0087 c2a2 a2a2 9292 928a 8a8a 86c2 0000
	0038 4482 8282 8282 8282 8282 4438 0000
	00f8 4442 4242 4244 7840 4040 40f0 0000
	0038 4444 8282 8282 8282 ba44 4438 0806
	00f8 4442 4242 4478 4844 4444 42e3 0000
	0034 4c84 8080 6018 0482 8282 c4b8 0000
	00fe 9292 1010 1010 1010 1010 107c 0000
	00e7 4242 4242 4242 4242 4242 423c 0000
	00c6 8282 8282 4444 4444 2828 1010 0000
	00c6 8282 8292 9292 aaaa aa44 4444 0000
	00ee 4444 2828 1028 2828 4444 82c6 0000
	00c6 8244 4444 2828 1010 1010 107c 0000
	00fe 8488 0810 1010 2020 4242 82fe 0000
	1e10 1010 1010 1010 1010 1010 1010 101e
	0080 8040 4020 2010 1008 0804 0402 0200
	f010 1010 1010 1010 1010 1010 1010 10f0
	1028 4482 0000 0000 0000 0000 0000 0000
	0000 0000 0000 0000 0000 0000 0000 00ff
	3030 2020 1000 0000 0000 0000 0000 0000
	0000 0000 003c 4202 3e42 8282 867b 0000
	00c0 4040 4078 4442 4242 4242 4478 0000
	0000 0000 003a 4682 8080 8082 423c 0000
	0006 0404 043c 4484 8484 8484 443e 0000
	0000 0000 0038 4482 fe80 8082 423c 0000
	000e 1110 10fe 1010 1010 1010 107c 0000
	0000 0000 003b 4444 4438 4078 8482 827c
	00c0 4040 405c 6242 4242 4242 42e7 0000
	1818 0000 0078 0808 0808 0808 08ff 0000
	0606 0000 003e 0202 0202 0202 8282 4438
	00c0 4040 4042 4448 5864 4442 42e3 0000
	0078 0808 0808 0808 0808 0808 08ff 0000
	0000 0000 006c 9292 9292 9292 92db 0000
	0000 0000 00dc 6242 4242 4242 42e7 0000
	0000 0000 0038 4482 8282 8282 4438 0000
	0000 0000 00f8 4442 4242 4244 7840 40f0
	0000 0000 003e 4484 8484 8444 3c04 041e
	0000 0000 00ec 3222 2020 2020 20fc 0000
	0000 0000 003a 4642 403c 0282 c2bc 0000
	0000 2020 20fc 2020 2020 2022 221c 0000
	0000 0000 00c6 4242 4242 4242 4639 0000
	0000 0000 00c6 8282 4444 4428 2810 0000
	0000 0000 0092 9292 92aa aa44 4444 0000
	0000 0000 00ee 4428 2810 2828 44ee 0000
	0000 0000 00e7 4222 2414 0808 1090 a040
	0000 0000 007e 4408 0810 1022 42fe 0000
	0608 0808 0808 1020 1008 0808 0808 0806
	1010 1010 1010 1010 1010 1010 1010 1010
	c020 2020 2020 1008 1020 2020 2020 20c0
	6092 0c00 0000 0000 0000 0000 0000 0000 ]

@buffer/buf $&buflen