FileSelector::init:
		link	$2
		pToa	curFileStr
		bnt	code_010b
		ret

code_010b:	pToa	searchStr
		not
		bnt	code_0115
		lofsa	string_00c2	; "*.*"
		aTop	searchStr
code_0115:	pToa	font
		not
		bnt	code_011e
		lag	global[$3b]
		aTop	font
code_011e:	pushi	$8d		; 141, new
		push0
		class	Rect
		send	$4
		bnot
		sat	temp[$0]
		pushi	$e5		; 229, sizeToStr
		pushi	$3		; z
		lofsa	string_00c6	; "M"
		push
		pTos	font
		pushi	$ff		; 255, asInteger
		lat	temp[$0]
		send	$a
		bnot
		pushi	$4e		; 78, 'N', width
		push0
		lat	temp[$0]
		send	$4
		bnot
		push
		ldi	$b		; 11, inRight
		mul
		aTop	itemWidth
		pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
		pToa	homeStr
		not
		bnt	code_0177
		pushi	$8d		; 141, new
		push1
		pushi	$80		; 128, lastKey
		class	Str
		send	$6
		bnot
		aTop	homeStr
		push2
		pushi	$12		; 18, nsLeft
		push2
		pushi	$9		; inLeft
		pTos	homeStr
		callk	kernel_91, $4
		bnot
		push
		callk	kernel_93, $4
		bnot
code_0177:	pushi	$4b		; 75, 'K', at
		push1
		pushi	$5a		; 90, 'Z', size
		push0
		pToa	homeStr
		send	$4
		bnot
		push
		ldi	$1
		sub
		push
		pToa	homeStr
		send	$6
		bnot
		push
		ldi	$5c		; 92, '\', palette
		ne?
		bnt	code_01a8
		pushi	$4b		; 75, 'K', at
		pushi	$3		; z
		pushi	$5a		; 90, 'Z', size
		push0
		pToa	homeStr
		send	$4
		bnot
		push
		pushi	$5c		; 92, '\', palette
		push0
		pToa	homeStr
		send	$a
		bnot
code_01a8:	pushi	$d3		; 211, copy
		push1
		pTos	homeStr
		class	Str
		send	$6
		bnot
		aTop	curDirStr
		pushi	$d3		; 211, copy
		push1
		pTos	searchStr
		class	Str
		send	$6
		bnot
		aTop	curFileStr
		pushi	$22d		; 557, readDirectory
		push2
		pTos	curDirStr
		pTos	curFileStr
		self	$8
		bnot
		pushi	$23		; 35, '#', text
		push1
		lofsa	string_00c8	; ""
		push
		pushi	$2a		; 42, '*', font
		push1
		lsg	global[$3b]
		pushi	$4e		; 78, 'N', width
		push1
		pushi	$78		; 120, 'x', textRight
		pushi	$e1		; 225, height
		push1
		pushi	$c		; 12, inBottom
		pushi	$25		; 37, '%', fore
		push1
		pTos	fore
		pushi	$26		; 38, '&', back
		push1
		pTos	back
		pushi	$db		; 219, moveTo
		push2
		pTos	left
		pTos	top
		pushi	$1c7		; 455, handler
		push1
		pushSelf
		pushi	$8d		; 141, new
		push0
		class	TextItem
		send	$4
		bnot
		aTop	directoryI
		send	$32
		bnot
		pushi	$23		; 35, '#', text
		push1
		push2
		pTos	directoryI
		pTos	curDirStr
		call	code_0ecc, $4
		bnot
		push
		pToa	directoryI
		send	$6
		bnot
		pushi	$23		; 35, '#', text
		push1
		pTos	curFileStr
		pushi	$2a		; 42, '*', font
		push1
		lsg	global[$3b]
		pushi	$2e		; 46, '.', max
		push1
		pushi	$1e		; 30, brRight
		pushi	$db		; 219, moveTo
		push2
		pTos	left
		pushi	$8a		; 138, bottom
		push0
		pToa	directoryI
		send	$4
		bnot
		push
		ldi	$6		; maxScale
		add
		push
		pushi	$1be		; 446, setSize
		push0
		pushi	$1c7		; 455, handler
		push1
		pushSelf
		pushi	$8d		; 141, new
		push0
		class	EditItem
		send	$4
		bnot
		aTop	fileNameI
		send	$24
		bnot
		pushi	$29		; 41, ')', state
		push1
		pushi	$29		; 41, ')', state
		push0
		pToa	fileNameI
		send	$4
		bnot
		push
		ldi	$200		; 512, bottomValue
		or
		push
		pToa	fileNameI
		send	$6
		bnot
		pushi	$1be		; 446, setSize
		push0
		self	$4
		bnot
		pushi	$e2		; 226, heighten
		push1
		pushi	$6		; maxScale
		self	$6
		bnot
		pushi	$94		; 148, init
		push0
		&rest	$1
		super	Selector, $4
		bnot
		pushi	$8		; fixPriority
		pushi	$1c1		; 449, borderSize
		push0
		lag	global[$9]
		send	$4
		bnot
		add
		sat	temp[$1]
		pushi	$23		; 35, '#', text
		push1
		lofsa	string_00c9	; "..\\"
		push
		pushi	$1c8		; 456, helpStr
		push1
		lofsa	string_00cd	; "   Select to go one directory up towards the root."
		push
		pushi	$2a		; 42, '*', font
		push1
		lsg	global[$3b]
		pushi	$e1		; 225, height
		push1
		pushi	$c		; 12, inBottom
		pushi	$4e		; 78, 'N', width
		push1
		pushi	$1a		; 26, signal
		pushi	$51		; 81, 'Q', value
		push1
		pushi	$3		; z
		pushi	$29		; 41, ')', state
		push1
		push1
		pushi	$1c7		; 455, handler
		push1
		pushSelf
		pushi	$8d		; 141, new
		push0
		lag	global[$9]
		send	$4
		bnot
		aTop	upDirBtn
		send	$30
		bnot
		pushi	$db		; 219, moveTo
		push2
		pushi	$88		; 136, right
		push0
		pToa	upArrow
		send	$4
		bnot
		push
		lat	temp[$1]
		add
		push
		pushi	$89		; 137, top
		push0
		pToa	scrollBox
		send	$4
		bnot
		push
		pushi	$1c1		; 449, borderSize
		push0
		pToa	upDirBtn
		send	$4
		bnot
		add
		push
		pToa	upDirBtn
		send	$8
		bnot
		pushi	$23		; 35, '#', text
		push1
		lofsa	string_00c2	; "*.*"
		push
		pushi	$1c8		; 456, helpStr
		push1
		lofsa	string_0100	; "   Select to change the search mask."
		push
		pushi	$2a		; 42, '*', font
		push1
		lsg	global[$3b]
		pushi	$e1		; 225, height
		push1
		pushi	$c		; 12, inBottom
		pushi	$4e		; 78, 'N', width
		push1
		pushi	$1a		; 26, signal
		pushi	$51		; 81, 'Q', value
		push1
		push2
		pushi	$db		; 219, moveTo
		push2
		pushi	$88		; 136, right
		push0
		pToa	upDirBtn
		send	$4
		bnot
		push
		pushi	$1c1		; 449, borderSize
		push0
		pToa	upDirBtn
		send	$4
		bnot
		add
		push
		ldi	$6		; maxScale
		add
		push
		pushi	$89		; 137, top
		push0
		pToa	upDirBtn
		send	$4
		bnot
		push
		pushi	$29		; 41, ')', state
		push1
		push1
		pushi	$1c7		; 455, handler
		push1
		pushSelf
		pushi	$8d		; 141, new
		push0
		lag	global[$9]
		send	$4
		bnot
		aTop	fileMaskBtn
		send	$38
		bnot
		pushi	$23		; 35, '#', text
		push1
		lofsa	string_0125	; "Home"
		push
		pushi	$1c8		; 456, helpStr
		push1
		lofsa	string_012a	; "   Select to go back to your original home directory."
		push
		pushi	$2a		; 42, '*', font
		push1
		lsg	global[$3b]
		pushi	$e1		; 225, height
		push1
		pushi	$c		; 12, inBottom
		pushi	$4e		; 78, 'N', width
		push1
		pushi	$40		; 64, '@', yStep
		pushi	$51		; 81, 'Q', value
		push1
		pushi	$4		; scaleX
		pushi	$db		; 219, moveTo
		push2
		pushi	$87		; 135, left
		push0
		pToa	upDirBtn
		send	$4
		bnot
		push
		pushi	$8a		; 138, bottom
		push0
		pToa	upDirBtn
		send	$4
		bnot
		push
		lat	temp[$1]
		add
		push
		pushi	$29		; 41, ')', state
		push1
		push1
		pushi	$1c7		; 455, handler
		push1
		pushSelf
		pushi	$8d		; 141, new
		push0
		lag	global[$9]
		send	$4
		bnot
		aTop	homeBtn
		send	$38
		bnot
		pushi	$23		; 35, '#', text
		push1
		lofsa	string_0160	; " OK "
		push
		pushi	$1c8		; 456, helpStr
		push1
		lofsa	string_0165	; "   Select to use this selection."
		push
		pushi	$2a		; 42, '*', font
		push1
		lsg	global[$3b]
		pushi	$e1		; 225, height
		push1
		pushi	$c		; 12, inBottom
		pushi	$4e		; 78, 'N', width
		push1
		pushi	$40		; 64, '@', yStep
		pushi	$51		; 81, 'Q', value
		push1
		push1
		pushi	$db		; 219, moveTo
		push2
		pushi	$87		; 135, left
		push0
		pToa	upDirBtn
		send	$4
		bnot
		push
		pushi	$8a		; 138, bottom
		push0
		pToa	homeBtn
		send	$4
		bnot
		push
		lat	temp[$1]
		add
		push
		pushi	$29		; 41, ')', state
		push1
		pushi	$3		; z
		pushi	$1c7		; 455, handler
		push1
		pushSelf
		pushi	$8d		; 141, new
		push0
		lag	global[$9]
		send	$4
		bnot
		aTop	okBtn
		send	$38
		bnot
		pushi	$23		; 35, '#', text
		push1
		lofsa	string_0186	; "Cancel"
		push
		pushi	$1c8		; 456, helpStr
		push1
		lofsa	string_018d	; "   Select to abort this operation."
		push
		pushi	$2a		; 42, '*', font
		push1
		lsg	global[$3b]
		pushi	$e1		; 225, height
		push1
		pushi	$c		; 12, inBottom
		pushi	$4e		; 78, 'N', width
		push1
		pushi	$40		; 64, '@', yStep
		pushi	$51		; 81, 'Q', value
		push1
		push0
		pushi	$db		; 219, moveTo
		push2
		pushi	$87		; 135, left
		push0
		pToa	okBtn
		send	$4
		bnot
		push
		pushi	$8a		; 138, bottom
		push0
		pToa	okBtn
		send	$4
		bnot
		push
		lat	temp[$1]
		add
		push
		pushi	$29		; 41, ')', state
		push1
		pushi	$3		; z
		pushi	$1c7		; 455, handler
		push1
		pushSelf
		pushi	$8d		; 141, new
		push0
		lag	global[$9]
		send	$4
		bnot
		aTop	cancelBtn
		send	$38
		bnot
		pushi	$4e		; 78, 'N', width
		push1
		pushi	$88		; 136, right
		push0
		pToa	cancelBtn
		send	$4
		bnot
		push
		pTos	left
		ldi	$6		; maxScale
		add
		sub
		push
		pToa	directoryI
		send	$6
		bnot
		pushi	$4e		; 78, 'N', width
		push1
		pushi	$4e		; 78, 'N', width
		push0
		pToa	directoryI
		send	$4
		bnot
		push
		pToa	fileNameI
		send	$6
		bnot
		pushi	$1be		; 446, setSize
		push0
		self	$4
		bnot
		pTos	client
		pushi	$1d0		; 464, pScreen
		push0
		lag	global[$3]
		send	$4
		bnot
		eq?
		bnt	code_04ef
		pushi	$94		; 148, init
		push1
		pTos	client
		pToa	directoryI
		send	$6
		bnot
		pushi	$94		; 148, init
		push1
		pTos	client
		pToa	fileNameI
		send	$6
		bnot
		pushi	$94		; 148, init
		push1
		pTos	client
		pToa	homeBtn
		send	$6
		bnot
		pushi	$94		; 148, init
		push1
		pTos	client
		pToa	okBtn
		send	$6
		bnot
		pushi	$94		; 148, init
		push1
		pTos	client
		pToa	cancelBtn
		send	$6
		bnot
		pushi	$94		; 148, init
		push1
		pTos	client
		pToa	fileMaskBtn
		send	$6
		bnot
		pushi	$94		; 148, init
		push1
		pTos	client
		pToa	scrollBox
		send	$6
		bnot
		jmp	code_050f

code_04ef:	pToa	client
		bnt	code_050f
		pushi	$ad		; 173, addBefore
		push2
		pushSelf
		pTos	fileNameI
		pushi	$9f		; 159, add
		pushi	$6		; maxScale
		pTos	directoryI
		pTos	upDirBtn
		pTos	fileMaskBtn
		pTos	homeBtn
		pTos	okBtn
		pTos	cancelBtn
		send	$18
		bnot
code_050f:	pToa	curItem
		bnt	code_052c
		pToa	elements
		bnt	code_052c
		pushi	$a3		; 163, contains
		push1
		pTos	curItem
		send	$6
		bnot
		not
		bnt	code_052c
		pushi	$95		; 149, dispose
		push0
		pToa	curItem
		send	$4
		bnot
code_052c:	ldi	$0
		aTop	curItem
		ret

FileSelector::dispose:
		pToa	homeStr
		bnt	code_0540
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	homeStr
code_0540:	pToa	curFileStr
		bnt	code_054f
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	curFileStr
code_054f:	pToa	curDirStr
		bnt	code_055e
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	curDirStr
code_055e:	pToa	elements
		bnt	code_056d
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	elements
code_056d:	pushi	$95		; 149, dispose
		push0
		super	Selector, $4
		bnot
		ldi	$0
		aTop	upDirBtn
		aTop	fileMaskBtn
		aTop	cancelBtn
		aTop	okBtn
		aTop	homeBtn
		aTop	fileNameI
		aTop	directoryI
		ret

FileSelector::moveTo:
		link	$2
		pToa	directoryI
		bnt	code_060b
		lsp	param[$1]
		pToa	left
		sub
		sat	temp[$0]
		lsp	param[$2]
		pToa	top
		sub
		sat	temp[$1]
		lsp	param[$0]
		ldi	$3		; z
		lt?
		bnt	code_060b
		pToa	directoryI
		bnt	code_05b1
		pushi	$dd		; 221, moveBy
		push2
		lst	temp[$0]
		lst	temp[$1]
		send	$8
		bnot
code_05b1:	pToa	fileNameI
		bnt	code_05c0
		pushi	$dd		; 221, moveBy
		push2
		lst	temp[$0]
		lst	temp[$1]
		send	$8
		bnot
code_05c0:	pToa	upDirBtn
		bnt	code_05cf
		pushi	$dd		; 221, moveBy
		push2
		lst	temp[$0]
		lst	temp[$1]
		send	$8
		bnot
code_05cf:	pToa	fileMaskBtn
		bnt	code_05de
		pushi	$dd		; 221, moveBy
		push2
		lst	temp[$0]
		lst	temp[$1]
		send	$8
		bnot
code_05de:	pToa	homeBtn
		bnt	code_05ed
		pushi	$dd		; 221, moveBy
		push2
		lst	temp[$0]
		lst	temp[$1]
		send	$8
		bnot
code_05ed:	pToa	okBtn
		bnt	code_05fc
		pushi	$dd		; 221, moveBy
		push2
		lst	temp[$0]
		lst	temp[$1]
		send	$8
		bnot
code_05fc:	pToa	cancelBtn
		bnt	code_060b
		pushi	$dd		; 221, moveBy
		push2
		lst	temp[$0]
		lst	temp[$1]
		send	$8
		bnot
code_060b:	pushi	$db		; 219, moveTo
		push2
		lsp	param[$1]
		lsp	param[$2]
		super	Selector, $8
		bnot
		ret

FileSelector::setSize:
		link	$1
		pushi	$d3		; 211, copy
		push1
		pushSelf
		pushi	$8d		; 141, new
		push0
		class	Rect
		send	$4
		bnot
		sat	temp[$0]
		send	$6
		bnot
		pToa	directoryI
		bnt	code_063b
		pushi	$af		; 175, union
		push1
		push
		lat	temp[$0]
		send	$6
		bnot
code_063b:	pToa	fileNameI
		bnt	code_0649
		pushi	$af		; 175, union
		push1
		push
		lat	temp[$0]
		send	$6
		bnot
code_0649:	pToa	scrollBox
		bnt	code_0657
		pushi	$af		; 175, union
		push1
		push
		lat	temp[$0]
		send	$6
		bnot
code_0657:	pToa	downArrow
		bnt	code_0665
		pushi	$af		; 175, union
		push1
		push
		lat	temp[$0]
		send	$6
		bnot
code_0665:	pToa	cancelBtn
		bnt	code_0673
		pushi	$af		; 175, union
		push1
		push
		lat	temp[$0]
		send	$6
		bnot
code_0673:	pushi	$d3		; 211, copy
		push1
		lst	temp[$0]
		self	$6
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
		ret

FileSelector::draw:
		pToa	directoryI
		bnt	code_0690
		pushi	$57		; 87, 'W', draw
		push0
		send	$4
		bnot
code_0690:	pToa	fileNameI
		bnt	code_069a
		pushi	$57		; 87, 'W', draw
		push0
		send	$4
		bnot
code_069a:	pToa	homeBtn
		bnt	code_06a4
		pushi	$57		; 87, 'W', draw
		push0
		send	$4
		bnot
code_06a4:	pToa	okBtn
		bnt	code_06ae
		pushi	$57		; 87, 'W', draw
		push0
		send	$4
		bnot
code_06ae:	pToa	cancelBtn
		bnt	code_06b8
		pushi	$57		; 87, 'W', draw
		push0
		send	$4
		bnot
code_06b8:	pToa	fileMaskBtn
		bnt	code_06c2
		pushi	$57		; 87, 'W', draw
		push0
		send	$4
		bnot
code_06c2:	pToa	upDirBtn
		bnt	code_06cc
		pushi	$57		; 87, 'W', draw
		push0
		send	$4
		bnot
code_06cc:	pushi	$57		; 87, 'W', draw
		push0
		super	Selector, $4
		bnot
		ret

FileSelector::selectItem:
		link	$1
		pToa	curItem
		sat	temp[$0]
		pushi	$1d4		; 468, selectItem
		push0
		&rest	$1
		super	Selector, $4
		bnot
		pTos	curItem
		lat	temp[$0]
		ne?
		bnt	code_0721
		lsp	param[$0]
		ldi	$2
		lt?
		bnt	code_0721
		pushi	$d3		; 211, copy
		push1
		pushi	$23		; 35, '#', text
		push0
		pToa	curItem
		send	$4
		bnot
		push
		pToa	curFileStr
		send	$6
		bnot
		pToa	fileNameI
		bnt	code_0721
		pushi	$23		; 35, '#', text
		push1
		pTos	curFileStr
		pushi	$2d		; 45, '-', cursor
		push1
		pushi	$5a		; 90, 'Z', size
		push0
		pToa	curFileStr
		send	$4
		bnot
		push
		pushi	$57		; 87, 'W', draw
		push0
		pToa	fileNameI
		send	$10
		bnot
code_0721:	ret

FileSelector::sort:
		link	$3
		pushi	$221		; 545, pSelector
		push1
		pushSelf
		pushi	$94		; 148, init
		push1
		lsp	param[$1]
		pushi	$8d		; 141, new
		push0
		class	SelectorText
		send	$4
		bnot
		sat	temp[$1]
		send	$c
		bnot
		pushi	$a4		; 164, isEmpty
		push0
		pToa	elements
		send	$4
		bnot
		bnt	code_0756
		pushi	$9f		; 159, add
		push1
		lst	temp[$1]
		pToa	elements
		send	$6
		bnot
		jmp	code_07cf

code_0756:	pushi	$8d		; 141, new
		push1
		pTos	elements
		class	Sequence
		send	$6
		bnot
		sat	temp[$0]
code_0763:	pushi	$4c		; 76, 'L', next
		push0
		lat	temp[$0]
		send	$4
		bnot
		sat	temp[$2]
		bnt	code_07a9
		pushi	$22f		; 559, test
		push1
		pushi	$10		; 16, cel
		pushi	$23		; 35, '#', text
		push0
		send	$4
		bnot
		send	$6
		bnot
		push
		pushi	$22f		; 559, test
		push1
		pushi	$10		; 16, cel
		lap	param[$1]
		send	$6
		bnot
		ne?
		bt	code_07a3
		pushi	$d5		; 213, compare
		push1
		pushi	$23		; 35, '#', text
		push0
		lat	temp[$2]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		push
		ldi	$0
		lt?
code_07a3:	bnt	code_07a9
		ldi	$0
		jmp	code_0763

code_07a9:	pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
		lat	temp[$2]
		bnt	code_07c4
		pushi	$ad		; 173, addBefore
		push2
		push
		lst	temp[$1]
		pToa	elements
		send	$8
		bnot
		jmp	code_07cf

code_07c4:	pushi	$9f		; 159, add
		push1
		lst	temp[$1]
		pToa	elements
		send	$6
		bnot
code_07cf:	ret

FileSelector::readDirectory:
		link	$5
		pToa	elements
		bnt	code_07e4
		pushi	$9d		; 157, eachElementDo
		push1
		pushi	$95		; 149, dispose
		pushi	$a6		; 166, release
		push0
		send	$a
		bnot
code_07e4:	pushi	$8d		; 141, new
		push0
		class	Set
		send	$4
		bnot
		aTop	elements
		pushi	$d3		; 211, copy
		push1
		lsp	param[$1]
		class	Str
		send	$6
		bnot
		sat	temp[$1]
		pushi	$8d		; 141, new
		push1
		pushi	$d		; 13, seenRect
		lofsa	<NIL>
		send	$6
		bnot
		sat	temp[$0]
		pushi	$8d		; 141, new
		push0
		class	Set
		send	$4
		bnot
		sat	temp[$2]
		pushi	$8d		; 141, new
		push0
		class	Set
		send	$4
		bnot
		sat	temp[$3]
		push2
		lst	temp[$1]
		lofsa	string_00c2	; "*.*"
		push
		call	code_1040, $4
		bnot
		pushi	$4		; scaleX
		pushi	$8		; fixPriority
		pushi	$71		; 113, 'q', data
		push0
		lat	temp[$1]
		send	$4
		bnot
		push
		push2
		pushi	$9		; inLeft
		lst	temp[$0]
		callk	kernel_91, $4
		bnot
		push
		pushi	$10		; 16, cel
		callk	kernel_93, $8
		bnot
		bnt	code_08b9
code_084c:	pushi	$22f		; 559, test
		push1
		pushi	$10		; 16, cel
		lat	temp[$0]
		send	$6
		bnot
		bnt	code_08a3
		pushi	$d5		; 213, compare
		push1
		lofsa	string_01b0	; "."
		push
		lat	temp[$0]
		send	$6
		bnot
		push
		ldi	$0
		eq?
		bt	code_087d
		pushi	$d5		; 213, compare
		push1
		lofsa	string_01b2	; ".."
		push
		lat	temp[$0]
		send	$6
		bnot
		push
		ldi	$0
		eq?
code_087d:	bnt	code_088a
		pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
		jmp	code_0895

code_088a:	pushi	$9f		; 159, add
		push1
		lst	temp[$0]
		lat	temp[$2]
		send	$6
		bnot
code_0895:	pushi	$8d		; 141, new
		push1
		pushi	$d		; 13, seenRect
		lofsa	<NIL>
		send	$6
		bnot
		sat	temp[$0]
code_08a3:	push2
		pushi	$9		; inLeft
		push2
		pushi	$9		; inLeft
		lst	temp[$0]
		callk	kernel_91, $4
		bnot
		push
		callk	kernel_93, $4
		bnot
		not
		bt	code_08b9
		jmp	code_084c

code_08b9:	lsp	param[$0]
		ldi	$1
		gt?
		bnt	code_08ca
		push2
		lst	temp[$1]
		lsp	param[$2]
		call	code_1040, $4
		bnot
code_08ca:	pushi	$4		; scaleX
		pushi	$8		; fixPriority
		pushi	$71		; 113, 'q', data
		push0
		lat	temp[$1]
		send	$4
		bnot
		push
		pushi	$71		; 113, 'q', data
		push0
		lat	temp[$0]
		send	$4
		bnot
		push
		push0
		callk	kernel_93, $8
		bnot
		bnt	code_0923
code_08e7:	pushi	$22f		; 559, test
		push1
		push0
		lat	temp[$0]
		send	$6
		bnot
		not
		bnt	code_090d
		pushi	$9f		; 159, add
		push1
		lst	temp[$0]
		lat	temp[$3]
		send	$6
		bnot
		pushi	$8d		; 141, new
		push1
		pushi	$d		; 13, seenRect
		lofsa	<NIL>
		send	$6
		bnot
		sat	temp[$0]
code_090d:	push2
		pushi	$9		; inLeft
		push2
		pushi	$9		; inLeft
		lst	temp[$0]
		callk	kernel_91, $4
		bnot
		push
		callk	kernel_93, $4
		bnot
		not
		bt	code_0923
		jmp	code_08e7

code_0923:	pushi	$95		; 149, dispose
		push0
		lat	temp[$1]
		send	$4
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
		ldi	$0
		sat	temp[$4]
code_0939:	lst	temp[$4]
		pushi	$5a		; 90, 'Z', size
		push0
		lat	temp[$2]
		send	$4
		bnot
		lt?
		bnt	code_0997
		pushi	$29		; 41, ')', state
		push1
		pushi	$29		; 41, ')', state
		push0
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$4]
		lat	temp[$2]
		send	$6
		bnot
		send	$4
		bnot
		push
		pushi	$f5		; 245, format
		push2
		lofsa	string_01b5	; "<%s>"
		push
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$4]
		lat	temp[$2]
		send	$6
		bnot
		push
		lofsa	<NIL>
		send	$8
		bnot
		sat	temp[$0]
		send	$6
		bnot
		pushi	$22e		; 558, sort
		push1
		lst	temp[$0]
		self	$6
		bnot
		pushi	$95		; 149, dispose
		push0
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$4]
		lat	temp[$2]
		send	$6
		bnot
		send	$4
		bnot
		+at	temp[$4]
		jmp	code_0939

code_0997:	pushi	$a6		; 166, release
		push0
		pushi	$95		; 149, dispose
		push0
		lat	temp[$2]
		send	$8
		bnot
		ldi	$0
		sat	temp[$4]
code_09a8:	lst	temp[$4]
		pushi	$5a		; 90, 'Z', size
		push0
		lat	temp[$3]
		send	$4
		bnot
		lt?
		bnt	code_09cb
		pushi	$22e		; 558, sort
		push1
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$4]
		lat	temp[$3]
		send	$6
		bnot
		push
		self	$6
		bnot
		+at	temp[$4]
		jmp	code_09a8

code_09cb:	pushi	$a6		; 166, release
		push0
		pushi	$95		; 149, dispose
		push0
		lat	temp[$3]
		send	$8
		bnot
		ret

FileSelector::update:
		link	$3
		lap	param[$0]
		bnt	code_0a26
		pushi	$d3		; 211, copy
		push1
		lsp	param[$1]
		pToa	curFileStr
		send	$6
		bnot
		pushi	$22d		; 557, readDirectory
		push2
		pTos	curDirStr
		pTos	curFileStr
		self	$8
		bnot
		ldi	$0
		aTop	start
		aTop	curItem
		pushi	$5a		; 90, 'Z', size
		push0
		pToa	elements
		send	$4
		bnot
		push
		pToa	itemsPerPage
		sub
		sat	temp[$1]
		pushi	$200		; 512, bottomValue
		push1
		push
		ldi	$0
		lt?
		bnt	code_0a17
		ldi	$0
		jmp	code_0a19

code_0a17:	lat	temp[$1]
code_0a19:	push
		pushi	$94		; 148, init
		push0
		pushi	$57		; 87, 'W', draw
		push0
		pToa	scrollBar
		send	$e
		bnot
code_0a26:	pToa	directoryI
		bnt	code_0a7e
		push2
		push
		pTos	curDirStr
		call	code_0ecc, $4
		bnot
		sat	temp[$0]
		pushi	$23		; 35, '#', text
		push0
		pToa	directoryI
		send	$4
		bnot
		bnt	code_0a4f
		pushi	$95		; 149, dispose
		push0
		pushi	$23		; 35, '#', text
		push0
		pToa	directoryI
		send	$4
		bnot
		send	$4
		bnot
code_0a4f:	pushi	$26		; 38, '&', back
		push1
		lsg	global[$58]
		pushi	$25		; 37, '%', fore
		push1
		lsg	global[$54]
		pToa	directoryI
		send	$c
		bnot
		pushi	$23		; 35, '#', text
		push1
		pushi	$d0		; 208, with
		push1
		lst	temp[$0]
		class	Str
		send	$6
		bnot
		push
		pushi	$57		; 87, 'W', draw
		push0
		pToa	directoryI
		send	$a
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
code_0a7e:	pToa	fileNameI
		bnt	code_0a9b
		pushi	$23		; 35, '#', text
		push1
		pTos	curFileStr
		pushi	$2d		; 45, '-', cursor
		push1
		pushi	$5a		; 90, 'Z', size
		push0
		pToa	curFileStr
		send	$4
		bnot
		push
		pushi	$57		; 87, 'W', draw
		push0
		pToa	fileNameI
		send	$10
		bnot
code_0a9b:	pushi	$1ad		; 429, update
		push0
		super	Selector, $4
		bnot
		ret

FileSelector::handleEvent:
		link	$6
		ldi	$0
		sat	temp[$0]
		pToa	fileNameI
		bnt	code_0b30
		pushi	$29		; 41, ')', state
		push0
		send	$4
		bnot
		push
		ldi	$8		; fixPriority
		and
		bnt	code_0b30
		pushi	$2b		; 43, '+', type
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$4		; scaleX
		eq?
		bnt	code_0b30
		pushi	$31		; 49, '1', message
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$d		; 13, seenRect
		eq?
		bnt	code_0b30
		pushi	$23		; 35, '#', text
		push0
		pToa	fileNameI
		send	$4
		bnot
		sat	temp[$2]
		pushi	$ae		; 174, indexOf
		push1
		pushi	$2a		; 42, '*', font
		send	$6
		bnot
		push
		ldi	$ff		; 255, asInteger
		ne?
		bt	code_0b02
		pushi	$ae		; 174, indexOf
		push1
		pushi	$3f		; 63, '?', xStep
		lat	temp[$2]
		send	$6
		bnot
		push
		ldi	$ff		; 255, asInteger
		ne?
code_0b02:	bnt	code_0b19
		pushi	$1ad		; 429, update
		push1
		lst	temp[$2]
		self	$6
		bnot
		pushi	$50		; 80, 'P', claimed
		push1
		push1
		lap	param[$1]
		send	$6
		bnot
		jmp	code_0d2c

code_0b19:	pushi	$50		; 80, 'P', claimed
		push1
		push1
		lap	param[$1]
		send	$6
		bnot
		pushi	$1d4		; 468, selectItem
		push1
		pTos	okBtn
		pToa	client
		send	$6
		bnot
		jmp	code_0d2c

code_0b30:	pushi	$50		; 80, 'P', claimed
		push0
		lap	param[$1]
		send	$4
		bnot
		bt	code_0b40
		pTos	state
		ldi	$1
		and
		not
code_0b40:	bnt	code_0b47
		ldi	$0
		jmp	code_0d2c

code_0b47:	pushi	$2b		; 43, '+', type
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$1
		and
		bnt	code_0c92
		pushi	$eb		; 235, onMe
		push1
		lsp	param[$1]
		pToa	scrollBox
		send	$6
		bnot
		bnt	code_0c92
		pushi	$50		; 80, 'P', claimed
		push1
		push1
		lap	param[$1]
		send	$6
		bnot
		ldi	$0
		sat	temp[$0]
		push2
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		pushi	$89		; 137, top
		push0
		pToa	scrollBox
		send	$4
		bnot
		sub
		push
		pushi	$e1		; 225, height
		push0
		pToa	scrollBox
		send	$4
		bnot
		push
		pToa	itemsPerPage
		div
		div
		sat	temp[$3]
		push
		pToa	start
		add
		sat	temp[$1]
		push
		pushi	$5a		; 90, 'Z', size
		push0
		pToa	elements
		send	$4
		bnot
		lt?
		bnt	code_0d2c
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$1]
		pToa	elements
		send	$6
		bnot
		sat	temp[$5]
		pushi	$29		; 41, ')', state
		push1
		pushi	$29		; 41, ')', state
		push0
		pushi	$23		; 35, '#', text
		push0
		send	$4
		bnot
		send	$4
		bnot
		push
		pushi	$d3		; 211, copy
		push1
		pushi	$23		; 35, '#', text
		push0
		lat	temp[$5]
		send	$4
		bnot
		push
		lofsa	<NIL>
		send	$6
		bnot
		sat	temp[$2]
		send	$6
		bnot
		pushi	$22f		; 559, test
		push1
		pushi	$10		; 16, cel
		lat	temp[$2]
		send	$6
		bnot
		bnt	code_0c20
		pushi	$f8		; 248, translate
		push2
		lofsa	string_01ba	; "<"
		push
		lofsa	string_00c8	; ""
		push
		lat	temp[$2]
		send	$8
		bnot
		pushi	$f8		; 248, translate
		push2
		lofsa	string_01bc	; ">"
		push
		lofsa	string_00c8	; ""
		push
		lat	temp[$2]
		send	$8
		bnot
		push2
		pTos	curDirStr
		lst	temp[$2]
		call	code_10fa, $4
		bnot
		pushi	$1ad		; 429, update
		push1
		pTos	curFileStr
		self	$6
		bnot
		jmp	code_0c81

code_0c20:	pToa	allowDoubleClick
		bnt	code_0c6d
		pTos	curItem
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$1]
		pToa	elements
		send	$6
		bnot
		eq?
		bnt	code_0c6d
		push0
		callk	kernel_121, $0
		bnot
		push
		pToa	doubleClickTime
		sub
		push
		ldi	$14		; 20, nsRight
		lt?
		bnt	code_0c6d
		pushi	$51		; 81, 'Q', value
		push0
		pToa	okBtn
		send	$4
		bnot
		aTop	value
		pushi	$1d4		; 468, selectItem
		push1
		pTos	okBtn
		pToa	client
		send	$6
		bnot
		pushi	$2b		; 43, '+', type
		push1
		pushi	$4		; scaleX
		pushi	$31		; 49, '1', message
		push1
		pushi	$d		; 13, seenRect
		pushi	$50		; 80, 'P', claimed
		push1
		push0
		lap	param[$1]
		send	$12
		bnot
		jmp	code_0c81

code_0c6d:	push0
		callk	kernel_121, $0
		bnot
		aTop	doubleClickTime
		pushi	$1d4		; 468, selectItem
		push1
		lst	temp[$1]
		self	$6
		bnot
		ldi	$0
		sat	temp[$0]
code_0c81:	pushi	$95		; 149, dispose
		push0
		lat	temp[$2]
		send	$4
		bnot
		push0
		callk	kernel_33, $0
		bnot
		jmp	code_0d2c

code_0c92:	pTos	state
		ldi	$8		; fixPriority
		and
		bnt	code_0d1e
		pushi	$2b		; 43, '+', type
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$10		; 16, cel
		eq?
		bnt	code_0d1e
		pToa	curItem
		sat	temp[$4]
		pushi	$c8		; 200, handleEvent
		push1
		lsp	param[$1]
		super	Selector, $6
		bnot
		pushi	$31		; 49, '1', message
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		dup
		ldi	$1
		eq?
		bnt	code_0cef
		lst	temp[$4]
		pToa	curItem
		ne?
		bnt	code_0d1b
		pushi	$d3		; 211, copy
		push1
		pToa	curItem
		bnt	code_0cde
		pushi	$23		; 35, '#', text
		push0
		send	$4
		bnot
		jmp	code_0ce0

code_0cde:	pToa	searchStr
code_0ce0:	push
		pToa	curFileStr
		send	$6
		bnot
		pushi	$1ad		; 429, update
		push0
		self	$4
		bnot
		jmp	code_0d1b

code_0cef:	dup
		ldi	$5		; scaleY
		eq?
		bnt	code_0d1b
		lst	temp[$4]
		pToa	curItem
		ne?
		bnt	code_0d1b
		pushi	$d3		; 211, copy
		push1
		pToa	curItem
		bnt	code_0d0c
		pushi	$23		; 35, '#', text
		push0
		send	$4
		bnot
		jmp	code_0d0e

code_0d0c:	pToa	searchStr
code_0d0e:	push
		pToa	curFileStr
		send	$6
		bnot
		pushi	$1ad		; 429, update
		push0
		self	$4
		bnot
code_0d1b:	toss
		jmp	code_0d2c

code_0d1e:	pushi	$c8		; 200, handleEvent
		push1
		lsp	param[$1]
		super	Selector, $6
		bnot
		bnt	code_0d2c
		ldi	$0
code_0d2c:	lat	temp[$0]
		ret

FileSelector::doit:
		link	$2
		lsp	param[$0]
		ldi	$1
		gt?
		bnt	code_0e72
		lsp	param[$2]
		ldi	$45		; 69, 'E', doit
		eq?
		bnt	code_0e72
		lsp	param[$1]
		dup
		pToa	fileNameI
		eq?
		bnt	code_0d4e
		ldi	$0
		jmp	code_0e6f

code_0d4e:	dup
		pToa	homeBtn
		eq?
		bnt	code_0d6b
		pushi	$d3		; 211, copy
		push1
		pTos	homeStr
		pToa	curDirStr
		send	$6
		bnot
		pushi	$1ad		; 429, update
		push1
		pTos	curFileStr
		self	$6
		bnot
		jmp	code_0e6f

code_0d6b:	dup
		pToa	fileMaskBtn
		eq?
		bnt	code_0df8
		pushi	$d0		; 208, with
		push1
		lofsa	string_00c2	; "*.*"
		push
		class	Str
		send	$6
		bnot
		sat	temp[$0]
		pushi	$d0		; 208, with
		push1
		pushi	$23		; 35, '#', text
		push0
		pToa	fileMaskBtn
		send	$4
		bnot
		push
		class	Str
		send	$6
		bnot
		sat	temp[$1]
		pushi	$d5		; 213, compare
		push1
		lst	temp[$0]
		send	$6
		bnot
		push
		ldi	$0
		eq?
		bnt	code_0dbb
		pushi	$d3		; 211, copy
		push1
		lst	temp[$0]
		pToa	curFileStr
		send	$6
		bnot
		pushi	$23		; 35, '#', text
		push1
		pTos	searchStr
		pToa	fileMaskBtn
		send	$6
		bnot
		jmp	code_0dd2

code_0dbb:	pushi	$d3		; 211, copy
		push1
		pTos	searchStr
		pToa	curFileStr
		send	$6
		bnot
		pushi	$23		; 35, '#', text
		push1
		lofsa	string_00c2	; "*.*"
		push
		pToa	fileMaskBtn
		send	$6
		bnot
code_0dd2:	pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$1]
		send	$4
		bnot
		pushi	$57		; 87, 'W', draw
		push0
		pToa	fileMaskBtn
		send	$4
		bnot
		pushi	$1ad		; 429, update
		push1
		pTos	curFileStr
		self	$6
		bnot
		jmp	code_0e6f

code_0df8:	dup
		pToa	upDirBtn
		eq?
		bnt	code_0e12
		push1
		pTos	curDirStr
		call	code_113b, $2
		bnot
		pushi	$1ad		; 429, update
		push1
		pTos	curFileStr
		self	$6
		bnot
		jmp	code_0e6f

code_0e12:	dup
		pToa	okBtn
		eq?
		bnt	code_0e4e
		pushi	$d3		; 211, copy
		push1
		pTos	curDirStr
		pToa	homeStr
		send	$6
		bnot
		pushi	$51		; 81, 'Q', value
		push0
		pToa	okBtn
		send	$4
		bnot
		aTop	value
		pushi	$94		; 148, init
		push1
		pushi	$d0		; 208, with
		push1
		pTos	curFileStr
		class	Str
		send	$6
		bnot
		push
		pushi	$8d		; 141, new
		push0
		class	SelectorText
		send	$4
		bnot
		aTop	curItem
		send	$6
		bnot
		jmp	code_0e6f

code_0e4e:	dup
		pToa	cancelBtn
		eq?
		bnt	code_0e64
		pushi	$51		; 81, 'Q', value
		push0
		pToa	cancelBtn
		send	$4
		bnot
		aTop	value
		ldi	$0
		aTop	curItem
		jmp	code_0e6f

code_0e64:	pushi	$45		; 69, 'E', doit
		push2
		lsp	param[$1]
		lsp	param[$2]
		super	Selector, $8
		bnot
code_0e6f:	toss
		jmp	code_0e76

code_0e72:	pToa	curItem
		aTop	value
code_0e76:	ldi	$1
		ret

<NIL>::set:
		pTos	state
		lap	param[$1]
		or
		aTop	state
		ret

<NIL>::clear:
		pTos	state
		lap	param[$1]
		bnot
		and
		aTop	state
		ret

<NIL>::test:
		pTos	state
		lap	param[$1]
		and
		ret

<NIL>::compare:
		link	$3
		lap	param[$1]
		bnt	code_0ec1
		ldi	$0
		sat	temp[$0]
code_0e9b:	pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$0]
		lap	param[$1]
		send	$6
		bnot
		sat	temp[$1]
		push
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$0]
		self	$6
		bnot
		sat	temp[$2]
		eq?
		bnt	code_0eb9
		+at	temp[$0]
		jmp	code_0e9b

code_0eb9:	lst	temp[$1]
		lat	temp[$2]
		sub
		ret

		jmp	code_0ecc

code_0ec1:	pushi	$d5		; 213, compare
		push1
		lsp	param[$1]
		super	Str, $6
		bnot
		ret

code_0ecc:	ret

		link	$7
		pushi	$d0		; 208, with
		push1
		lsp	param[$2]
		class	Str
		send	$6
		bnot
		sat	temp[$1]
		pushi	$8d		; 141, new
		push0
		class	Rect
		send	$4
		bnot
		sat	temp[$0]
		pushi	$2a		; 42, '*', font
		push0
		lap	param[$1]
		send	$4
		bnot
		sat	temp[$5]
		pushi	$d0		; 208, with
		push1
		lofsa	string_01cb	; "..."
		push
		class	Str
		send	$6
		bnot
		sat	temp[$2]
		pushi	$e5		; 229, sizeToStr
		pushi	$3		; z
		push
		lst	temp[$5]
		pushi	$ff		; 255, asInteger
		lat	temp[$0]
		send	$a
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$2]
		send	$4
		bnot
		pushi	$4e		; 78, 'N', width
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		pushi	$4e		; 78, 'N', width
		push0
		lat	temp[$0]
		send	$4
		bnot
		sub
		sat	temp[$4]
		ldi	$0
		sat	temp[$3]
		push2
		push0
		lst	temp[$5]
		callk	kernel_73, $4
		bnot
		sat	temp[$6]
code_0f3b:	pushi	$e5		; 229, sizeToStr
		pushi	$3		; z
		lst	temp[$1]
		lst	temp[$5]
		lst	temp[$4]
		lat	temp[$0]
		send	$a
		bnot
		pushi	$e1		; 225, height
		push0
		lat	temp[$0]
		send	$4
		bnot
		push
		lat	temp[$6]
		le?
		bnt	code_0f60
		jmp	code_0f8a

		jmp	code_0f3b

code_0f60:	ldi	$1
		sat	temp[$3]
		lat	temp[$1]
		sat	temp[$2]
		pushi	$fb		; 251, subStr
		push2
		push1
		pushi	$5a		; 90, 'Z', size
		push0
		send	$4
		bnot
		push
		ldi	$1
		sub
		push
		lat	temp[$2]
		send	$8
		bnot
		sat	temp[$1]
		pushi	$95		; 149, dispose
		push0
		lat	temp[$2]
		send	$4
		bnot
		jmp	code_0f3b

code_0f8a:	pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
		lat	temp[$3]
		bnt	code_0fb5
		lat	temp[$1]
		sat	temp[$2]
		pushi	$f5		; 245, format
		push2
		lofsa	string_01cf	; "...%s"
		push
		lst	temp[$2]
		class	Str
		send	$8
		bnot
		sat	temp[$1]
		pushi	$95		; 149, dispose
		push0
		lat	temp[$2]
		send	$4
		bnot
code_0fb5:	lat	temp[$1]
code_0fb7:	ret

		link	$1
		pushi	$ae		; 174, indexOf
		push2
		pushi	$5c		; 92, '\', palette
		push1
		lap	param[$1]
		send	$8
		bnot
		sat	temp[$0]
		push
		ldi	$ff		; 255, asInteger
		gt?
		bnt	code_0fe2
		pushi	$d7		; 215, move
		pushi	$3		; z
		push0
		+at	temp[$0]
		push
		pushi	$ff		; 255, asInteger
		lap	param[$1]
		send	$a
		bnot
		jmp	code_1007

code_0fe2:	pushi	$ae		; 174, indexOf
		push2
		pushi	$3a		; 58, ':', b_i1
		push1
		lap	param[$1]
		send	$8
		bnot
		sat	temp[$0]
		push
		ldi	$ff		; 255, asInteger
		gt?
		bnt	code_1007
		pushi	$d7		; 215, move
		pushi	$3		; z
		push0
		+at	temp[$0]
		push
		pushi	$ff		; 255, asInteger
		lap	param[$1]
		send	$a
		bnot
code_1007:	lap	param[$1]
code_1009:	ret

		link	$1
		pushi	$ae		; 174, indexOf
		push2
		pushi	$5c		; 92, '\', palette
		push1
		lap	param[$1]
		send	$8
		bnot
		sat	temp[$0]
		push
		ldi	$ff		; 255, asInteger
		gt?
		bt	code_1032
		pushi	$ae		; 174, indexOf
		push2
		pushi	$3a		; 58, ':', b_i1
		push1
		lap	param[$1]
		send	$8
		bnot
		sat	temp[$0]
		push
		ldi	$ff		; 255, asInteger
		gt?
code_1032:	pushi	$4b		; 75, 'K', at
		push2
		+at	temp[$0]
		push
		push0
		lap	param[$1]
		send	$8
		bnot
		lap	param[$1]
code_1040:	ret

		link	$1
		pushi	$5a		; 90, 'Z', size
		push0
		lap	param[$1]
		send	$4
		bnot
		not
		bnt	code_1065
		pushi	$4b		; 75, 'K', at
		pushi	$3		; z
		push0
		pushi	$5c		; 92, '\', palette
		push0
		pushi	$f7		; 247, cat
		push1
		lsp	param[$2]
		lap	param[$1]
		send	$10
		bnot
		jmp	code_10fa

code_1065:	pushi	$ae		; 174, indexOf
		push2
		pushi	$5c		; 92, '\', palette
		push1
		lap	param[$1]
		send	$8
		bnot
		sat	temp[$0]
		push
		ldi	$ff		; 255, asInteger
		gt?
		bt	code_108b
		pushi	$ae		; 174, indexOf
		push2
		pushi	$3a		; 58, ':', b_i1
		push1
		lap	param[$1]
		send	$8
		bnot
		sat	temp[$0]
		push
		ldi	$ff		; 255, asInteger
		gt?
code_108b:	bnt	code_10a5
		pushi	$4b		; 75, 'K', at
		push2
		lst	temp[$0]
		ldi	$1
		add
		push
		push0
		pushi	$f7		; 247, cat
		push1
		lsp	param[$2]
		lap	param[$1]
		send	$e
		bnot
		jmp	code_10fa

code_10a5:	push2
		pushi	$13		; 19, nsTop
		lsp	param[$1]
		callk	kernel_93, $4
		bnot
		bnt	code_10ef
		pushi	$4b		; 75, 'K', at
		push1
		pushi	$5a		; 90, 'Z', size
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$1
		sub
		push
		lap	param[$1]
		send	$6
		bnot
		push
		ldi	$5c		; 92, '\', palette
		ne?
		bnt	code_10e2
		pushi	$4b		; 75, 'K', at
		pushi	$3		; z
		pushi	$5a		; 90, 'Z', size
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		pushi	$5c		; 92, '\', palette
		push0
		lap	param[$1]
		send	$a
		bnot
code_10e2:	pushi	$f7		; 247, cat
		push1
		lsp	param[$2]
		lap	param[$1]
		send	$6
		bnot
		jmp	code_10fa

code_10ef:	pushi	$d3		; 211, copy
		push1
		lsp	param[$2]
		lap	param[$1]
		send	$6
		bnot
code_10fa:	ret

		link	$1
		pushi	$d3		; 211, copy
		push1
		lsp	param[$1]
		class	Str
		send	$6
		bnot
		sat	temp[$0]
		push1
		push
		call	code_0fb7, $2
		bnot
		push1
		lsp	param[$1]
		call	code_1009, $2
		bnot
		pushi	$f7		; 247, cat
		push1
		lsp	param[$2]
		pushi	$f7		; 247, cat
		push1
		lofsa	string_01d5	; "\\"
		push
		pushi	$f7		; 247, cat
		push1
		lst	temp[$0]
		lap	param[$1]
		send	$12
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
code_113b:	ret

		link	$2
		pushi	$d3		; 211, copy
		push1
		lsp	param[$1]
		class	Str
		send	$6
		bnot
		sat	temp[$0]
		push1
		push
		call	code_0fb7, $2
		bnot
		push1
		lsp	param[$1]
		call	code_1009, $2
		bnot
		pushi	$5a		; 90, 'Z', size
		push0
		lap	param[$1]
		send	$4
		bnot
		not
		bnt	code_1173
		pushi	$4b		; 75, 'K', at
		pushi	$3		; z
		push0
		pushi	$5c		; 92, '\', palette
		push0
		lap	param[$1]
		send	$a
		bnot
code_1173:	pushi	$4b		; 75, 'K', at
		push2
		pushi	$5a		; 90, 'Z', size
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$1
		sub
		push
		push0
		pushi	$ae		; 174, indexOf
		push2
		pushi	$5c		; 92, '\', palette
		push1
		lap	param[$1]
		send	$10
		bnot
		sat	temp[$1]
		push
		ldi	$1
		lt?
		bnt	code_11c7
		pushi	$4b		; 75, 'K', at
		push1
		push1
		lap	param[$1]
		send	$6
		bnot
		push
		ldi	$3a		; 58, ':', b_i1
		eq?
		bnt	code_11b6
		pushi	$4b		; 75, 'K', at
		push2
		push2
		pushi	$5c		; 92, '\', palette
		lap	param[$1]
		send	$8
		bnot
		jmp	code_11f8

code_11b6:	pushi	$4b		; 75, 'K', at
		pushi	$3		; z
		push0
		pushi	$5c		; 92, '\', palette
		push0
		lap	param[$1]
		send	$a
		bnot
		jmp	code_11f8

code_11c7:	lst	temp[$1]
		ldi	$2
		eq?
		bnt	code_11ec
		pushi	$4b		; 75, 'K', at
		push1
		push1
		lap	param[$1]
		send	$6
		bnot
		push
		ldi	$3a		; 58, ':', b_i1
		eq?
		bnt	code_11ec
		pushi	$4b		; 75, 'K', at
		push2
		+at	temp[$1]
		push
		push0
		lap	param[$1]
		send	$8
		bnot
		jmp	code_11f8

code_11ec:	pushi	$4b		; 75, 'K', at
		push2
		+at	temp[$1]
		push
		push0
		lap	param[$1]
		send	$8
		bnot
code_11f8:	pushi	$f7		; 247, cat
		push1
		lst	temp[$0]
		lap	param[$1]
		send	$6
		bnot
		ret

