( 54K . Win7 )

|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 $5 &type $1 &write $1 &error $3 &addr $2 &mode $1 &exec $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 &pad $3 &sx $2 &sy $1 &sy-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

(
@|Enums )

|004f @Varvara/version
|2000 @directory/buflen
|0018 @directory/x1pad
|002a @directory/y1
|0034 @directory/y1pad
|002a @scrollbar/y1
|003a @scrollbar/top
|0040 @search/buflen
|0040 @decstr/buflen
|0012 @status/y1
|2000 @path/memlen
|0060 @file/width
|0038 @file/height
|0120 @meta/memlen
|0090 @meta/iconlen
|0040 @command/buflen
|0200 @sel/buflen
|0200 @rename/buflen
|0200 @mkdir/buflen
|1000 @copy/buflen

|000

	@path/buf $80 &cap
	@directory/sel $2
	@scrollbar/y $2
	@window/width $2 &height $2

|100

@on-reset ( -> )
	;meta #06 DEO2
	theme/<load>
	path/<init>
	window/<init>
	directory/<deselect>
	path/<reload>
	directory/<bind>
	BRK

@meta $1
	( ) "Win7 0a
	( ) "A 20 "windowing 20 "interface 0a
	( ) "By 20 "Devine 20 "Lu 20 "Linvega 0a
	( ) "29 20 "Aug 20 "2026 00
	( > ) 03
	( - ) 83 =appicon
	( - ) 56 =Varvara/version
	( - ) a0 =manifest/dat

@manifest/dat ( . )
	_{ =dict/win7
	( - ) 21 00 =directory/<open> =dict/open
	( - ) 10 00 =directory/<prev-row> =dict/prev-row
	( - ) 20 00 =directory/<next-row> =dict/next-row
	( - ) 40 00 =directory/<prev> =dict/prev
	( - ) 80 00 =directory/<next> =dict/next
	( - ) 00 08 =directory/<parent> =dict/parent
	( - ) 00 1b =directory/<deselect> =dict/deselect
	( - ) 01 "i =sel/<invert> =dict/invert
	( - ) 01 "a =sel/<all> =dict/select-all }
	_{ =dict/edit
	( - ) 01 "c =copy/<apply> =dict/copy
	( - ) 01 "v =paste/<apply> =dict/paste
	( - ) 01 "d =duplicate/<apply> =dict/duplicate }
	_{ =dict/modes
	( - ) 01 "r =rename/<bind> =dict/rename
	( - ) 01 "n =mkdir/<bind> =dict/mkdir }
	_{ =dict/window
	( - ) 12 00 =window/<dech> =dict/dech
	( - ) 22 00 =window/<inch> =dict/inch
	( - ) 42 00 =window/<decw> =dict/decw
	( - ) 82 00 =window/<incw> =dict/incw }
	( ) $1

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

%u16/mod2 ( x* div* -- res* ) {
	DIV2k MUL2 SUB2 }

(
@|Path )

@path/<init> ( -- )
	.&buf LDZ ?{ ;dict/home-path !/<set> }
	;&buf str/cap ,&ptr STR
	POP JMP2r

@path/make-parent ( -- str* )
	/get-depth #02 GTH ?{ ;dict/home JMP2r }
	[ LIT2 00 _&ptr ] LDR /up /up INC !decstr/make-dir

@path/make-location ( -- str* )
	/get-depth #01 GTH ?{ ;dict/home JMP2r }
	[ LIT2 00 _&ptr ] LDR /up INC !decstr/make-dir

@path/get-depth ( -- depth )
	[ LITr 00 ] [ LIT2 -&buf _&ptr ] LDR
	&>rgd
		#01 SUB LDZk [ LIT "/ ] NEQ ?{ INCr }
		NEQk ?/>rgd
	POP2 STHr JMP2r

@path/<set> ( path* -- )
	[ LIT2 -&buf _&ptr ] STR
	( >> )

@path/<push-str> ( subpath* -- )
	&>wpu
		LDAk DUP ?{ POP POP2 JMP2r }
		/<push>
		INC2 !/>wpu

@path/<push> ( c -- )
	[ LIT2 00 &ptr -&buf ]
	( | clamp )
	.&cap LTHk ?{
		( | TODO: Warn overflow )
		SWP }
	POP
	( ) INCk ,&ptr STR
	STZ2
	JMP2r

@path/pop ( -- )
	;&buf ;dict/home-path str/cmp ?{
		,&ptr LDR /up INC #00 OVR STZ
		,&ptr STR }
	JMP2r

@path/up ( ptr -- addr )
	#01 SUB .&buf SWP
	&>rup
		#01 SUB LDZk [ LIT "/ ] EQU ?{ NEQk ?/>rup }
	NIP JMP2r

@path/<reload> ( -- )
	;&buf .File/name DEO2
	;&memlen .File/length DEO2
	;&mem .File/read DEO2
	directory/<reset>
	/<nullws>
	/<parse-folders> !/<parse-files>

@path/<parse-folders> ( -- )
	;&mem
	&>wfo
		LDAk ?{ POP2 JMP2r }
		LDAk LIT "- NEQ ?{ directory/push }
		#0005 ADD2 str/cap INC2 !/>wfo

@path/<parse-files> ( -- )
	;&mem
	&>wfi
		LDAk ?{ POP2 JMP2r }
		LDAk LIT "- EQU ?{ directory/push }
		#0005 ADD2 str/cap INC2 !/>wfi

@path/<nullws> ( -- )
	;&mem
	&>wnw
		LDAk DUP ?{ POP POP2 JMP2r }
		#1f GTH ?{ LITr 00 STH2k STAr }
		INC2 !/>wnw

@path/<print> ( -- )
	;&buf !str/<print>

@path/<reqload> ( -- )
	[ LIT2 f0 _&timer ] STR
	header/<reqdraw> !window/<bind-screen>

@path/<delay-load> ( -- )
	[ LIT &timer 00 ] DUP ?{ POP JMP2r }
	( | is active )
	INC DUP ?{
		( | is complete )
		/<reload>
		window/<reqdraw-all> }
	,&timer STR !window/<bind-screen>

(
@|Status )

@status/<bind> ( -- )
	;&on-mouse .Mouse/vector DEO2
	JMP2r

@status/on-mouse ( -> )
	cursor/<update>
	[ LIT2 &last $1 -Mouse/state ] DEI DUP ,&last STR
	#0001 NEQ2 ?{ directory/<parent> }
	BRK

@status/<set-width> ( width* -- )
	#03 SFT2 SUB ,&cols STR
	JMP2r

@status/<draw-length> ( -- )
	directory/get-length
	( | empty )
	ORAk ?{ POP2 ;dict/empty !sans/<draw-center> }
	;dict/files decstr/make-numstr !sans/<draw-center>

@status/<redraw> ( -- )
	#0000 .Screen/x DEO2
	;&y1 .Screen/y DEO2
	[ LIT2 01 &cols $1 ] ;&bar-icn #25 <draw-times-addr>
	( | left )
	#0009 #0016 Screen/<set-pos>
	path/make-parent #01 sans/<draw-left-color>
	window/get-center #0016 Screen/<set-pos>
	search/is-active ?/<redraw-search>
	rename/is-active ?/<redraw-rename>
	command/is-active ?/<redraw-command>
	mkdir/is-active ?/<redraw-mkdir>
	( | center )
	/<draw-length>
	( | right )
	window/get-width #0009 SUB2 #0016 Screen/<set-pos>
	search/is-active ?search/<draw>
	!sel/<draw>

@status/<redraw-rename> ( -- )
	;dict/rename !sans/<draw-center>

@status/<redraw-mkdir> ( -- )
	;dict/create !sans/<draw-center>

@status/<redraw-search> ( -- )
	;dict/search sans/<draw-center>
	window/get-width #0009 SUB2 #0016 Screen/<set-pos> !search/<draw>

@status/<redraw-command> ( -- )
	;dict/command sans/<draw-center>
	window/get-width #0009 SUB2 #0016 Screen/<set-pos> !command/<draw>

@status/<reqdraw> ( -- )
	[ LIT2 00 _&reqdraw ] STR !window/<bind-screen>

@status/<try-draw> ( -- )
	[ LIT &reqdraw 00 ] ?{
		/<redraw>
		[ LIT2 01 _&reqdraw ] STR }
	JMP2r

(
@|Command )

@command/on-button ( -> )
	.Controller/key DEI /<put>
	BRK

@command/<reset> ( -- )
	#0000 ;&buf STA2
	;&buf ,&ptr STR2
	JMP2r

@command/is-active ( -- t )
	;&on-button .Controller/vector DEI2 EQU2 JMP2r

@command/<bind-put> ( c -- )
	;&on-button .Controller/vector DEO2
	cursor/<lock>
	( >> )

@command/<put> ( c -- )
	DUP ?{ POP JMP2r }
	DUP #08 EQU ?/<pop>
	DUP #0d EQU ?/<run>
	DUP #1b EQU ?/<stop>
	DUP #7f EQU ?/<stop>
	( >> )

@command/<push> ( c -- )
	( >> ) #00 [ LIT2 &ptr =&buf ]
	( | clamp )
	;&bufend LTH2k ?{
		( TODO: Warn ) SWP2 }
	POP2
	( | save )
	INC2k ,&ptr STR2
	STA2 !window/<reqdraw-body>

@command/<pop> ( c -- )
	POP #0000 ,&ptr LDR2
	( clamp ) DUP2 ;&buf NEQ2 ?{ POP2 POP2 JMP2r }
	#0001 SUB2 DUP2 ,&ptr STR2
	STA2 !window/<reqdraw-body>

@command/<draw> ( -- )
	;&buf !sans/<draw-right>

@command/<send> ( str* -- )
	.Console/addr DEO2
	[ LIT2 00 -Console/mode ] DEO
	[ LIT2 01 -Console/exec ] DEO !path/<reqload>

@command/<stop> ( c -- )
	POP /<reset>
	directory/<bind> !window/<reqdraw-body>

@command/<run> ( c -- )
	POP
	( | has input )
	directory/<bind>
	;&buf LDA ?{
		( | no command )
		!directory/<open> }
	( | is active )
	decstr/<reset>
	( | send )
	;&buf decstr/<push-str>
	#20 decstr/<push>
	;&do-filepath sel/<for-each>
	;decstr/buf /<send>
	/<reset> !window/<reqdraw-body>

@command/do-filepath ( str* -- )
	;path/buf decstr/<push-esc>
	decstr/<push-esc>
	#20 !decstr/<push>

(
@|Directory )

@directory/<bind> ( -- )
	;&on-button .Controller/vector DEO2
	;&on-mouse .Mouse/vector DEO2
	JMP2r

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

@directory/on-key ( button key -> )
	sel/get-length ORA ?{
		NIP DUP ?{ POP BRK }
		sel/<reset>
		search/<bind-put>
		BRK }
	NIP DUP ?{ POP BRK }
	command/<bind-put>
	BRK

@directory/on-mouse ( -> )
	cursor/<update>
	( | check scroll )
	.Mouse/sy DEI2 ORAk ?{
		POP2
		( | no scroll )
		[ LIT2 &last $1 -Mouse/state ] DEI DUP ,&last STR
		[ LIT2 02 -Controller/button ] DEI EQU ?/on-mouse-alt
		( | get id )
		DUP2 #0001 EQU2 ?/on-mouse-touch
		DUP2 #0002 EQU2 ?/on-mouse-click
		POP2
		( | Touch )
		BRK }
	scrollbar/<mod>
	BRK

@directory/on-mouse-touch ( last state -> )
	POP2 .Mouse/x DEI2 .Mouse/y DEI2 file/pos-id /<pick-id>
	BRK

@directory/on-mouse-click ( last state -> )
	POP2 .Mouse/x DEI2 .Mouse/y DEI2 file/pos-id /<pick-id>
	/<open>
	BRK

@directory/on-mouse-alt ( last state -> )
	ORAk ?{ POP2 BRK }
	#0001 EQU2 ?{
		( | on drag )
		( x ) .Mouse/x DEI2 [ LIT2 &ax $2 ] SUB2 [ LIT2 &w $2 ] ADD2 #33 SFT2
		( y ) .Mouse/y DEI2 [ LIT2 &ay $2 ] SUB2 [ LIT2 &h $2 ] ADD2 #33 SFT2 window/<set-size>
		BRK }
	( | on down )
	.Mouse/x DEI2 ,&ax STR2
	.Mouse/y DEI2 ,&ay STR2
	window/get-width ,&w STR2
	window/get-height ,&h STR2
	BRK

@directory/<deselect> ( -- )
	sel/<reset>
	path/<reload>
	#ffff !/<set>

@directory/<next> ( -- )
	.&sel LDZ2 INC2 !/<pick-id>

@directory/<next-row> ( -- )
	.&sel LDZ2 /get-cols ADD2 !/<pick-id>

@directory/<prev> ( -- )
	.&sel LDZ2 #0001 SUB2 !/<pick-id>

@directory/<prev-row> ( -- )
	.&sel LDZ2 /get-cols SUB2 !/<pick-id>

@directory/<pick-id> ( id* -- )
	OVR #80 AND ?/<pick-first>
	/get-length LTH2k ?{ #0001 SUB2 SWP2 }
	POP2
	( >> )

@directory/<set> ( id* -- )
	DUP2 /id-to-name sel/<pick>
	.&sel STZ2 !window/<reqdraw-body>

@directory/<soft-set> ( id* -- )
	;&buf SUB2 #01 SFT2 .&sel STZ2
	JMP2r

@directory/<pick-first> ( id* -- )
	POP2 #0000 !/<set>

@directory/push ( desc-name* -- desc-name* )
	DUP2 #0005 ADD2 [ LIT2 &ptr =&buf ]
	( | clamp )
	;&bufend LTH2k ?{
		( TODO: Warn ) SWP2 }
	POP2
	( | save )
	INC2k INC2 ,&ptr STR2
	STA2
	JMP2r

@directory/<reset> ( -- )
	;&buf ,&ptr STR2
	#0000 ;&buf STA2
	JMP2r

@directory/get-bounds ( -- to* from* )
	,&ptr LDR2 ;&buf JMP2r

@directory/get-length ( -- length* )
	/get-bounds SUB2 #01 SFT2 JMP2r

@directory/<hash> ( -- )
	#0000 ;scrollbar/y1 Screen/<set-pos>
	;check-icn .Screen/addr DEO2
	[ LIT2 01 -Screen/auto ] DEO
	[ LIT2r 00 -Screen/sprite ]
	( c ) window/get-width #03 SFT2 #02 SUB SUB
	( r ) window/get-height #03 SFT2 #05 SUB SUB
	&>rows
		OVR
		&>cols
			DEOkr
			INC DUP ?/>cols
		POP
		( | next row )
		#0000 .Screen/x DEO2
		.Screen/y DEI2k #0008 ADD2 ROT DEO2
		INC DUP ?/>rows
	POP2 POP2r JMP2r

@directory/<open> ( -- )
	sel/get-length ORAk ?{ POP2 JMP2r }
	#0001 EQU2 ?/<open-one>
	JMP2r

@directory/<open-one> ( -- )
	;sel/buf LDA2 file/is-folder ?{ path/<print> !str/<print-ln> }
	path/<push-str>
	( | enter folder )
	/<reset>
	/<deselect>
	#0000 scrollbar/<set>
	path/<reload> !header/<reqdraw>

@directory/<parent> ( -- )
	/<reset>
	/<deselect>
	path/pop #0000 scrollbar/<set>
	path/<reload> !header/<reqdraw>

@directory/id-to-name ( id* -- name* )
	DUP2 ADD2 ;&buf ADD2 LDA2 JMP2r

@directory/get-cols ( -- cols* )
	[ LIT2 &cols $2 ] JMP2r

@directory/<set-width> ( width* -- )
	;file/width DIV2 ,&cols STR2
	JMP2r

@directory/get-id ( -- id* )
	.&sel LDZ2 JMP2r

@directory/get-name ( -- name* )
	/get-id !/id-to-name

@directory/<redraw> ( -- )
	( | Clear )
	#0000 ;&y1 Screen/<set-pos>
	[ LIT2 80 -Screen/pixel ] DEO
	( | Draw )
	[ LIT2r 0000 ] /get-bounds
	&>l
		GTH2k ?{ POP2 POP2 POP2r JMP2r }
		LDA2k STH2kr file/<draw>
		INC2 INC2 INC2r !/>l

@directory/<reqdraw> ( -- )
	[ LIT2 00 _&reqdraw ] STR !window/<bind-screen>

@directory/<try-draw> ( -- )
	[ LIT &reqdraw 00 ] ?{
		/<redraw>
		[ LIT2 01 _&reqdraw ] STR }
	JMP2r

(
@|Selection )

@sel/<reset> ( -- )
	#0000 ;&buf STA2
	;&buf ,&ptr STR2
	JMP2r

@sel/<pick> ( filename* -- )
	[ LIT2 01 -Controller/button ] DEI AND ?{ /<reset> }
	( >> )

@sel/<push> ( filename* -- )
	ORAk ?{ POP2 JMP2r }
	DUP2 /find INC2k ORA ?/<unpush>
	POP2
	( | Unique )
	[ LIT2 &ptr =&buf ]
	( | clamp )
	;&bufend LTH2k ?{
		( TODO: Warn ) SWP2 }
	POP2
	( | save )
	INC2k INC2 ,&ptr STR2
	STA2
	JMP2r

@sel/find ( filename* -- index* )
	,&tf STR2
	/get-bounds
	&>lf
		NEQ2k ?{
			POP2 #ffff &end NIP2 JMP2r }
		LDA2k [ LIT2 &tf $2 ] EQU2 ?/end
		INC2 INC2 !/>lf

@sel/<do-unpush> ( filename* index* -- )
	NIP2
	( >> )

@sel/<unpush> ( index* -- )
	STH2
	/get-bounds ;&buf ,&ptr STR2
	&>lu
		NEQ2k ?{ POP2 POP2 POP2r JMP2r }
		DUP2 STH2kr EQU2 ?{ LDA2k /<push> }
		INC2 INC2 !/>lu

@sel/get-bounds ( -- to* from* )
	,&ptr LDR2 ;&buf JMP2r

@sel/<invert> ( -- )
	,&ptr LDR2 /<all>
	,&ptr LDR2 SWP2 ;&buf ,&ptr STR2
	&>li
		GTH2k ?{ POP2 POP2 !window/<reqdraw-body> }
		LDA2k /<push>
		INC2 INC2 !/>li

@sel/<all> ( -- )
	directory/get-bounds
	&>lsa
		NEQ2k ?{ POP2 POP2 !window/<reqdraw-body> }
		LDA2k /is-selected ?{ LDA2k /<pick> }
		INC2 INC2 !/>lsa

@sel/is-selected ( name* -- t )
	STH2
	/get-bounds
	&>l
		GTH2k ?{
			POP2 POP2 POP2r #00 JMP2r }
		LDA2k STH2kr NEQ2 ?{
			POP2 POP2 POP2r #01 JMP2r }
		INC2 INC2 !/>l

@sel/get-length ( -- length* )
	/get-bounds SUB2 #01 SFT2 JMP2r

@sel/<for-each> ( fn* -- )
	,&fn STR2
	/get-bounds
	&>lfe
		GTH2k ?{ POP2 POP2 JMP2r }
		LDA2k [ LIT2 &fn $2 ] JSR2 INC2 INC2 !/>lfe

@sel/<draw> ( -- )
	/get-length ORAk ?{ POP2 JMP2r }
	DUP2 #0001 NEQ2 ?{
		POP2 /get-path file/is-folder ?{
			file/get-size DUP2 #0000 EQU2 ?{ ;dict/bytes decstr/make-numstr !sans/<draw-right> } }
		POP2 #0001 }
	;dict/selected decstr/make-numstr !sans/<draw-right>

@sel/<pick-all> ( target* -- )
	,&t STR2
	/<reset>
	directory/get-bounds
	&>lpa
		GTH2k ?{ POP2 POP2 JMP2r }
		LDA2k [ LIT2 &t $2 ] str/match #00 EQU ?{ DUP2 directory/<soft-set>
			LDA2k /<push> }
		INC2 INC2 !/>lpa

@sel/get-path ( -- path* )
	decstr/<reset>
	;path/buf decstr/<push-str>
	directory/get-name decstr/<push-str>
	;decstr/buf JMP2r

(
@|Search )

@search/on-button ( -> )
	.Controller/key DEI /<put>
	BRK

@search/<reset> ( -- )
	#0000 ;&buf STA2
	;&buf ,&ptr STR2
	JMP2r

@search/<bind-put> ( c -- )
	;&on-button .Controller/vector DEO2
	cursor/<lock>
	( >> )

@search/<put> ( c -- )
	DUP ?{ POP JMP2r }
	DUP #08 EQU ?/<pop>
	DUP #09 EQU ?/<stop>
	DUP #0d EQU ?/<stop>
	DUP #1b EQU ?/<stop>
	DUP #7f EQU ?/<stop>
	( >> )

@search/<push> ( c -- )
	( >> ) #00 [ LIT2 &ptr =&buf ]
	( | clamp )
	;&bufend LTH2k ?{
		( TODO: Warn ) SWP2 }
	POP2
	( | save )
	INC2k ,&ptr STR2
	STA2
	( >> )

@search/<update> ( -- )
	;&buf sel/<pick-all> !window/<reqdraw-body>

@search/<pop> ( c -- )
	POP #0000 ,&ptr LDR2
	( clamp ) DUP2 ;&buf NEQ2 ?{ POP2 POP2 JMP2r }
	#0001 SUB2 DUP2 ,&ptr STR2
	STA2 !/<update>

@search/<stop> ( c -- )
	POP /<reset>
	directory/<bind> !window/<reqdraw-body>

@search/is-active ( -- t )
	;&buf LDA JMP2r

@search/<draw> ( -- )
	;&buf !sans/<draw-right>

(
@|Rename )

@rename/<reset> ( -- )
	;&buf ,&ptr STR2
	#0000 ;&buf STA2
	JMP2r

@rename/<bind> ( -- )
	sel/get-length #0001 EQU2 ?{ JMP2r }
	;&on-button .Controller/vector DEO2
	cursor/<lock>
	/<reset>
	status/<reqdraw>
	directory/get-name /<push-str> !/<reqdraw>

@rename/is-active ( -- t )
	;&on-button .Controller/vector DEI2 EQU2 JMP2r

@rename/on-button ( -> )
	.Controller/key DEI /<put>
	BRK

@rename/<push-str> ( str* -- )
	&>w
		LDAk DUP ?{ POP POP2 JMP2r }
		/<push>
		INC2 !/>w

@rename/<put> ( c -- )
	DUP ?{ POP JMP2r }
	DUP #08 EQU ?/<pop>
	DUP #09 EQU ?/<stop>
	DUP #0d EQU ?/<done>
	DUP #1b EQU ?/<stop>
	DUP #7f EQU ?/<stop>
	( >> )

@rename/<push> ( c -- )
	#00 [ LIT2 &ptr =&buf ]
	( | clamp )
	;&bufend LTH2k ?{
		( TODO: Warn ) SWP2 }
	POP2
	( | save )
	INC2k ,&ptr STR2
	STA2 !/<reqdraw>

@rename/<done> ( c -- )
	POP
	( | not empty )
	;&buf str/walk-ws LDAk ?{ POP2 JMP2r }
	decstr/<reset>
	;dict/mv-command decstr/<push-str>
	( | a )
	;path/buf decstr/<push-str>
	directory/get-name decstr/<push-str-ws>
	( | b )
	;path/buf decstr/<push-str>
	decstr/<push-esc>
	( | send )
	;decstr/buf command/<send>
	directory/<deselect> !directory/<bind>

@rename/<stop> ( c -- )
	POP directory/<bind> !window/<reqdraw-body>

@rename/<pop> ( c -- )
	POP #0000 ,&ptr LDR2
	( clamp ) DUP2 ;&buf NEQ2 ?{ POP2 POP2 JMP2r }
	#0001 SUB2 DUP2 ,&ptr STR2
	STA2 !/<reqdraw>

@rename/<redraw> ( -- )
	scrollbar/<reqdraw>
	directory/<hash>
	;&buf directory/get-id !file/<draw-focus>

@rename/<reqdraw> ( -- )
	[ LIT2 00 _&reqdraw ] STR !window/<bind-screen>

@rename/<try-draw> ( -- )
	[ LIT &reqdraw 01 ] ?{
		/<redraw>
		[ LIT2 01 _&reqdraw ] STR }
	JMP2r

(
@|Mkdir )

@mkdir/<reset> ( -- )
	;&buf ,&ptr STR2
	#0000 ;&buf STA2
	JMP2r

@mkdir/<bind> ( -- )
	;&on-button .Controller/vector DEO2
	cursor/<lock>
	/<reset>
	status/<reqdraw>
	;dict/new-folder /<push-str> !/<reqdraw>

@mkdir/is-active ( -- t )
	;&on-button .Controller/vector DEI2 EQU2 JMP2r

@mkdir/on-button ( -> )
	.Controller/key DEI /<put>
	BRK

@mkdir/<push-str> ( str* -- )
	&>w
		LDAk DUP ?{ POP POP2 JMP2r }
		/<push>
		INC2 !/>w

@mkdir/<put> ( c -- )
	DUP ?{ POP JMP2r }
	DUP #08 EQU ?/<pop>
	DUP #09 EQU ?/<done>
	DUP #0d EQU ?/<stop>
	DUP #1b EQU ?/<stop>
	DUP #7f EQU ?/<stop>
	( >> )

@mkdir/<push> ( c -- )
	#00 [ LIT2 &ptr =&buf ]
	( | clamp )
	;&bufend LTH2k ?{
		( TODO: Warn ) SWP2 }
	POP2
	( | save )
	INC2k ,&ptr STR2
	STA2 !/<reqdraw>

@mkdir/<done> ( c -- )
	POP
	( | not empty )
	;&buf str/walk-ws LDAk ?{ POP2 JMP2r }
	decstr/<reset>
	;dict/mkdir-command decstr/<push-str>
	( | a )
	;path/buf decstr/<push-str>
	decstr/<push-esc>
	( | send )
	;decstr/buf command/<send>
	directory/<deselect> !directory/<bind>

@mkdir/<stop> ( c -- )
	POP directory/<bind> !window/<reqdraw-body>

@mkdir/<pop> ( c -- )
	POP #0000 ,&ptr LDR2
	( clamp ) DUP2 ;&buf NEQ2 ?{ POP2 POP2 JMP2r }
	#0001 SUB2 DUP2 ,&ptr STR2
	STA2 !/<reqdraw>

@mkdir/<redraw> ( -- )
	scrollbar/<reqdraw>
	directory/<hash>
	;&buf directory/get-length !file/<draw-focus>

@mkdir/<reqdraw> ( -- )
	[ LIT2 00 _&reqdraw ] STR !window/<bind-screen>

@mkdir/<try-draw> ( -- )
	[ LIT &reqdraw 01 ] ?{
		/<redraw>
		[ LIT2 01 _&reqdraw ] STR }
	JMP2r

(
@|Copy )

@duplicate/<apply> ( -- )
	sel/get-length #0001 EQU2 ?{ JMP2r }
	copy/<reset>
	;path/buf copy/<push-str>
	directory/get-name copy/<push-str>
	#20 copy/<push>
	;path/buf copy/<push-str>
	directory/get-name copy/<push-str>
	;dict/dup-suffix copy/<push-str>
	window/<reqdraw-body>
	;copy/buf command/<send> !copy/<reset>

@paste/<apply> ( -- )
	;copy/buf LDA ?{ JMP2r }
	;path/buf copy/<push-str>
	window/<reqdraw-body>
	;copy/buf command/<send> !copy/<reset>

@copy/<apply> ( -- )
	/<reset>
	;&do-filepath !sel/<for-each>

@copy/do-filepath ( str* -- )
	decstr/<reset>
	;path/buf decstr/<push-esc>
	decstr/<push-esc>
	#20 decstr/<push>
	;decstr/buf !/<push-str>

@copy/<reset> ( -- )
	;&buf ,&ptr STR2
	#0000 ;&buf STA2
	;dict/cp-command !/<push-str>

@copy/<push-str> ( num* -- )
	&>w
		LDAk DUP ?{ POP POP2 JMP2r }
		/<push>
		INC2 !/>w

@copy/<push> ( c -- )
	#00 [ LIT2 &ptr =&buf ]
	( | clamp )
	;&bufend LTH2k ?{
		( TODO: Warn ) SWP2 }
	POP2
	( | save )
	INC2k ,&ptr STR2
	STA2
	JMP2r

(
@|File )

@file/<draw> ( name* id* -- )
	/id-xy
	( clamp up ) DUP2 ;status/y1 SUB2 #8000 LTH2 ?{ POP2 POP2 POP2 JMP2r }
	( clamp down ) DUP2 window/get-height LTH2 ?{ POP2 POP2 POP2 JMP2r }
	Screen/<set-pos>
	DUP2 /<draw-icon>
	DUP2 /get-color sans/<set-color>
	decstr/make-name !sans/<draw-center>

@file/<draw-focus> ( name* id* -- )
	/id-xy Screen/<set-pos>
	DUP2 /<draw-icon>
	#04 sans/<set-color> !sans/<draw-center>

@file/get-color ( name* -- color )
	sel/is-selected ?{ #01 JMP2r }
	#09 JMP2r

@file/<draw-icon> ( name* -- )
	[ LIT2 36 -Screen/auto ] DEO
	DUP2 /get-sprite DUP2 .Screen/addr DEO2
	[ LIT2 05 -Screen/sprite ] DEOk DEOk DEOk DEO
	.Screen/x DEI2k #0010 ADD2 ROT DEO2
	( | Roms )
	;&rom EQU2 ?{ POP2 JMP2r }
	decstr/<reset>
	;path/buf decstr/<push-str>
	decstr/<push-str>
	( | Roms Meta )
	;decstr/buf !meta/<draw-icon>

@file/get-sprite ( name* -- sprite* )
	LDAk LIT ". EQU ?/get-dot
	/is-folder ?/get-folder
	( | get ext )
	str/cap #0004 SUB2 DUP2 ;dict/rom-ext str/cmp ?/get-rom
	INC2k ;dict/md-ext str/cmp ?/get-data
	DUP2 ;dict/chr-ext str/cmp ?/get-pict
	DUP2 ;dict/icn-ext str/cmp ?/get-pict
	DUP2 ;dict/uf2-ext str/cmp ?/get-pict
	DUP2 ;dict/jpg-ext str/cmp ?/get-pict
	DUP2 ;dict/png-ext str/cmp ?/get-pict
	LDAk LIT ". EQU ?/get-data
	POP2 ;&unknown JMP2r

@file/is-folder ( name* -- name* t )
	DUP2 str/cap #0001 SUB2 LDA LIT "/ EQU JMP2r

@file/get-folder ( name* -- sprite* )
	POP2 ;&folder JMP2r

@file/get-data ( name* -- sprite* )
	POP2 ;&text JMP2r

@file/get-rom ( name* -- sprite* )
	POP2 ;&rom JMP2r

@file/get-pict ( name* -- sprite* )
	POP2 ;&pict JMP2r

@file/get-dot ( name* -- sprite* )
	POP2 ;&dot JMP2r

@file/id-xy ( id* -- x* y* )
	( x ) DUP2 directory/get-cols STH2k u16/mod2 ;&width MUL2 ;directory/x1pad ADD2
	( y ) SWP2 STH2r DIV2 ;&height MUL2 ;directory/y1pad ADD2 scrollbar/get-y SUB2 JMP2r

@file/pos-id ( x* y* -- id* )
	( y ) ;directory/y1pad SUB2 scrollbar/get-y ADD2 ;&height DIV2 directory/get-cols STH2k MUL2
	( x ) SWP2 ;&width DIV2 STH2r u16/mod2 ADD2 JMP2r

@file/<seek> ( addr* -- )
	#0100 SUB2 .File/name DEI2k ROT DEO2
	#0000 INC2k .File/length DEO2
	&>lf
		;&b .File/read DEO2
		INC2 GTH2k ?/>lf
	POP2 POP2 JMP2r
	[ LIT &b $1 ]

@file/get-size ( path* -- size* )
	.File/name DEO2
	#0004 .File/length DEO2
	;&statbuf .File/stat DEO2
	;&statbuf LDAk LIT "? NEQ ?str/hex
	POP2 #0000 JMP2r
	&statbuf $4 00

(
@|Scrollbar )

@scrollbar/<mod> ( y* -- )
	.&y LDZ2 ADD2
	( >> )

@scrollbar/<set> ( y* -- )
	( | clamp )
	DUP2 #8000 AND2 EQU ?{ POP2 #0000 }
	[ LIT2 &bottom $2 ] LTH2k ?{ SWP2 }
	POP2
	( | has changed )
	DUP2 .&y LDZ2 NEQ2 ?{ POP2 JMP2r }
	( | set )
	.&y STZ2 !window/<reqdraw-body>

@scrollbar/<set-height> ( height* -- )
	DUP2 #0057 SUB2 ,&bottom STR2
	#03 SFT2 #07 SUB SUB ,&rows STR
	JMP2r

@scrollbar/<set-width> ( width* -- )
	#0010 SUB2 ,&x1 STR2
	JMP2r

@scrollbar/<bind> ( -- )
	;&on-mouse .Mouse/vector DEO2
	JMP2r

@scrollbar/get-y ( -- y* )
	.&y LDZ2 #30 SFT2 JMP2r

@scrollbar/is-within ( x* -- t )
	/get-x GTH2 JMP2r

@scrollbar/get-x ( -- x1* )
	[ LIT2 &x1 $2 ] JMP2r

@scrollbar/on-mouse ( -> )
	cursor/<update>
	[ LIT2 &last $1 -Mouse/state ] DEI DUP ,&last STR
	( | mouse up )
	ORA ?{ BRK }
	( | mouse down )
	.Mouse/y DEI2 ;&top SUB2 /<set>
	BRK

@scrollbar/<redraw> ( -- )
	window/get-width #0010 SUB2 ;&y1 Screen/<set-pos>
	[ LIT2 01 &rows d5 ] ;&bg-icn #16 <draw-times-addr>
	( | top )
	;&y1 .Screen/y DEO2
	;&arrow-icn .Screen/addr DEO2
	[ LIT2 01 -Screen/sprite ] DEOk DEO
	( | middle )
	#0039 .&y LDZ2 ADD2 .Screen/y DEO2
	;&drag-chr .Screen/addr DEO2
	[ LIT2 85 -Screen/sprite ] DEOk DEO
	( | bottom )
	.Screen/height DEI2 #0008 SUB2 .Screen/y DEO2
	;&arrow-icn .Screen/addr DEO2
	[ LIT2 21 -Screen/sprite ] DEOk DEO
	JMP2r

@scrollbar/<reqdraw> ( -- )
	[ LIT2 00 _&reqdraw ] STR !window/<bind-screen>

@scrollbar/<try-draw> ( -- )
	[ LIT &reqdraw 00 ] ?{
		/<redraw>
		[ LIT2 01 _&reqdraw ] STR }
	JMP2r

(
@|DecStr )

@decstr/<reset> ( -- )
	;&buf ,&ptr STR2
	#0000 ;&buf STA2
	JMP2r

@decstr/<push-str-ws> ( num* -- )
	/<push-str>
	#20 !/<push>

@decstr/<push-str> ( num* -- )
	&>w
		LDAk DUP ?{ POP POP2 JMP2r }
		/<push>
		INC2 !/>w

@decstr/<push-esc> ( num* -- )
	&>we
		LDAk DUP ?{ POP POP2 JMP2r }
		DUP #20 NEQ ?{ LIT "\ /<push> }
		/<push>
		INC2 !/>we

@decstr/<push-num> ( short* -- )
	[ LIT2r ff00 ]
	&>read
		#000a DIV2k STH2k MUL2 SUB2 STH2r INCr ORAk ?/>read
	POP2
	&>write
		NIP #30 ADD /<push>
		OVRr ADDr STHkr ?/>write
	POP2r JMP2r

@decstr/<push> ( c -- )
	#00 [ LIT2 &ptr =&buf ]
	( | clamp )
	;&bufend LTH2k ?{
		( TODO: Warn ) SWP2 }
	POP2
	( | save )
	INC2k ,&ptr STR2
	STA2
	JMP2r

@decstr/make-numstr ( num* str* -- buf* )
	/<reset>
	SWP2 /<push-num>
	/<push-str>
	;&buf JMP2r

@decstr/make-name ( str* -- buf* )
	/<reset>
	[ LITr 00 ]
	&>wmn
		LDAk DUP ?{ &emn POP POPr POP2 ;&buf JMP2r }
		STHkr #0c NEQ ?{
			LIT2 ".. /<push>
			/<push> !/emn }
		/<push>
		INC2 INCr !/>wmn

@decstr/make-dir ( str* -- buf* )
	/<reset>
	&>wmd
		LDAk DUP ?{ &emd POP POP2 ;&buf JMP2r }
		DUP LIT "/ EQU ?/emd
		/<push>
		INC2 !/>wmd

(
@|Stdlib )

@<draw-times-addr> ( color times addr* auto -- )
	.Screen/auto DEO
	,&addr STR2
	SWP STH
	[ LITr -Screen/sprite ]
	&>l
		[ LIT2 &addr $2 ] .Screen/addr DEO2
		DEOkr
		INC DUP ?/>l
	POP POP2r JMP2r

@chr/hex ( c -- val )
	( dec ) [ LIT "0 ] SUB DUP #09 GTH [ JMP JMP2r ]
	( hex ) #27 SUB DUP #0a SUB #05 GTH [ JMP JMP2r ]
	( nil ) POP #ff JMP2r

@str/hex ( str* -- value* )
	[ LIT2r 0000 ]
	&>wh
		[ LITr 40 ] SFT2r LDAk chr/hex [ LITr 00 ] STH
		ADD2r INC2 LDAk ?/>wh
	POP2 STH2r JMP2r

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

@str/match ( a* b* -- t )
	LDAk LIT "* EQU ?/cmp-tail
	( >> )

@str/cmp-wild ( a* b* -- f )
	STH2
	&>wcw
		LDAk ?{ &dw LDA LDAr STHr
			( wildcard ) DUP LIT "* NEQ ?{ POP2 #01 JMP2r }
			EQU JMP2r }
		LDAk LDAkr STHr NEQ ?/dw
		INC2 INC2r !/>wcw

@str/cmp ( a* b* -- f )
	STH2
	&>wc
		LDAk ?{ &d LDA LDAr STHr EQU JMP2r }
		LDAk LDAkr STHr NEQ ?/d
		INC2 INC2r !/>wc

@str/cmp-tail ( a* b* -- t )
	INC2 STH2k /len SWP2 /cap SWP2 SUB2 STH2r !/cmp

@str/len ( str* -- len* )
	STH2k /cap STH2r SUB2 JMP2r

@str/walk-ws ( str* -- str* )
	&>ww
		LDAk DUP ?{ POP JMP2r }
		#21 LTH ?{ JMP2r }
		INC2 !/>ww

@str/<print-ln> ( str* -- )
	/<print>
	#0a18 DEO
	JMP2r

@str/<print> ( str* -- )
	&>w
		LDAk DUP ?{ POP POP2 JMP2r }
		#18 DEO
		INC2 !/>w

(
@|Dict )

@dict/win7 "Win7 00
	&home "Home 00
	&next "Next 00
	&open "Open 00
	&prev "Previous 00
	&next-row "Next 20 "Row 00
	&prev-row "Previous 20 "Row 00
	&mkdir "Create 20 "Folder 00
	&parent "Parent 00
	&deselect "Deselect 00
	&selected 20 "Selected 00
	&rename "Rename 00
	&copy "Copy 00
	&paste "Paste 00
	&invert "Invert 00
	&select-all "Select 20 "All 00
	&duplicate "Duplicate 00
	&edit "Edit 00
	&new-folder "New 20 "Folder 00
	&create "Create 20 "Folder 00
	&command "Command 00
	&modes "Modes 00
	&search "Search 00
	&files 20 "Files 00
	&mv-command "mv 20 00
	&mkdir-command "mkdir 20 00
	&cp-command "cp 20 00
	&empty "Empty 00
	&bytes 20 "bytes 00
	&dup-suffix "_2 00
	&md-ext ".md 00
	&chr-ext ".chr 00
	&icn-ext ".icn 00
	&uf2-ext ".uf2 00
	&rom-ext ".rom 00
	&png-ext ".png 00
	&jpg-ext ".jpg 00
	&home-path "./ 00
	&window "Window 00
	&incw "Inc. 20 "Width 00
	&decw "Dec. 20 "Width 00
	&inch "Inc. 20 "Height 00
	&dech "Dec. 20 "Height 00



( Utils )
(
@|Cursor )

@cursor/<lock> ( -- )
	#0000 .Mouse/vector DEO2
	( >> )

@cursor/<clear> ( -- )
	[ LIT2 12 -Screen/auto ] DEO
	#40 ;fill-icn !/<draw>

@cursor/<update> ( -- )
	/<clear>
	[ LIT2 16 -Screen/auto ] DEO
	#c1 ;&down-chr .Mouse/state DEI ?{ POP2 ;&up-chr }
	.Mouse/x DEI2 ,&x STR2
	.Mouse/y DEI2 ,&y STR2
	/<refocus>
	( >> )

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

@cursor/<refocus> ( -- )
	.Mouse/state DEI ?{
		.Mouse/y DEI2
		( | is in header )
		DUP2 #0013 LTH2 ?{
			( | is in status )
			#002a LTH2 ?{
				.Mouse/x DEI2
				( | is in scrollbar )
				scrollbar/is-within ?scrollbar/<bind>
				!directory/<bind> }
			!status/<bind> }
		POP2 !header/<bind> }
	JMP2r

(
@|Header )

@header/<bind> ( -- )
	;&on-mouse .Mouse/vector DEO2
	JMP2r

@header/on-mouse ( -> )
	cursor/<update>
	[ LIT2 &last $1 -Mouse/state ] DEI
	( | handlers )
	DUP2 #0002 NEQ2 ?{ window/<toggle-shade> }
	DUP2 #0001 NEQ2 ?{
		( | buttons )
		/outside-quit ?{ /<press-quit> }
		/outside-expand ?{ window/<expand> } }
	DUP2 #0100 NEQ2 ?{ /<release-quit> }
	,&last STR
	POP BRK

@header/outside-quit ( -- f )
	.Mouse/y DEI2 #0002 SUB2 #000c GTH2 ?{
		.Mouse/x DEI2 #0008 SUB2 #000c GTH2 ?{ #00 JMP2r } }
	#01 JMP2r

@header/outside-expand ( -- f )
	.Mouse/y DEI2 #0002 SUB2 #000c GTH2 ?{
		.Mouse/x DEI2 window/get-width #0016 SUB2 SUB2 #000c GTH2 ?{ #00 JMP2r } }
	#01 JMP2r

@header/<press-quit> ( -- )
	#0008 .Screen/x DEO2
	#0000 .Screen/y DEO2
	;&button-down-icn !/<draw-button>

@header/<set-width> ( width* -- )
	#03 SFT2 SUB ,&cols STR
	JMP2r

@header/<release-quit> ( -- )
	/outside-quit ?{ #800f DEO }
	( >> )

@header/<redraw> ( -- )
	#0000 .Screen/x DEO2
	#0000 .Screen/y DEO2
	[ LIT2 85 &cols $1 ] ;&bg-chr #25 <draw-times-addr>
	( | 1px right )
	.Screen/x DEI2k #0001 SUB2 ROT DEO2
	#000e .Screen/y DEO2
	[ LIT2 a2 -Screen/pixel ] DEO
	( | 1px left )
	#0001 .Screen/x DEO2
	#000e .Screen/y DEO2
	[ LIT2 b2 -Screen/pixel ] DEO
	( | title )
	path/make-location /<draw-title>
	( | button right )
	window/get-width #001a SUB2 .Screen/x DEO2
	#0000 .Screen/y DEO2
	;&collapse-icn /<draw-button>
	( | button left )
	#0008 .Screen/x DEO2
	#0000 .Screen/y DEO2
	;&button-icn
	( >> )

@header/<draw-button> ( button* -- )
	.Screen/addr DEO2
	[ LIT2 15 -Screen/auto ] DEO
	[ LIT2 09 -Screen/sprite ] DEOk DEO
	JMP2r

@header/<draw-title> ( str* -- )
	window/get-center OVR2 chicago/get-str-width #01 SFT2 SUB2 .Screen/x DEO2
	#0001 .Screen/y DEO2
	[ LIT2 15 -Screen/auto ] DEO
	#09 ;chicago/color STA
	#20 chicago/<draw-char>
	#09 chicago/<draw-left-color>
	#20 chicago/<draw-char>
	( | clip )
	.Screen/y DEI2k #0001 SUB2 ROT DEO2
	#81fe ;&bg-chr #15 !<draw-times-addr>

@header/<reqdraw> ( -- )
	[ LIT2 00 _&reqdraw ] STR !window/<bind-screen>

@header/<try-draw> ( -- )
	[ LIT &reqdraw 00 ] ?{
		/<redraw>
		[ LIT2 01 _&reqdraw ] STR }
	JMP2r

@utf8/next ( addr* -- addr* )
	&>w
		INC2 LDAk #06 SFT #02 EQU ?/>w
	JMP2r

(
@|Window )

@window/<init> ( -- )
	/get-width ORAk ?{ POP2 !/<detect-size> }
	/get-height !/<force-size>

@window/on-frame ( -> )
	#0000 .Screen/vector DEO2
	/<try-resize>
	path/<delay-load>
	header/<try-draw>
	directory/<try-draw>
	status/<try-draw>
	scrollbar/<try-draw>
	rename/<try-draw>
	mkdir/<try-draw>
	BRK

@window/<bind-screen> ( -- )
	;&on-frame .Screen/vector DEO2
	JMP2r

@window/<redraw-all> ( -- )
	header/<redraw>
	directory/<redraw>
	status/<redraw> !scrollbar/<redraw>

@window/<reqdraw-all> ( -- )
	header/<reqdraw>
	( >> )

@window/<reqdraw-body> ( -- )
	directory/<reqdraw>
	scrollbar/<reqdraw> !status/<reqdraw>

@window/get-center ( -- center* )
	/get-width #01 SFT2 JMP2r

@window/get-width ( -- width* )
	.&width LDZ2 JMP2r

@window/get-height ( -- width* )
	.&height LDZ2 JMP2r

@window/<expand> ( -- )
	directory/get-length STH2
	#0001
	&>l
		DUP2k MUL2 INC2 STH2kr GTH2 ?{ INC2 !/>l }
	POP2r
	( w ) DUP2 ;file/width MUL2 #0010 ADD2
	( h ) SWP2 ;file/height MUL2 ;scrollbar/y1 ADD2 #0010 ADD2 !/<set-size>

@window/<detect-size> ( -- )
	.Screen/width DEI2 .Screen/height DEI2
	( >> )

@window/<set-size> ( width* height* -- )
	/validate-size ?{ POP2 POP2 JMP2r }
	( >> )

@window/<force-size> ( width* height* -- )
	( | has changed )
	DUP2 .&height STZ2
	scrollbar/<set-height>
	DUP2 .&width STZ2
	DUP2 scrollbar/<set-width>
	DUP2 status/<set-width>
	DUP2 directory/<set-width>
	header/<set-width> !/req-resize

@window/validate-size ( w* h* -- w* h* t )
	DUP2 #0068 LTH2 ?/fail
	OVR2 #0060 LTH2 ?/fail
	DUP2 /get-height NEQ2 ?/valid
	OVR2 /get-width NEQ2 ?/valid
	&fail ( w* h* -- w* h* t )
	#00 JMP2r

	&valid ( w* h* -- w* h* t )
	#01 JMP2r

@window/<try-resize> ( -- )
	[ LIT &reqresize 01 ] ?{
		/get-width .Screen/width DEO2
		/get-height .Screen/height DEO2
		/<reqdraw-all>
		[ LIT2 01 _&reqresize ] STR }
	JMP2r

@window/req-resize ( -- )
	[ LIT2 00 _&reqresize ] STR !/<bind-screen>

@window/<toggle-shade> ( -- )
	#0011 .Screen/height DEI2 EQU2 ?{ #0011 .Screen/height DEO2 !header/<reqdraw> }
	/get-height .Screen/height DEO2 !/<reqdraw-all>

@window/<decw> ( -- )
	/get-width #0020 SUB2 /get-height !/<set-size>

@window/<incw> ( -- )
	/get-width #0020 ADD2 /get-height !/<set-size>

@window/<dech> ( -- )
	/get-width /get-height #0020 SUB2 !/<set-size>

@window/<inch> ( -- )
	/get-width /get-height #0020 ADD2 !/<set-size>

@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

(
@|Meta )

@meta/get-addr ( path* -- addr* )
	#0000 ,&port-deo2 STR2
	( | lit2 addr* )
	.File/name DEO2
	#0001 .File/length DEO2
	;&lit2 .File/read DEO2
	#0002 .File/length DEO2
	;&addr .File/read DEO2
	.File/success-lb DEI ?{ #0000 JMP2r }
	( | lit port-deo2* )
	#0001 .File/length DEO2
	;&lit .File/read DEO2
	#0002 .File/length DEO2
	;&port-deo2 .File/read DEO2
	.File/success-lb DEI ?{ #0000 JMP2r }
	( a ) [ LIT2 &lit2 $1 &lit $1 ] #a080 EQU2
	( b ) [ LIT2 &port-deo2 $2 ] #0637 EQU2 AND ?{ #0000 JMP2r }
	[ LIT2 &addr $2 ] JMP2r

@meta/<draw-icon> ( filepath* -- )
	/get-addr ORAk ?{ POP2 JMP2r }
	file/<seek>
	;&memlen .File/length DEO2
	;&buf .File/read DEO2
	;&mem str/cap INC2
	( | parse fields )
	LDAk #00 SWP #0003 MUL2 OVR2 INC2 ADD2 SWP2 INC2
	&>l
		LDAk #83 NEQ ?{
			( | Load icon )
			INC2k LDA2 file/<seek>
			;&iconlen .File/length DEO2
			;&icon .File/read DEO2
			[ LIT2 90 -File/success-lb ] DEI NEQ ?{
				( | Draw icon )
				.Screen/x DEI2 DUP2 #0018 SUB2 .Screen/x DEO2
				.Screen/y DEI2k #0018 SUB2 ROT DEO2
				;&icon .Screen/addr DEO2
				[ LIT2 26 -Screen/auto ] DEO
				[ LIT2 85 -Screen/sprite ] DEOk DEOk DEO
				.Screen/x DEO2 } }
		#0003 ADD2 GTH2k ?/>l
	POP2 POP2 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

(
@|Sans10 )

@sans/get-utf8-addr ( addr* -- addr* glyph* )
	LDAk #20 LTH ?{
		LDAk #7f GTH ?{
			LDAk #20 SUB #00 SWP #50 SFT2 ;&glyphs ADD2 JMP2r } }
	;check-icn JMP2r

@sans/get-utf8-width ( addr* -- addr* width* )
	LDAk #7f GTH ?{
		LDAk #20 SUB #0000 ROT ;&widths ADD2 LDA JMP2r }
	#0008 JMP2r

@sans/get-str-width ( text* -- width* )
	[ LIT2r 0000 ]
	&>ww
		/get-utf8-width STH2
		( > ) ADD2r utf8/next LDAk ?/>ww
	POP2 STH2r JMP2r

@sans/<draw-right> ( text* -- )
	.Screen/x DEI2 OVR2 /get-str-width SUB2 .Screen/x DEO2 !/<draw-left>

@sans/<draw-center-color> ( text* color -- )
	,&color STR
	( >> )

@sans/<draw-center> ( text* -- )
	.Screen/x DEI2 OVR2 /get-str-width #01 SFT2 SUB2
	( | Clamp left )
	DUP2 #8000 LTH2 ?{ POP2 #0000 }
	.Screen/x DEO2 !/<draw-left>

@sans/<draw-left-color> ( text* color -- )
	,&color STR
	( >> )

@sans/<draw-left> ( text* -- )
	[ LIT2 15 -Screen/auto ] DEO
	&>wsc
		/<draw-utf8>
		utf8/next LDAk ?/>wsc
	POP2 JMP2r

@sans/<draw-utf8> ( addr* -- addr* )
	[ LITr -Screen/x ] DEI2r
	( glyph* ) /get-utf8-addr .Screen/addr DEO2
	( width* ) /get-utf8-width STH2
	( draw2 ) [ LIT2 &color 01 -Screen/sprite ]
	( draw1 ) DUPr [ LITr 08 LTHr JMPr DEOk ] DEO
	ADD2r [ LITr -Screen/x ] DEO2r
	JMP2r

@sans/<draw-char> ( char -- )
	#20 SUB #00 SWP
	( ) DUP2 #50 SFT2 ;&glyphs ADD2 .Screen/addr DEO2
	( ) ;&widths ADD2 LDA #00 SWP .Screen/x DEI2 ADD2
	( ) ,&color LDR .Screen/sprite DEOk DEO
	.Screen/x DEO2
	JMP2r

@sans/<set-color> ( color -- )
	,&color STR
	JMP2r

(
@|Chicago )

@chicago/get-utf8-addr ( addr* -- addr* glyph* )
	LDAk #20 LTH ?{
		LDAk #7f GTH ?{
			LDAk #20 SUB #00 SWP #50 SFT2 ;&glyphs ADD2 JMP2r } }
	;check-icn JMP2r

@chicago/get-utf8-width ( addr* -- addr* width* )
	LDAk #7f GTH ?{
		LDAk #20 SUB #0000 ROT ;&widths ADD2 LDA JMP2r }
	#0008 JMP2r

@chicago/get-str-width ( text* -- width* )
	[ LIT2r 0000 ]
	&>ww
		/get-utf8-width STH2
		( > ) ADD2r utf8/next LDAk ?/>ww
	POP2 STH2r JMP2r

@chicago/<draw-center-color> ( text* color -- )
	STH
	.Screen/x DEI2 OVR2 /get-str-width #01 SFT2 SUB2 .Screen/x DEO2
	STHr !/<draw-left-color>

@chicago/<draw-left-color> ( text* color -- )
	,&color STR
	[ LIT2 15 -Screen/auto ] DEO
	&>wsc
		/<draw-utf8>
		utf8/next LDAk ?/>wsc
	POP2 JMP2r

@chicago/<draw-utf8> ( addr* -- addr* )
	[ LITr -Screen/x ] DEI2r
	( glyph* ) /get-utf8-addr .Screen/addr DEO2
	( width* ) /get-utf8-width STH2
	( draw2 ) [ LIT2 &color 01 -Screen/sprite ]
	( draw1 ) DUPr [ LITr 08 LTHr JMPr DEOk ] DEO
	ADD2r [ LITr -Screen/x ] DEO2r
	JMP2r

@chicago/<draw-char> ( char -- )
	#20 SUB #00 SWP
	( ) DUP2 #50 SFT2 ;&glyphs ADD2 .Screen/addr DEO2
	( ) ;&widths ADD2 LDA #00 SWP .Screen/x DEI2 ADD2
	( ) ,&color LDR .Screen/sprite DEOk DEO
	.Screen/x DEO2
	JMP2r



( Assets )

@check-icn [8
	aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55 ] $10

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

@status/bar-icn [8
	0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 00ff 00ff ]

@scrollbar/arrow-icn [8
	4040 4040 4040 4041 0000 0000 0000 c0e0
	4340 4040 4040 407f f000 0000 0000 00ff ]

@scrollbar/bg-icn [8
	556a 556a 556a 556a 55aa 55aa 55aa 55aa ]

@scrollbar/drag-chr [8
	7f40 4040 4340 4340 003f 3f3f 3c3f 3c3f
	ff00 0000 f000 f000 00ff ffff 0fff 0fff
	4340 4340 4040 7f00 3c3f 3c3f 3f3f 0000
	f000 f000 0000 ff00 0fff 0fff ffff 0000 ]

@appicon [8
	0000 0007 1810 1010 0000 0000 070f 0f0f
	0000 0000 f00f 0000 0000 0000 00f0 ffff
	0000 0018 e808 0812 0000 0000 10f0 f0e0
	1010 1010 1010 1010 0f0f 0f0f 0f0f 0f0f
	8181 0808 1842 3c00 7e7e f7f7 e7bd c3ff
	0808 0808 0812 0808 f0f0 f0f0 f0e0 f0f0
	1017 1800 0000 0000 0f08 0000 0000 0000
	0000 f00f 0000 0000 ffff 0f00 0000 0000
	0818 e000 0000 0000 f0e0 0000 0000 0000 ]

@header/bg-chr [8
	0000 00ff 00ff 00ff ffff ff00 ff00 ff00
	00ff 00ff 00ff 0000 ff00 ff00 ff00 ffff
	00ff 0000 0000 0000 ff00 0000 0000 0000 ]
	&button-icn [8
	0000 007f 4040 4040 4040 4040 407f 0000
	0000 00f7 1017 1017 1017 1017 10f7 0000 ]
	&button-down-icn [8
	0000 007f 4252 4a40 7840 4a52 427f 0000
	0000 00f7 1057 9017 f017 9057 10f7 0000 ]
	&collapse-icn [8
	0000 00ef 08e8 08e8 08ef 08e8 08ef 0000
	0000 00fe 2222 2222 22e2 0202 02fe 0000 ]

@cursor/up-chr [8
	0000 0000 0814 1417 0000 0000 0008 0808
	0000 0000 0000 00c0 0000 0000 0000 0000
	1010 2010 1008 0700 0f0f 1f0f 0f07 0000
	2010 1010 2020 c000 c0e0 e0e0 c0c0 0000 ]

@cursor/down-chr [8
	0000 0000 0000 0817 0000 0000 0000 0008
	0000 0000 0000 00c0 0000 0000 0000 0000
	1010 2010 1008 0700 0f0f 1f0f 0f07 0000
	2010 1010 2020 c000 c0e0 e0e0 c0c0 0000 ]

@file/folder [8
	0003 342c 2320 2020 0000 c030 0cc3 300c
	0000 0000 0000 cc33 0000 0000 0000 0000
	2020 2020 2020 2020 0300 0000 0000 0000
	00c0 300c 0300 0000 c020 2020 20a0 a0a0
	2020 2020 1806 0100 0000 0000 0000 8060
	0000 0000 0000 0000 a0a0 a0a0 a0a0 a0a0
	0000 0000 0000 0000 1806 0100 0000 0000
	0000 8060 1806 0100 a0a0 a0a0 a0a0 c000 ]

@file/text [8
	302c 2320 202c 232c 0000 00c0 300c 03c0
	0000 0000 0000 00c0 0000 0000 0000 0000
	232c 232c 2320 2020 00c0 30cc 33cc 330c
	300c 0300 00c0 30cc 0000 00c0 2020 2020
	2020 2020 1806 0100 0000 0000 0000 8060
	338c 0300 0000 0000 2020 2020 2020 2020
	0000 0000 0000 0000 1806 0100 0000 0000
	0000 8060 1806 0100 2020 2020 2020 a060 ]

@file/pict [8
	302c 2320 2024 2a29 0000 00c0 300c 0300
	0000 0000 0000 00c0 0000 0000 0000 0000
	2522 2020 202f 3020 0000 0000 0000 c020
	300c 0300 0000 0000 0000 00c0 2020 2020
	2020 2020 1806 0100 1008 0601 0000 8060
	0000 38c6 0100 0000 2020 2020 a060 2020
	0000 0000 0000 0000 1806 0100 0000 0000
	0000 8362 1a07 0000 2020 e040 8000 0000 ]

@file/rom [8
	704c 534c 734c 4340 0000 00c0 30cc 03c0
	0000 0000 0000 00c0 0000 0000 0000 0000
	4040 4040 4040 4040 300c 0300 0000 0000
	300c 03c0 300c 0300 0000 00c0 20a0 20e0
	4040 4060 1806 0100 0000 0000 0000 8060
	0000 0000 0000 0000 2020 2020 2020 2020
	0000 0000 0000 0000 1806 0100 0000 0000
	0000 8060 1806 0100 2020 2020 2020 a060 ]

@file/unknown [8
	302c 2320 2020 2020 0000 00c0 300c 0300
	0000 0000 0000 00c0 0000 0000 0000 0000
	2020 2020 2020 2020 0000 0000 0000 0001
	300c 0b10 2040 8000 0000 00c0 2020 2020
	2020 2020 1806 0100 0204 0810 2040 8060
	0000 0000 0000 0000 2020 2020 2020 2020
	0000 0000 0000 0000 1806 0100 0000 0000
	0000 8661 1806 0100 2020 20a0 2020 a060 ]

@file/data [8
	302c 2320 2020 2020 0000 00c0 300c 0300
	0000 0000 0000 00c0 0000 0000 0000 0000
	2020 2020 2020 2020 0000 0000 0000 0000
	300c 0300 0000 0000 0000 00c0 2020 2020
	2020 2020 1806 0100 0000 0000 0000 8060
	0000 0000 0000 0000 2020 2020 2020 2020
	0000 0000 0000 0000 1806 0100 0000 0000
	0000 8060 1806 0100 2020 2020 2020 a060 ]

@file/dot [8
	1024 0120 0020 0020 0000 0040 1004 0100
	0000 0000 0000 0040 0000 0000 0000 0000
	0020 0020 0020 0020 0000 0000 0000 0000
	1004 0100 0000 0000 0000 0040 0020 0020
	0020 0020 0802 0000 0000 0000 0000 8020
	0000 0000 0000 0000 0020 0020 0020 0020
	0000 0000 0000 0000 0802 0000 0000 0000
	0000 8020 0802 0000 0020 0020 0020 8000 ]

@chicago/widths [
	0406 070a 070b 0a03 0505 0707 0407 0407 0808 0808 0808 0808 0808 0404 0608 0608
	0b08 0808 0807 0708 0806 0709 070c 0908 0808 0807 0608 080c 0808 0805 0705 0808
	0608 0807 0808 0608 0804 0608 040c 0808 0808 0607 0608 080c 0808 0805 0505 0808 ]

@chicago/glyphs [
	0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0030 3030 3030 3000 3030 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0028 2828 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0909 3f12 127f 2424 0000 0000 0000 0000 0000 8000 0000 0000 0000 0000 0000
	0000 1038 5470 7038 1c1c 5438 1000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 3749 4a32 0404 090a 1211 0000 0000 0000 0000 0000 0000 8040 4080 0000 0000
	0000 003c 6666 3067 6666 663c 0000 0000 0000 0000 0080 8000 0000 0000 0000 0000
	0000 0040 4040 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 1020 6060 6060 6060 6020 1000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 4020 3030 3030 3030 3020 4000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0010 5438 5410 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0010 107c 1010 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0000 0000 0000 6060 2040 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0000 007c 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0000 0000 0000 6060 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0404 0808 1010 2020 4040 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 003c 6666 6666 6666 663c 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0018 3818 1818 1818 1818 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 003c 4606 060c 1830 607e 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 007e 0c18 3c06 0606 463c 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0006 0e16 2646 7f06 0606 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 007e 6060 7c06 0606 463c 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 001c 3060 7c66 6666 663c 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 007e 0606 060c 1818 1818 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 003c 6666 663c 6666 663c 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 003c 6666 6666 3e06 0c38 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0060 6000 0000 6060 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0060 6000 0000 6060 2040 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 1830 60c0 6030 1800 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0000 7e00 7e00 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 c060 3018 3060 c000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 003c 4606 0c18 1800 1818 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 1f20 4e52 524d 201f 0000 0000 0000 0000 0080 4040 4080 0000 0000 0000
	0000 003c 6666 667e 6666 6666 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 007c 6666 667c 6666 667c 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 003c 6260 6060 6060 623c 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 007c 6666 6666 6666 667c 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 007c 6060 6078 6060 607c 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 007c 6060 6078 6060 6060 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 003c 6260 606e 6666 663c 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0066 6666 667e 6666 6666 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0030 3030 3030 3030 3030 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 000c 0c0c 0c0c cccc cc78 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0063 666c 7870 786c 6663 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0060 6060 6060 6060 607c 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0040 6070 795f 4e44 4040 0000 0000 0000 0020 60e0 e060 6060 6060 0000 0000
	0000 0041 6171 795d 4f47 4341 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 003c 6666 6666 6666 663c 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 007c 6666 667c 6060 6060 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 003c 6666 6666 6666 663c 0600 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 007c 6666 667c 6666 6666 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0038 6460 7038 1c0c 4c38 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 00fc 3030 3030 3030 3030 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0066 6666 6666 6666 663c 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0066 6666 6666 6666 6478 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0066 6666 6666 6666 667f 0000 0000 0000 0060 6060 6060 6060 4080 0000 0000
	0000 0066 6666 663c 6666 6666 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0066 6666 663c 1818 1818 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 007e 0606 0c18 3060 607e 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 7060 6060 6060 6060 6060 7000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 4040 2020 1010 0808 0404 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 7030 3030 3030 3030 3030 7000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0008 1422 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0000 0000 0000 00ff 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 4020 1000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 003c 463e 6666 663e 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0060 607c 6666 6666 667c 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0038 6460 6060 6438 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0006 063e 6666 6666 663e 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 003c 6666 7e60 623c 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 001c 3078 3030 3030 3030 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 003e 6666 6666 663e 0646 3c00 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0060 607c 6666 6666 6666 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0060 0060 6060 6060 6060 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0018 0018 1818 1818 1818 1898 7000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0060 6066 6c78 7078 6c66 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0060 6060 6060 6060 6060 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 007f 6666 6666 6666 0000 0000 0000 0000 00c0 6060 6060 6060 0000 0000
	0000 0000 007c 6666 6666 6666 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 003c 6666 6666 663c 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 007c 6666 6666 667c 6060 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 003e 6666 6666 663e 0606 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 006c 7060 6060 6060 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0038 6470 381c 4c38 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0030 3078 3030 3030 3018 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0066 6666 6666 663e 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0066 6666 6666 6478 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0066 6666 6666 667f 0000 0000 0000 0000 0060 6060 6060 4080 0000 0000
	0000 0000 0066 6666 3c66 6666 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0066 6666 6666 663e 0646 3c00 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 007e 060c 1830 607e 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 1020 2020 2040 2020 2020 1000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 2020 2020 2020 2020 2020 2000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 4020 2020 2010 2020 2020 4000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0032 4c00 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0024 003c 6666 667e 6666 6666 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	1824 243c 6666 667e 6666 6666 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 003c 6260 6060 6060 623c 1808 1000 0000 0000 0000 0000 0000 0000 0000 0000
	0810 007c 6060 6078 6060 607c 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	324c 0041 6171 795d 4f47 4341 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0024 003c 6666 6666 6666 663c 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0024 0066 6666 6666 6666 663c 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0810 003c 463e 6666 663e 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 1008 003c 463e 6666 663e 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 1824 003c 463e 6666 663e 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0024 003c 463e 6666 663e 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 324c 003c 463e 6666 663e 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	1824 2418 003c 463e 6666 663e 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 003c 6260 6060 623c 1808 1000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0810 003c 6666 7e60 623c 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 1008 003c 6666 7e60 623c 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 1824 003c 6666 7e60 623c 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0024 003c 6666 7e60 623c 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 1020 0030 3030 3030 3030 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 2010 0030 3030 3030 3030 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 3048 0030 3030 3030 3030 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0048 0030 3030 3030 3030 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 324c 007c 6666 6666 6666 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0810 003c 6666 6666 663c 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 1008 003c 6666 6666 663c 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 1824 003c 6666 6666 663c 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0024 003c 6666 6666 663c 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 324c 003c 6666 6666 663c 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0810 0066 6666 6666 663e 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 1008 0066 6666 6666 663e 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 1824 0066 6666 6666 663e 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0024 0066 6666 6666 663e 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0020 7020 2020 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0030 4848 3000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 1038 5450 5054 3810 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 001c 3230 3078 3030 317e 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 3844 6030 584c 6434 180c 4438 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0038 7c7c 7c38 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 003f 6565 653d 0505 0505 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 001e 3333 3633 3333 3376 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 001e 215c 525c 5252 211e 0000 0000 0000 0000 0080 8080 8080 0000 0000 0000
	0000 001e 214c 5250 524c 211e 0000 0000 0000 0000 0080 8080 8080 0000 0000 0000
	0000 0074 2625 2400 0000 0000 0000 0000 0000 0040 c040 4000 0000 0000 0000 0000
	0000 0010 2040 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0048 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0004 7f08 7f10 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 003f 6666 667f 6666 6667 0000 0000 0000 00c0 0000 0080 0000 00c0 0000 0000
	0000 001e 3333 373b 3333 739e 0000 0000 0000 0080 0000 0000 0000 0000 0000 0000
	0000 0000 0038 4543 463c 0000 0000 0000 0000 0000 00f0 8808 8870 0000 0000 0000
	0000 0000 0010 107c 1010 007c 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0010 2040 2010 0078 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0020 1008 1020 0078 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0061 337f 0c7f 0c0c 0c0c 0000 0000 0000 0080 0080 0080 0000 0000 0000 0000
	0000 0000 0033 3333 3333 333e 2040 0000 0000 0000 0000 0000 0000 0080 0000 0000
	0000 0000 380c 1e36 6666 6438 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 007f 3118 0c06 0c18 317f 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 007f 3333 3333 3333 3333 0000 0000 0000 0080 0000 0000 0000 0000 0000 0000
	0000 0000 003f 5919 1919 1911 0000 0000 0000 0000 4080 8080 8080 8000 0000 0000
	0000 0018 3030 3030 3030 3030 3060 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0038 4c3c 6c6c 3c00 7c00 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0038 6c6c 6c6c 3800 7c00 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 001e 3361 6161 2112 1233 0000 0000 0000 0000 0080 8080 0000 0000 0000 0000
	0000 0000 003f 463e 6766 663f 0000 0000 0000 0000 00c0 6060 e000 20c0 0000 0000
	0000 0000 003d 6666 6e76 66bc 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0018 1800 1818 3060 623c 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0030 3000 3030 3030 3030 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0000 007c 0404 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0101 2262 1414 0808 0000 0000 0000 e080 0000 0000 0000 0000 0000 0000
	0000 0018 3030 7830 3030 3030 3060 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0001 1e21 1e20 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0808 1414 2222 417f 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0009 1224 4824 1209 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0048 2412 0912 2448 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0000 0000 0000 3333 0000 0000 0000 0000 0000 0000 0000 3030 0000 0000 ]

@sans/widths [
	0404 050a 070a 0903 0505 0707 0405 0406 0808 0808 0808 0808 0808 0404 0708 0706
	0a09 0708 0807 0708 0804 0607 070b 0809 0709 0707 0708 090b 0807 0804 0604 0707
	0407 0706 0707 0507 0703 0406 030b 0707 0707 0506 0607 070b 0707 0605 0505 0810 ]

@sans/glyphs [
	0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0020 2020 2020 0020 2000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 5050 5000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0009 093f 1212 7f24 2400 0000 0000 0000 0000 0080 0000 0000 0000 0000 0000
	0000 103c 5050 3814 1414 7810 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0031 494a 340b 1424 2300 0000 0000 0000 0000 0000 0000 8080 0000 0000 0000
	0000 0018 2428 102a 444a 3100 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 4040 4000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 1020 2040 4040 4020 2010 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 4020 2010 1010 1020 2040 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0028 107c 1028 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0010 107c 1010 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0000 0000 0020 2040 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0000 0070 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0000 0000 0020 2000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0008 0810 1020 2040 4000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 003c 4242 4242 4242 3c00 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0008 3808 0808 0808 0800 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 003c 4202 0408 1020 7e00 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 003c 4202 1c02 0242 3c00 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0004 0c14 2444 7e04 0400 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 007c 4040 7c02 0202 7c00 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 001c 2040 7c42 4242 3c00 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 007e 0204 0808 1010 1000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 003c 4242 3c42 4242 3c00 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 003c 4242 423e 0204 3800 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0020 2000 0020 2000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0020 2000 0020 2040 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0004 1860 1804 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0000 7e00 7e00 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0040 300c 3040 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0070 0808 1020 0020 2000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 1e21 4c52 5649 201c 0000 0000 0000 0000 0000 8080 8000 0000 0000 0000
	0000 0008 0814 1422 3e41 4100 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0078 4444 7844 4444 7800 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 001e 2040 4040 4020 1e00 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0078 4442 4242 4244 7800 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 007c 4040 7840 4040 7c00 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 007c 4040 7840 4040 4000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 001e 2040 4046 4222 1e00 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0042 4242 7e42 4242 4200 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0020 2020 2020 2020 2000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0008 0808 0808 0808 7000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0044 4850 6060 5048 4400 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0040 4040 4040 4040 7c00 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0060 6051 514a 4a44 4400 0000 0000 0000 00c0 c040 4040 4040 4000 0000 0000
	0000 0062 6252 524a 4a46 4600 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 001c 2241 4141 4122 1c00 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0078 4444 4478 4040 4000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 001c 2241 4141 4122 1c04 0200 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0078 4444 4870 4844 4400 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 003c 4040 3008 0404 7800 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 007c 1010 1010 1010 1000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0042 4242 4242 4242 3c00 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0041 4122 2214 1408 0800 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0044 4444 242a 2a11 1100 0000 0000 0000 0040 4040 8080 8000 0000 0000 0000
	0000 0042 2424 1818 2424 4200 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0082 4444 2810 1010 1000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 007c 0408 1010 2040 7c00 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 6040 4040 4040 4040 4060 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0040 4020 2010 1008 0800 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 6020 2020 2020 2020 2060 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0010 1028 2844 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0000 0000 0000 007e 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 4020 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0038 043c 444c 3400 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0040 4058 6444 4444 7800 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0038 4040 4040 3800 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0004 043c 4444 444c 3400 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0038 447c 4040 3c00 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0018 2070 2020 2020 2000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 003c 4444 444c 3404 3800 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0040 4058 6444 4444 4400 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0040 0040 4040 4040 4000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0020 0020 2020 2020 2020 c000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0040 4048 5060 5048 4800 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0040 4040 4040 4040 4000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0059 6644 4444 4400 0000 0000 0000 0000 0080 4040 4040 4000 0000 0000
	0000 0000 0058 6444 4444 4400 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0038 4444 4444 3800 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0058 6444 4444 7840 4000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 003c 4444 444c 3404 0400 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0050 6040 4040 4000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0038 4060 1808 7000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 2078 2020 2020 1800 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0044 4444 444c 3400 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0044 4428 2810 1000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0044 442a 2a11 1100 0000 0000 0000 0000 0040 4080 8000 0000 0000 0000
	0000 0000 0044 2810 1028 4400 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0044 4428 2810 1020 4000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0078 0810 2040 7800 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 1020 2020 4020 2020 2010 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 2020 2020 2020 2020 2020 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 4020 2020 1020 2020 2040 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0032 4c00 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 ]

(
@|Buffers )

@directory/buf $&buflen &bufend

@command/buf $&buflen &bufend

@rename/buf $&buflen &bufend

@decstr/buf $&buflen &bufend

@search/buf $&buflen &bufend

@mkdir/buf $&buflen &bufend

@copy/buf $&buflen &bufend

@sel/buf $&buflen &bufend

@path/mem $&memlen

@meta/buf $1 &mem $&memlen 0000 &icon $&iconlen