Dialog::new:
		link	$2
		pushi	$8d		; 141, new
		push0
		super	Set, $4
		bnot
		sat	temp[$0]
		pToa	plane
		sat	temp[$1]
		push
		ldi	$0
		eq?
		bnt	code_011a
		lag	global[$8]
		sat	temp[$1]
code_011a:	pToa	font
		not
		bnt	code_0129
		pushi	$2a		; 42, '*', font
		push1
		lsg	global[$3a]
		lat	temp[$0]
		send	$6
		bnot
code_0129:	push0
		push1
		pushi	$8d		; 141, new
		push0
		lat	temp[$1]
		send	$4
		bnot
		push
		lat	temp[$0]
		send	$6
		bnot
		lat	temp[$0]
		ret

Dialog::open:
		link	$3
		pTos	modal
		dup
		ldi	$2
		eq?
		bnt	code_0176
		pushi	$aa		; 170, addToFront
		push1
		pushSelf
		lag	global[$13]
		send	$6
		bnot
		pushi	$aa		; 170, addToFront
		push1
		pushSelf
		lag	global[$4d]
		send	$6
		bnot
		pushi	$94		; 148, init
		push0
		pushi	$1b4		; 436, enable
		push0
		pushi	$57		; 87, 'W', draw
		push0
		pushi	$8d		; 141, new
		push0
		lag	global[$c]
		send	$4
		bnot
		aTop	savedCursor
		send	$c
		bnot
		jmp	code_01b2

code_0176:	dup
		ldi	$0
		eq?
		bnt	code_01b2
		pushi	$97		; 151, isKindOf
		push1
		class	screen
		push
		self	$6
		bnot
		bnt	code_019e
		pushi	$9f		; 159, add
		push1
		pushSelf
		lag	global[$13]
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		pushSelf
		lag	global[$4d]
		send	$6
		bnot
		jmp	code_01b2

code_019e:	pushi	$aa		; 170, addToFront
		push1
		pushSelf
		lag	global[$13]
		send	$6
		bnot
		pushi	$aa		; 170, addToFront
		push1
		pushSelf
		lag	global[$4d]
		send	$6
		bnot
code_01b2:	toss
		pToa	priority
		not
		bt	code_01bd
		pTos	priority
		ldi	$ff		; 255, asInteger
		eq?
code_01bd:	bnt	code_01ca
		push0
		callk	kernel_44, $0
		bnot
		push
		ldi	$1
		add
		aTop	priority
code_01ca:	pushi	$7		; priority
		push1
		pTos	priority
		pushi	$94		; 148, init
		push0
		pushi	$1b8		; 440, addCast
		push1
		pushSelf
		pToa	plane
		send	$10
		bnot
		pushi	$9d		; 157, eachElementDo
		push2
		pushi	$94		; 148, init
		pushSelf
		self	$8
		bnot
		pushi	$57		; 87, 'W', draw
		push0
		self	$4
		bnot
		ret

Dialog::dispose:
		link	$5
		lag	global[$68]
		bnt	code_01fc
		pushi	$58		; 88, 'X', delete
		push1
		pushSelf
		send	$6
		bnot
code_01fc:	pToa	curItem
		bnt	code_0213
		pushi	$29		; 41, ')', state
		push1
		pushi	$29		; 41, ')', state
		push0
		send	$4
		bnot
		push
		ldi	$f7		; 247, cat
		and
		push
		pToa	curItem
		send	$6
		bnot
code_0213:	ldi	$0
		aTop	curShowMouseObj
		pToa	disposeList
		bnt	code_0226
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	disposeList
code_0226:	pushi	$b3		; 179, begin
		push0
		pushi	$8d		; 141, new
		push1
		pushSelf
		class	Sequence
		send	$6
		bnot
		sat	temp[$1]
		send	$4
		bnot
code_0239:	pushi	$51		; 81, 'Q', value
		push0
		lat	temp[$1]
		send	$4
		bnot
		sat	temp[$2]
		bnt	code_026f
		pushi	$29		; 41, ')', state
		push0
		send	$4
		bnot
		push
		ldi	$80		; 128, lastKey
		and
		not
		bnt	code_025e
		pushi	$95		; 149, dispose
		push0
		lat	temp[$2]
		send	$4
		bnot
		jmp	code_0239

code_025e:	pushi	$4c		; 76, 'L', next
		push0
		lat	temp[$1]
		send	$4
		bnot
		sat	temp[$2]
		not
		bnt	code_0239
		jmp	code_026f

		jmp	code_0239

code_026f:	push2
		push1
		pTos	elements
		callk	kernel_90, $4
		bnot
		ldi	$0
		aTop	elements
		pushi	$95		; 149, dispose
		push0
		lat	temp[$1]
		send	$4
		bnot
		pToa	plane
		bnt	code_029d
		sat	temp[$4]
		pushi	$1b9		; 441, deleteCast
		push1
		pushSelf
		pToa	plane
		send	$6
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$4]
		send	$4
		bnot
code_029d:	pushi	$58		; 88, 'X', delete
		push1
		pushSelf
		lag	global[$13]
		send	$6
		bnot
		pushi	$58		; 88, 'X', delete
		push1
		pushSelf
		lag	global[$4d]
		send	$6
		bnot
		pToa	caller
		sat	temp[$3]
		pTos	modal
		ldi	$2
		eq?
		bnt	code_02c9
		pToa	savedCursor
		bnt	code_02c9
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	savedCursor
code_02c9:	push1
		pushSelf
		callk	kernel_11, $2
		bnot
		lat	temp[$3]
		bnt	code_02df
		pushi	$c7		; 199, cue
		push1
		pushSelf
		send	$6
		bnot
		ldi	$0
		aTop	caller
code_02df:	ret

Dialog::delete:
		pToa	disposeList
		bnt	code_02ee
		pushi	$58		; 88, 'X', delete
		push1
		lsp	param[$1]
		&rest	$2
		send	$6
		bnot
code_02ee:	pushi	$58		; 88, 'X', delete
		push1
		lsp	param[$1]
		&rest	$2
		super	Set, $6
		bnot
		ret

Dialog::doit:
		link	$6
		lsg	global[$41]
		push0
		callk	kernel_121, $0
		bnot
		add
		sag	global[$40]
		lap	param[$0]
		bnt	code_030e
		lap	param[$1]
		jmp	code_0319

code_030e:	pushi	$a0		; 160, firstTrue
		push2
		pushi	$1cc		; 460, checkState
		push1
		self	$8
		bnot
code_0319:	sat	temp[$0]
		pushi	$1d4		; 468, selectItem
		push2
		push
		push0
		self	$8
		bnot
		pushi	$94		; 148, init
		push0
		pushi	$1b4		; 436, enable
		push0
		pushi	$8d		; 141, new
		push0
		lag	global[$c]
		send	$4
		bnot
		sat	temp[$5]
		send	$8
		bnot
		ldi	$0
		sat	temp[$1]
		pToa	curItem
		not
		bnt	code_0350
		pToa	eatTheMice
		sat	temp[$3]
		push0
		callk	kernel_121, $0
		bnot
		sat	temp[$4]
		jmp	code_0354

code_0350:	ldi	$0
		sat	temp[$3]
code_0354:	lat	temp[$1]
		not
		bnt	code_03b6
		push0
		callk	kernel_33, $0
		bnot
		lag	global[$28]
		bnt	code_0369
		pushi	$45		; 69, 'E', doit
		push1
		push1
		send	$6
		bnot
code_0369:	pushi	$9d		; 157, eachElementDo
		push1
		pushi	$1cd		; 461, cycle
		self	$6
		bnot
		pushi	$b9		; 185, localize
		push1
		pTos	plane
		pushi	$8d		; 141, new
		push1
		pushi	$7fff		; 32767
		pushi	$f4		; 244, curEvent
		push0
		lag	global[$e]
		send	$4
		bnot
		send	$6
		bnot
		sat	temp[$2]
		send	$6
		bnot
		pushi	$c8		; 200, handleEvent
		push1
		lst	temp[$2]
		self	$6
		bnot
		sat	temp[$1]
		pushi	$24a		; 586, check
		push0
		self	$4
		bnot
		bnt	code_03a7
		jmp	code_03b6

code_03a7:	lst	temp[$1]
		ldi	$ff		; 255, asInteger
		eq?
		bnt	code_0354
		ldi	$0
		sat	temp[$1]
		jmp	code_03b6

		jmp	code_0354

code_03b6:	pushi	$95		; 149, dispose
		push0
		lat	temp[$5]
		send	$4
		bnot
		lat	temp[$1]
		ret

Dialog::handleEvent:
		link	$4
		pushi	$24c		; 588, mapKeyToDir
		push0
		lag	global[$e]
		send	$4
		bnot
		bnt	code_03d6
		push1
		lsp	param[$1]
		callk	kernel_83, $2
		bnot
code_03d6:	pushi	$2b		; 43, '+', type
		push0
		lap	param[$1]
		send	$4
		bnot
		sat	temp[$2]
		pushi	$31		; 49, '1', message
		push0
		lap	param[$1]
		send	$4
		bnot
		sat	temp[$3]
		ldi	$0
		sat	temp[$0]
		pushi	$50		; 80, 'P', claimed
		push0
		lap	param[$1]
		send	$4
		bnot
		bnt	code_03fd
		ldi	$0
		jmp	code_068c

code_03fd:	lst	temp[$2]
		ldi	$0
		eq?
		bnt	code_04ab
		pushi	$a0		; 160, firstTrue
		pushi	$3		; z
		pushi	$a3		; 163, contains
		push1
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		push2
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		self	$a
		bnot
		sat	temp[$1]
		bnt	code_0497
		push
		pToa	curShowMouseObj
		ne?
		bnt	code_0456
		pushi	$29		; 41, ')', state
		push0
		lat	temp[$1]
		send	$4
		bnot
		push
		ldi	$400		; 1024, pEndurance
		and
		bnt	code_0456
		pToa	curShowMouseObj
		bnt	code_0447
		pushi	$1cf		; 463, showMouseOver
		push1
		push0
		send	$6
		bnot
code_0447:	pushi	$1cf		; 463, showMouseOver
		push1
		push1
		lat	temp[$1]
		aTop	curShowMouseObj
		send	$6
		bnot
		jmp	code_068c

code_0456:	pToa	curShowMouseObj
		bnt	code_046d
		lst	temp[$1]
		ne?
		bnt	code_046d
		pushi	$1cf		; 463, showMouseOver
		push1
		push0
		pToa	curShowMouseObj
		send	$6
		bnot
		ldi	$0
		aTop	curShowMouseObj
code_046d:	push1
		lst	temp[$1]
		calle	export60000_0, $2
		bnot
		bnt	code_068c
		pushi	$97		; 151, isKindOf
		push1
		class	Slider
		push
		lat	temp[$1]
		send	$6
		bnot
		bnt	code_068c
		pushi	$c8		; 200, handleEvent
		push1
		lsp	param[$1]
		lat	temp[$1]
		send	$6
		bnot
		jmp	code_068c

code_0497:	pToa	curShowMouseObj
		bnt	code_068c
		pushi	$1cf		; 463, showMouseOver
		push1
		push0
		send	$6
		bnot
		ldi	$0
		aTop	curShowMouseObj
		jmp	code_068c

code_04ab:	pushi	$a0		; 160, firstTrue
		push2
		pushi	$c8		; 200, handleEvent
		lsp	param[$1]
		self	$8
		bnot
		sat	temp[$0]
		bnt	code_04f9
		pushi	$1d4		; 468, selectItem
		push2
		push
		push1
		self	$8
		bnot
		bnt	code_04f2
		pushi	$45		; 69, 'E', doit
		push0
		pToa	curItem
		send	$4
		bnot
		pushi	$99		; 153, respondsTo
		push1
		pushi	$1cc		; 460, checkState
		pToa	curItem
		send	$6
		bnot
		bnt	code_068c
		pushi	$1cc		; 460, checkState
		push1
		push2
		pToa	curItem
		send	$6
		bnot
		not
		bnt	code_068c
		ldi	$0
		sat	temp[$0]
		jmp	code_068c

code_04f2:	ldi	$0
		sat	temp[$0]
		jmp	code_068c

code_04f9:	pushi	$50		; 80, 'P', claimed
		push0
		lap	param[$1]
		send	$4
		bnot
		bnt	code_0508
		ldi	$0
		jmp	code_068c

code_0508:	lst	temp[$2]
		ldi	$4		; scaleX
		eq?
		bnt	code_059f
		lst	temp[$3]
		ldi	$d		; 13, seenRect
		eq?
		bnt	code_059f
		pToa	curItem
		bnt	code_059f
		pushi	$97		; 151, isKindOf
		push1
		class	EditItem
		push
		pToa	curItem
		send	$6
		bnot
		bnt	code_059f
		push2
		push1
		push2
		pushi	$9		; inLeft
		pushi	$23		; 35, '#', text
		push0
		pToa	curItem
		send	$4
		bnot
		push
		callk	kernel_91, $4
		bnot
		push
		callk	kernel_92, $4
		bnot
		bnt	code_059f
		pushi	$1cc		; 460, checkState
		push1
		push1
		pToa	curItem
		send	$6
		bnot
		bnt	code_059f
		pushi	$1d6		; 470, crIsChar
		push0
		pToa	curItem
		send	$4
		bnot
		not
		bnt	code_059f
		pToa	retObject
		bnt	code_056f
		pushi	$3		; z
		push
		pTos	retSelector
		push1
		calle	export60025_5, $6
		bnot
code_056f:	pushi	$50		; 80, 'P', claimed
		push1
		push1
		lap	param[$1]
		send	$6
		bnot
		pushi	$97		; 151, isKindOf
		push1
		class	EditItem
		push
		pToa	curItem
		send	$6
		bnot
		bnt	code_0598
		pushi	$1db		; 475, exitOnEnter
		push0
		pToa	curItem
		send	$4
		bnot
		bnt	code_0598
		ldi	$1
		sat	temp[$0]
		jmp	code_068c

code_0598:	ldi	$ff		; 255, asInteger
		sat	temp[$0]
		jmp	code_068c

code_059f:	pushi	$4		; scaleX
		lat	temp[$2]
		eq?
		bnt	code_05e4
		pushi	$9		; inLeft
		lat	temp[$3]
		eq?
		bt	code_05cf
		pushi	$d		; 13, seenRect
		lat	temp[$3]
		eq?
		bnt	code_05e4
		pToa	curItem
		bnt	code_05e4
		pushi	$99		; 153, respondsTo
		push1
		pushi	$1cc		; 460, checkState
		send	$6
		bnot
		bnt	code_05e4
		pushi	$1cc		; 460, checkState
		push1
		push2
		pToa	curItem
		send	$6
		bnot
		not
code_05cf:	bnt	code_05e4
		pushi	$20f		; 527, advance
		push0
		self	$4
		bnot
		pushi	$50		; 80, 'P', claimed
		push1
		push1
		lap	param[$1]
		send	$6
		bnot
		jmp	code_068c

code_05e4:	pushi	$4		; scaleX
		lat	temp[$2]
		eq?
		bnt	code_0606
		pushi	$f00		; 3840, BAD SELECTOR
		lat	temp[$3]
		eq?
		bnt	code_0606
		pushi	$210		; 528, retreat
		push0
		self	$4
		bnot
		pushi	$50		; 80, 'P', claimed
		push1
		push1
		lap	param[$1]
		send	$6
		bnot
		jmp	code_068c

code_0606:	pushi	$4		; scaleX
		lat	temp[$2]
		eq?
		bnt	code_0626
		pushi	$1b		; 27, illegalBits
		lat	temp[$3]
		eq?
		bnt	code_0626
		pTos	modal
		ldi	$0
		ne?
		bnt	code_0626
		pushi	$97		; 151, isKindOf
		push1
		class	screen
		push
		self	$6
		bnot
		not
code_0626:	bt	code_066c
		pushi	$a0		; 160, firstTrue
		push2
		pushi	$1cc		; 460, checkState
		push1
		self	$8
		bnot
		not
		bnt	code_068c
		pTos	modal
		ldi	$1
		eq?
		bt	code_0643
		pTos	modal
		ldi	$2
		eq?
code_0643:	bnt	code_068c
		pushi	$97		; 151, isKindOf
		push1
		class	screen
		push
		self	$6
		bnot
		not
		bnt	code_068c
		pushi	$4		; scaleX
		lat	temp[$2]
		eq?
		bnt	code_065f
		pushi	$d		; 13, seenRect
		lat	temp[$3]
		eq?
code_065f:	bt	code_066c
		push1
		lat	temp[$2]
		eq?
		bt	code_066c
		pushi	$20		; 32, ' ', name
		lat	temp[$2]
		eq?
code_066c:	bnt	code_068c
		pToa	retObject
		bnt	code_067f
		pushi	$3		; z
		push
		pTos	retSelector
		push0
		calle	export60025_5, $6
		bnot
code_067f:	pushi	$50		; 80, 'P', claimed
		push1
		push1
		lap	param[$1]
		send	$6
		bnot
		ldi	$ff		; 255, asInteger
		sat	temp[$0]
code_068c:	ldi	$9		; inLeft
		lat	temp[$0]
		ret

Dialog::returnHandler:
		link	$3
		ldi	$fe		; 254, strIndex
		sat	temp[$1]
		pTos	modal
		ldi	$0
		eq?
		bnt	code_06a3
		ldi	$0
		jmp	code_0734

code_06a3:	ldi	$1
		sat	temp[$2]
		lsp	param[$1]
		ldi	$ff		; 255, asInteger
		eq?
		bt	code_06ba
		lsp	param[$1]
		ldi	$1
		eq?
		bt	code_06ba
		lsp	param[$1]
		ldi	$0
		eq?
code_06ba:	bnt	code_06c3
		lap	param[$1]
		sat	temp[$1]
		jmp	code_0729

code_06c3:	pToa	curItem
		not
		bnt	code_06cf
		ldi	$1
		sat	temp[$1]
		jmp	code_0729

code_06cf:	pushi	$29		; 41, ')', state
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$2
		and
		bnt	code_0725
		pushi	$51		; 81, 'Q', value
		push0
		lap	param[$1]
		send	$4
		bnot
		sat	temp[$1]
		pushi	$241		; 577, keepDialog
		push0
		self	$4
		bnot
		not
		bnt	code_06f8
		pushi	$69		; 105, 'i', hide
		push0
		self	$4
		bnot
code_06f8:	pToa	retObject
		bnt	code_0729
		pushi	$3		; z
		push
		pTos	retSelector
		pushi	$51		; 81, 'Q', value
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		calle	export60025_5, $6
		bnot
		sat	temp[$1]
		push
		ldi	$ff		; 255, asInteger
		eq?
		bnt	code_0729
		pushi	$75		; 117, 'u', show
		push0
		self	$4
		bnot
		ldi	$0
		sat	temp[$2]
		jmp	code_0729

code_0725:	ldi	$0
		sat	temp[$2]
code_0729:	lat	temp[$2]
		bnt	code_0734
		pushi	$95		; 149, dispose
		push0
		self	$4
		bnot
code_0734:	lat	temp[$1]
		ret

Dialog::process:
		link	$4
		ldi	$0
		sat	temp[$0]
		pTos	modal
		dup
		ldi	$1
		eq?
		bnt	code_0777
		lap	param[$0]
		bnt	code_074d
		lap	param[$1]
		jmp	code_074f

code_074d:	ldi	$0
code_074f:	sat	temp[$2]
code_0751:	pushi	$45		; 69, 'E', doit
		push1
		lst	temp[$2]
		self	$6
		bnot
		sat	temp[$0]
		pushi	$1d5		; 469, returnHandler
		push1
		push
		self	$6
		bnot
		sat	temp[$0]
		push
		ldi	$fe		; 254, strIndex
		ne?
		bnt	code_076e
		jmp	code_0878

code_076e:	lat	temp[$0]
		sat	temp[$2]
		jmp	code_0751

		jmp	code_0878

code_0777:	pushi	$b9		; 185, localize
		push1
		pToa	plane
		bnt	code_0781
		jmp	code_078f

code_0781:	push0
		push0
		pushi	$f2		; 242, pCast
		push0
		lag	global[$3]
		send	$4
		bnot
		send	$4
		bnot
code_078f:	push
		lap	param[$1]
		send	$6
		bnot
		pushi	$1f7		; 503, input
		push0
		lag	global[$e]
		send	$4
		bnot
		bnt	code_07db
		pushi	$2b		; 43, '+', type
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$4		; scaleX
		eq?
		bnt	code_07db
		pTos	modal
		ldi	$2
		eq?
		bnt	code_07db
		pushi	$31		; 49, '1', message
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$1b		; 27, illegalBits
		ne?
		bnt	code_07db
		pushi	$a0		; 160, firstTrue
		push2
		pushi	$97		; 151, isKindOf
		class	EditItem
		push
		self	$8
		bnot
		not
		bnt	code_07db
		ldi	$0
		sat	temp[$0]
		jmp	code_0878

code_07db:	pTos	modal
		ldi	$2
		eq?
		sat	temp[$3]
		pushi	$ba		; 186, globalize
		push0
		lap	param[$1]
		send	$4
		bnot
		pushi	$2b		; 43, '+', type
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$0
		ne?
		bnt	code_082d
		pushi	$2b		; 43, '+', type
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$4		; scaleX
		ne?
		bnt	code_082d
		pTos	modal
		ldi	$0
		eq?
		bnt	code_082d
		pushi	$97		; 151, isKindOf
		push1
		class	screen
		push
		self	$6
		bnot
		not
		bnt	code_082d
		pushi	$a3		; 163, contains
		push1
		lsp	param[$1]
		pToa	plane
		send	$6
		bnot
		bnt	code_082d
		ldi	$1
		sat	temp[$3]
code_082d:	pushi	$b9		; 185, localize
		push1
		pToa	plane
		bnt	code_0837
		jmp	code_0845

code_0837:	push0
		push0
		pushi	$f2		; 242, pCast
		push0
		lag	global[$3]
		send	$4
		bnot
		send	$4
		bnot
code_0845:	push
		lap	param[$1]
		send	$6
		bnot
		pushi	$c8		; 200, handleEvent
		push1
		lsp	param[$1]
		self	$6
		bnot
		sat	temp[$1]
		bnt	code_0862
		pushi	$1d5		; 469, returnHandler
		push1
		push
		self	$6
		bnot
		sat	temp[$0]
code_0862:	lat	temp[$3]
		bnt	code_086f
		pushi	$50		; 80, 'P', claimed
		push1
		push1
		lap	param[$1]
		send	$6
		bnot
code_086f:	pushi	$ba		; 186, globalize
		push0
		lap	param[$1]
		send	$4
		bnot
code_0878:	toss
		lat	temp[$0]
		ret

Dialog::draw:
		ldi	$0
		aTop	hidden
		pushi	$9d		; 157, eachElementDo
		push1
		pushi	$57		; 87, 'W', draw
		self	$6
		bnot
		ret

Dialog::erase:
		ldi	$1
		aTop	hidden
		pushi	$1ba		; 442, erase
		push0
		pToa	plane
		send	$4
		bnot
		ret

Dialog::addItem:
		link	$4
		pushi	$8d		; 141, new
		push0
		lap	param[$1]
		send	$4
		bnot
		sat	temp[$0]
		ldi	$0
		sat	temp[$1]
code_08a9:	lst	temp[$1]
		lsp	param[$0]
		ldi	$1
		sub
		lt?
		bnt	code_08da
		lat	temp[$1]
		lapi	param[$2]
		sat	temp[$2]
		lst	temp[$1]
		ldi	$1
		add
		lapi	param[$2]
		sat	temp[$3]
		pushi	$3		; z
		lst	temp[$0]
		lst	temp[$2]
		push
		calle	export60025_5, $6
		bnot
		lst	temp[$1]
		ldi	$2
		add
		sat	temp[$1]
		jmp	code_08a9

code_08da:	pushi	$1be		; 446, setSize
		push0
		lat	temp[$0]
		send	$4
		bnot
		pushi	$9f		; 159, add
		push1
		lst	temp[$0]
		self	$6
		bnot
		lat	temp[$0]
		ret

Dialog::posnItem:
		link	$5
		lsp	param[$0]
		ldi	$3		; z
		eq?
		bnt	code_08fc
		lap	param[$1]
		jmp	code_0919

code_08fc:	pushi	$5a		; 90, 'Z', size
		push0
		self	$4
		bnot
		bnt	code_0917
		pushi	$4b		; 75, 'K', at
		push1
		pushi	$5a		; 90, 'Z', size
		push0
		self	$4
		bnot
		push
		ldi	$1
		sub
		push
		self	$6
		bnot
		jmp	code_0919

code_0917:	ldi	$0
code_0919:	sat	temp[$4]
		not
		bnt	code_091f
		ret

code_091f:	lsp	param[$0]
		ldi	$2
		eq?
		bnt	code_092a
		lap	param[$1]
		jmp	code_092c

code_092a:	lap	param[$2]
code_092c:	sat	temp[$2]
		lsp	param[$0]
		ldi	$2
		eq?
		bnt	code_0939
		lap	param[$2]
		jmp	code_093b

code_0939:	lap	param[$3]
code_093b:	sat	temp[$3]
		lst	temp[$2]
		ldi	$fb		; 251, subStr
		eq?
		bnt	code_0979
		pushi	$4e		; 78, 'N', width
		push0
		lat	temp[$4]
		send	$4
		bnot
		push
		pushi	$4e		; 78, 'N', width
		push0
		pToa	plane
		send	$4
		bnot
		gt?
		bnt	code_0979
		pushi	$e3		; 227, expand
		push2
		pushi	$4e		; 78, 'N', width
		push0
		lat	temp[$4]
		send	$4
		bnot
		push
		pushi	$4e		; 78, 'N', width
		push0
		pToa	plane
		send	$4
		bnot
		sub
		push
		ldi	$2
		div
		push
		push0
		self	$8
		bnot
code_0979:	lst	temp[$2]
		dup
		ldi	$fd		; 253, strip
		eq?
		bnt	code_0986
		ldi	$6		; maxScale
		jmp	code_0a30

code_0986:	dup
		ldi	$ff		; 255, asInteger
		eq?
		bnt	code_09a3
		pToa	prevItem
		bnt	code_099e
		pushi	$88		; 136, right
		push0
		send	$4
		bnot
		push
		ldi	$c		; 12, inBottom
		add
		jmp	code_0a30

code_099e:	lat	temp[$2]
		jmp	code_0a30

code_09a3:	dup
		ldi	$fe		; 254, strIndex
		eq?
		bnt	code_09bc
		pToa	prevItem
		bnt	code_09b7
		pushi	$87		; 135, left
		push0
		send	$4
		bnot
		jmp	code_0a30

code_09b7:	lat	temp[$2]
		jmp	code_0a30

code_09bc:	dup
		ldi	$fa		; 250, lower
		eq?
		bnt	code_09dd
		pushi	$6		; maxScale
		pushi	$4e		; 78, 'N', width
		push0
		ldi	$1
		lapi	param[$3]
		send	$4
		bnot
		push
		ldi	$2
		lapi	param[$3]
		sub
		push
		ldi	$2
		div
		add
		jmp	code_0a30

code_09dd:	dup
		ldi	$fb		; 251, subStr
		eq?
		bnt	code_09fd
		pushi	$4e		; 78, 'N', width
		push0
		pToa	plane
		send	$4
		bnot
		push
		pushi	$4e		; 78, 'N', width
		push0
		lat	temp[$4]
		send	$4
		bnot
		sub
		push
		ldi	$2
		div
		jmp	code_0a30

code_09fd:	dup
		ldi	$fc		; 252, getToken
		eq?
		bnt	code_0a0f
		pushi	$88		; 136, right
		push0
		pToa	plane
		send	$4
		bnot
		jmp	code_0a30

code_0a0f:	dup
		ldi	$f9		; 249, upper
		eq?
		bnt	code_0a2e
		lsp	param[$4]
		lsp	param[$5]
		lap	param[$4]
		sub
		push
		pushi	$4e		; 78, 'N', width
		push0
		lat	temp[$4]
		send	$4
		bnot
		sub
		push
		ldi	$2
		div
		add
		jmp	code_0a30

code_0a2e:	lat	temp[$2]
code_0a30:	toss
		sat	temp[$0]
		lst	temp[$3]
		dup
		ldi	$fd		; 253, strip
		eq?
		bnt	code_0a40
		ldi	$6		; maxScale
		jmp	code_0aad

code_0a40:	dup
		ldi	$ff		; 255, asInteger
		eq?
		bnt	code_0a5e
		pToa	prevItem
		bnt	code_0a59
		pushi	$8a		; 138, bottom
		push0
		send	$4
		bnot
		push
		ldi	$6		; maxScale
		add
		jmp	code_0aad

code_0a59:	lat	temp[$3]
		jmp	code_0aad

code_0a5e:	dup
		ldi	$fe		; 254, strIndex
		eq?
		bnt	code_0a78
		pToa	prevItem
		bnt	code_0a73
		pushi	$89		; 137, top
		push0
		send	$4
		bnot
		jmp	code_0aad

code_0a73:	lat	temp[$3]
		jmp	code_0aad

code_0a78:	dup
		ldi	$fb		; 251, subStr
		eq?
		bnt	code_0a9a
		pushi	$e1		; 225, height
		push0
		pToa	plane
		send	$4
		bnot
		push
		pushi	$e1		; 225, height
		push0
		lat	temp[$4]
		send	$4
		bnot
		sub
		push
		ldi	$2
		div
		jmp	code_0aad

code_0a9a:	dup
		ldi	$fc		; 252, getToken
		eq?
		bnt	code_0aab
		pushi	$8a		; 138, bottom
		push0
		pToa	plane
		send	$4
		bnot
		jmp	code_0aad

code_0aab:	lat	temp[$3]
code_0aad:	toss
		sat	temp[$1]
		pushi	$db		; 219, moveTo
		push2
		lst	temp[$0]
		push
		lat	temp[$4]
		send	$8
		bnot
		lat	temp[$4]
		aTop	prevItem
		ret

Dialog::selectItem:
		pToa	curItem
		bnt	code_0b0f
		push
		lap	param[$1]
		eq?
		bnt	code_0ad1
		ldi	$0
		jmp	code_0b0f

code_0ad1:	pushi	$99		; 153, respondsTo
		push1
		pushi	$1ca		; 458, select
		pToa	curItem
		send	$6
		bnot
		bnt	code_0aec
		pushi	$1ca		; 458, select
		push1
		push0
		pToa	curItem
		send	$6
		bnot
		jmp	code_0b0f

code_0aec:	pushi	$99		; 153, respondsTo
		push1
		pushi	$29		; 41, ')', state
		pToa	curItem
		send	$6
		bnot
		bnt	code_0b0f
		pushi	$29		; 41, ')', state
		push1
		pushi	$29		; 41, ')', state
		push0
		pToa	curItem
		send	$4
		bnot
		push
		ldi	$f7		; 247, cat
		and
		push
		pToa	curItem
		send	$6
		bnot
code_0b0f:	lap	param[$1]
		aTop	curItem
		pToa	curItem
		not
		bnt	code_0b1d
		ldi	$0
		jmp	code_0bcd

code_0b1d:	pToa	curItem
		bnt	code_0b8e
		lsp	param[$0]
		ldi	$1
		gt?
		bnt	code_0b8e
		lap	param[$2]
		bnt	code_0b8e
		pushi	$99		; 153, respondsTo
		push1
		pushi	$1cb		; 459, choose
		pToa	curItem
		send	$6
		bnot
		bnt	code_0b8e
		pushi	$99		; 153, respondsTo
		push1
		pushi	$1c7		; 455, handler
		pToa	curItem
		send	$6
		bnot
		bnt	code_0b71
		pushi	$1c7		; 455, handler
		push0
		pToa	curItem
		send	$4
		bnot
		bnt	code_0b71
		pushi	$45		; 69, 'E', doit
		push2
		pTos	curItem
		pushi	$1cb		; 459, choose
		pushi	$1c7		; 455, handler
		push0
		pToa	curItem
		send	$4
		bnot
		send	$8
		bnot
		ret

		jmp	code_0bcd

code_0b71:	pToa	selectHandler
		bnt	code_0b82
		pushi	$45		; 69, 'E', doit
		push2
		pTos	curItem
		pushSelf
		send	$8
		bnot
		ret

		jmp	code_0bcd

code_0b82:	pushi	$1cb		; 459, choose
		push0
		pToa	curItem
		send	$4
		bnot
		jmp	code_0bcd

code_0b8e:	pushi	$99		; 153, respondsTo
		push1
		pushi	$1ca		; 458, select
		pToa	curItem
		send	$6
		bnot
		bnt	code_0baa
		pushi	$1ca		; 458, select
		push1
		push1
		pToa	curItem
		send	$6
		bnot
		jmp	code_0bcd

code_0baa:	pushi	$99		; 153, respondsTo
		push1
		pushi	$29		; 41, ')', state
		pToa	curItem
		send	$6
		bnot
		bnt	code_0bcd
		pushi	$29		; 41, ')', state
		push1
		pushi	$29		; 41, ')', state
		push0
		pToa	curItem
		send	$4
		bnot
		push
		ldi	$8		; fixPriority
		or
		push
		pToa	curItem
		send	$6
		bnot
code_0bcd:	ldi	$1
		ret

Dialog::advance:
		link	$3
		pToa	curItem
		bnt	code_0c34
		sat	temp[$1]
		pushi	$8d		; 141, new
		push1
		pushSelf
		class	Sequence
		send	$6
		bnot
		sat	temp[$0]
		pushi	$b5		; 181, set
		push1
		pTos	curItem
		send	$6
		bnot
code_0bee:	pushi	$4c		; 76, 'L', next
		push0
		lat	temp[$0]
		send	$4
		bnot
		sat	temp[$2]
		not
		bnt	code_0c06
		pushi	$b3		; 179, begin
		push0
		lat	temp[$0]
		send	$4
		bnot
		jmp	code_0bee

code_0c06:	pushi	$29		; 41, ')', state
		push0
		lat	temp[$2]
		send	$4
		bnot
		push
		ldi	$1
		and
		bnt	code_0bee
		jmp	code_0c18

		jmp	code_0bee

code_0c18:	pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
		lat	temp[$2]
		bnt	code_0c34
		lst	temp[$1]
		ne?
		bnt	code_0c34
		pushi	$1d4		; 468, selectItem
		push1
		lst	temp[$2]
		self	$6
		bnot
code_0c34:	ret

Dialog::retreat:
		link	$3
		pToa	curItem
		bnt	code_0c9c
		sat	temp[$1]
		pushi	$8d		; 141, new
		push1
		pushSelf
		class	Sequence
		send	$6
		bnot
		sat	temp[$0]
		pushi	$b5		; 181, set
		push1
		pTos	curItem
		send	$6
		bnot
code_0c53:	pushi	$a9		; 169, prev
		push0
		lat	temp[$0]
		send	$4
		bnot
		sat	temp[$2]
		not
		bnt	code_0c6d
		pushi	$b4		; 180, end
		push0
		lat	temp[$0]
		send	$4
		bnot
		jmp	code_0c53

code_0c6d:	pushi	$29		; 41, ')', state
		push0
		lat	temp[$2]
		send	$4
		bnot
		push
		ldi	$1
		and
		bnt	code_0c53
		jmp	code_0c7f

		jmp	code_0c53

code_0c7f:	pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
		lat	temp[$2]
		bnt	code_0c9c
		lst	temp[$1]
		ne?
		bnt	code_0c9c
		pushi	$1d4		; 468, selectItem
		push1
		lst	temp[$2]
		self	$6
		bnot
code_0c9c:	ret

Dialog::check:
		link	$1
		pToa	seconds
		bnt	code_0cbd
		push1
		push1
		callk	kernel_121, $2
		bnot
		sat	temp[$0]
		pTos	lastSeconds
		ne?
		bnt	code_0cc9
		lat	temp[$0]
		aTop	lastSeconds
		dpToa	seconds
		not
		ret

		jmp	code_0cc9

code_0cbd:	pToa	ticks
		bnt	code_0cc9
		lsg	global[$40]
		sub
		push
		ldi	$0
		gt?
		ret

code_0cc9:	ldi	$0
		ret

Dialog::setSize:
		link	$5
		pToa	plane
		bnt	code_0d69
		pushi	$b5		; 181, set
		pushi	$4		; scaleX
		push0
		push0
		push0
		push0
		send	$c
		bnot
		pToa	elements
		sat	temp[$2]
		push2
		pushi	$17		; 23, lsTop
		push
		callk	kernel_90, $4
		bnot
		sat	temp[$3]
		ldi	$0
		sat	temp[$1]
code_0cf2:	lst	temp[$1]
		lat	temp[$3]
		lt?
		bnt	code_0d16
		pushi	$af		; 175, union
		push1
		pushi	$3		; z
		pushi	$11		; 17, bitmap
		lst	temp[$2]
		lst	temp[$1]
		callk	kernel_90, $6
		bnot
		sat	temp[$4]
		push
		pToa	plane
		send	$6
		bnot
		+at	temp[$1]
		jmp	code_0cf2

code_0d16:	pushi	$e3		; 227, expand
		push2
		push2
		push2
		pToa	plane
		send	$8
		bnot
		pushi	$1c3		; 451, fixedWidth
		push0
		pToa	plane
		send	$4
		bnot
		bnt	code_0d3f
		pushi	$4e		; 78, 'N', width
		push1
		pushi	$1c3		; 451, fixedWidth
		push0
		pToa	plane
		send	$4
		bnot
		push
		pToa	plane
		send	$6
		bnot
code_0d3f:	pushi	$1c4		; 452, fixedHeight
		push0
		pToa	plane
		send	$4
		bnot
		bnt	code_0d5e
		pushi	$e1		; 225, height
		push1
		pushi	$1c4		; 452, fixedHeight
		push0
		pToa	plane
		send	$4
		bnot
		push
		pToa	plane
		send	$6
		bnot
code_0d5e:	pushi	$db		; 219, moveTo
		push2
		push0
		push0
		pToa	plane
		send	$8
		bnot
code_0d69:	ret

Dialog::expand:
		pToa	plane
		bnt	code_0d8a
		pushi	$e3		; 227, expand
		push2
		lsp	param[$1]
		lsp	param[$2]
		send	$8
		bnot
		pushi	$9d		; 157, eachElementDo
		pushi	$3		; z
		pushi	$dd		; 221, moveBy
		lsp	param[$1]
		lsp	param[$2]
		self	$a
		bnot
code_0d8a:	ret

Dialog::contract:
		pToa	plane
		bnt	code_0daf
		pushi	$e4		; 228, contract
		push2
		lsp	param[$1]
		lsp	param[$2]
		send	$8
		bnot
		pushi	$9d		; 157, eachElementDo
		pushi	$3		; z
		pushi	$dd		; 221, moveBy
		lap	param[$1]
		neg
		push
		lap	param[$2]
		neg
		push
		self	$a
		bnot
code_0daf:	ret

Dialog::addToDisposeList:
		pToa	disposeList
		not
		bnt	code_0dc1
		pushi	$8d		; 141, new
		push0
		class	Set
		send	$4
		bnot
		aTop	disposeList
code_0dc1:	pushi	$9f		; 159, add
		push1
		lsp	param[$1]
		pToa	disposeList
		send	$6
		bnot
		ret

Dialog::hide:
		pToa	plane
		bnt	code_0dd7
		pushi	$69		; 105, 'i', hide
		push0
		send	$4
		bnot
code_0dd7:	pushi	$58		; 88, 'X', delete
		push1
		pushSelf
		lag	global[$13]
		send	$6
		bnot
		pushi	$58		; 88, 'X', delete
		push1
		pushSelf
		lag	global[$4d]
		send	$6
		bnot
		ret

Dialog::show:
		pushi	$a3		; 163, contains
		push1
		pushSelf
		lag	global[$13]
		send	$6
		bnot
		bnt	code_0df7
		ret

code_0df7:	pToa	plane
		bnt	code_0e02
		pushi	$75		; 117, 'u', show
		push0
		send	$4
		bnot
code_0e02:	pTos	modal
		dup
		ldi	$2
		eq?
		bnt	code_0e22
		pushi	$aa		; 170, addToFront
		push1
		pushSelf
		lag	global[$13]
		send	$6
		bnot
		pushi	$aa		; 170, addToFront
		push1
		pushSelf
		lag	global[$4d]
		send	$6
		bnot
		jmp	code_0e61

code_0e22:	dup
		ldi	$0
		eq?
		bnt	code_0e61
		pushi	$97		; 151, isKindOf
		push1
		class	screen
		push
		self	$6
		bnot
		bnt	code_0e4d
		pushi	$9f		; 159, add
		push1
		pushSelf
		lag	global[$13]
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		pushSelf
		lag	global[$4d]
		send	$6
		bnot
		jmp	code_0e61

code_0e4d:	pushi	$aa		; 170, addToFront
		push1
		pushSelf
		lag	global[$13]
		send	$6
		bnot
		pushi	$aa		; 170, addToFront
		push1
		pushSelf
		lag	global[$4d]
		send	$6
		bnot
code_0e61:	toss
		ret

Dialog::setBackground:
		pushi	$1bd		; 445, setBitmap
		pushi	$3		; z
		lsp	param[$1]
		lsp	param[$2]
		lsp	param[$3]
		pushi	$1bc		; 444, scaleBitmap
		push0
		pushi	$6d		; 109, 'm', picture
		push1
		pushi	$fe		; 254, strIndex
		pToa	plane
		send	$14
		bnot
		pushi	$dc		; 220, posn
		push2
		pushi	$4		; scaleX
		push0
		lsp	param[$1]
		lsp	param[$2]
		lsp	param[$3]
		callk	kernel_34, $8
		bnot
		push
		pushi	$4		; scaleX
		push1
		lsp	param[$1]
		lsp	param[$2]
		lsp	param[$3]
		callk	kernel_34, $8
		bnot
		push
		pushi	$4a		; 74, 'J', setPri
		push1
		push0
		pushi	$11		; 17, bitmap
		push0
		pToa	plane
		send	$4
		bnot
		send	$e
		bnot
		push1
		pTos	plane
		callk	kernel_42, $2
		bnot
		push1
		pushi	$11		; 17, bitmap
		push0
		pToa	plane
		send	$4
		bnot
		push
		callk	kernel_32, $2
		bnot
		ret

Dialog::isHidden:
		pushi	$1bf		; 447, isHidden
		push0
		pToa	plane
		send	$4
		bnot
		ret

FancyDialog::new:
		link	$2
		pushi	$8d		; 141, new
		push0
		super	Dialog, $4
		bnot
		sat	temp[$0]
		push0
		push0
		send	$4
		bnot
		bnt	code_0ef6
		pushi	$95		; 149, dispose
		push0
		push0
		push0
		lat	temp[$0]
		send	$4
		bnot
		send	$4
		bnot
		push0
		push1
		push0
		lat	temp[$0]
		send	$6
		bnot
code_0ef6:	pToa	plane
		sat	temp[$1]
		push
		ldi	$0
		eq?
		bnt	code_0f0b
		lag	global[$4e]
		bnt	code_0f07
		jmp	code_0f09

code_0f07:	lag	global[$8]
code_0f09:	sat	temp[$1]
code_0f0b:	pToa	font
		not
		bnt	code_0f1b
		pushi	$2a		; 42, '*', font
		push1
		lsg	global[$3a]
		lat	temp[$0]
		send	$6
		bnot
code_0f1b:	push0
		push1
		pushi	$8d		; 141, new
		push0
		lat	temp[$1]
		send	$4
		bnot
		push
		lat	temp[$0]
		send	$6
		bnot
		lat	temp[$0]
		ret

