diff --git a/Script/Script60010.txt b/Script/Script60010.txt
new file mode 100644
index 0000000..00baf50
--- /dev/null
+++ b/Script/Script60010.txt
@@ -0,0 +1,42 @@
+Window::new:
+		pushi	$1c0		; 448, container
+		push1
+		lofsa	screenRect
+		push
+		pushi	$9a		; 154, yourself
+		push0
+		pushi	$8d		; 141, new
+		push0
+		super	Plane, $4
+		bnot
+		send	$a
+		bnot
+		ret
+
+Window::init:
+		pToa	container
+		not
+		bnt	code_0086
+		lofsa	screenRect
+		aTop	container
+code_0086:	pTos	back
+		ldi	$ff		; 255, asInteger
+		eq?
+		bnt	code_0091
+		lag	global[$55]
+		aTop	back
+code_0091:	pushi	$94		; 148, init
+		push0
+		&rest	$1
+		super	Plane, $4
+		bnot
+		ret
+
+Window::center:
+		pushi	$de		; 222, centerIn
+		push1
+		pTos	container
+		self	$6
+		bnot
+		ret
+
diff --git a/Script/Script60011.txt b/Script/Script60011.txt
new file mode 100644
index 0000000..f4ed0c8
--- /dev/null
+++ b/Script/Script60011.txt
@@ -0,0 +1,703 @@
+Plane::init:
+		pToa	casts
+		not
+		bnt	code_009b
+		pushi	$9f		; 159, add
+		push0
+		pushi	$8d		; 141, new
+		push0
+		class	Cast
+		send	$4
+		bnot
+		aTop	casts
+		send	$4
+		bnot
+code_009b:	push0
+		push1
+		pushSelf
+		pToa	casts
+		send	$6
+		bnot
+		pushi	$57		; 87, 'W', draw
+		push0
+		self	$4
+		bnot
+		lap	param[$0]
+		bnt	code_00c4
+		pushi	$b5		; 181, set
+		pushi	$4		; scaleX
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		lsp	param[$4]
+		self	$c
+		bnot
+		push1
+		pushSelf
+		callk	kernel_42, $2
+		bnot
+code_00c4:	ret
+
+Plane::dispose:
+		link	$1
+		pToa	casts
+		bnt	code_00e8
+		lag	global[$3]
+		bnt	code_00df
+		pushi	$58		; 88, 'X', delete
+		push1
+		pushi	$f2		; 242, pCast
+		push0
+		send	$4
+		bnot
+		push
+		pToa	casts
+		send	$6
+		bnot
+code_00df:	pushi	$95		; 149, dispose
+		push0
+		pToa	casts
+		send	$4
+		bnot
+code_00e8:	ldi	$0
+		aTop	bitmap
+		aTop	casts
+		pushi	$1ba		; 442, erase
+		push0
+		self	$4
+		bnot
+		push1
+		pushSelf
+		callk	kernel_11, $2
+		bnot
+		ret
+
+Plane::addCast:
+		pToa	casts
+		bnt	code_011a
+		pushi	$9f		; 159, add
+		push1
+		pushi	$9f		; 159, add
+		push0
+		push0
+		push1
+		pushSelf
+		pushi	$9a		; 154, yourself
+		push0
+		lap	param[$1]
+		send	$e
+		bnot
+		push
+		pToa	casts
+		send	$6
+		bnot
+code_011a:	ret
+
+Plane::deleteCast:
+		pToa	casts
+		bnt	code_0134
+		pushi	$58		; 88, 'X', delete
+		push1
+		push0
+		push1
+		push0
+		pushi	$9a		; 154, yourself
+		push0
+		lap	param[$1]
+		send	$a
+		bnot
+		push
+		pToa	casts
+		send	$6
+		bnot
+code_0134:	ret
+
+Plane::draw:
+		pushi	$a3		; 163, contains
+		push1
+		pushSelf
+		lag	global[$25]
+		send	$6
+		bnot
+		not
+		bnt	code_0154
+		push1
+		pushSelf
+		callk	kernel_40, $2
+		bnot
+		pushi	$9f		; 159, add
+		push1
+		pushSelf
+		lag	global[$25]
+		send	$6
+		bnot
+		jmp	code_015a
+
+code_0154:	push1
+		pushSelf
+		callk	kernel_42, $2
+		bnot
+code_015a:	ret
+
+Plane::erase:
+		pushi	$a3		; 163, contains
+		push1
+		pushSelf
+		lag	global[$25]
+		send	$6
+		bnot
+		bnt	code_0176
+		pushi	$58		; 88, 'X', delete
+		push1
+		pushSelf
+		lag	global[$25]
+		send	$6
+		bnot
+		push1
+		pushSelf
+		callk	kernel_41, $2
+		bnot
+code_0176:	ret
+
+Plane::drawPic:
+		lap	param[$1]
+		aTop	picture
+		lsp	param[$0]
+		ldi	$1
+		gt?
+		bnt	code_0186
+		lap	param[$2]
+		aTop	style
+code_0186:	pTos	style
+		ldi	$400		; 1024, pEndurance
+		and
+		bnt	code_0192
+		ldi	$1
+		jmp	code_0194
+
+code_0192:	ldi	$0
+code_0194:	aTop	mirrored
+		pushi	$45		; 69, 'E', doit
+		push2
+		pushSelf
+		pTos	style
+		class	Styler
+		send	$8
+		bnot
+		push1
+		pushSelf
+		callk	kernel_42, $2
+		bnot
+		ret
+
+Plane::posn:
+		link	$8
+		lsp	param[$0]
+		ldi	$2
+		gt?
+		bnt	code_01df
+		pushi	$87		; 135, left
+		push0
+		lap	param[$3]
+		send	$4
+		bnot
+		sat	temp[$2]
+		pushi	$89		; 137, top
+		push0
+		lap	param[$3]
+		send	$4
+		bnot
+		sat	temp[$3]
+		pushi	$88		; 136, right
+		push0
+		lap	param[$3]
+		send	$4
+		bnot
+		sat	temp[$4]
+		pushi	$8a		; 138, bottom
+		push0
+		lap	param[$3]
+		send	$4
+		bnot
+		sat	temp[$5]
+		jmp	code_022c
+
+code_01df:	lag	global[$3]
+		bnt	code_021a
+		push0
+		push0
+		send	$4
+		bnot
+		sat	temp[$6]
+		bnt	code_021a
+		pushi	$87		; 135, left
+		push0
+		lat	temp[$6]
+		send	$4
+		bnot
+		sat	temp[$2]
+		pushi	$89		; 137, top
+		push0
+		lat	temp[$6]
+		send	$4
+		bnot
+		sat	temp[$3]
+		pushi	$88		; 136, right
+		push0
+		lat	temp[$6]
+		send	$4
+		bnot
+		sat	temp[$4]
+		pushi	$8a		; 138, bottom
+		push0
+		lat	temp[$6]
+		send	$4
+		bnot
+		sat	temp[$5]
+		jmp	code_022c
+
+code_021a:	ldi	$0
+		sat	temp[$2]
+		ldi	$0
+		sat	temp[$3]
+		ldi	$27f		; 639, rename
+		sat	temp[$4]
+		ldi	$1df		; 479, validKey
+		sat	temp[$5]
+code_022c:	pTos	right
+		pToa	left
+		sub
+		sat	temp[$0]
+		pTos	bottom
+		pToa	top
+		sub
+		sat	temp[$1]
+		lsp	param[$1]
+		ldi	$ff		; 255, asInteger
+		eq?
+		bnt	code_0255
+		lst	temp[$2]
+		lst	temp[$4]
+		lat	temp[$2]
+		sub
+		push
+		lat	temp[$0]
+		sub
+		push
+		ldi	$2
+		div
+		add
+		sap	param[$1]
+		jmp	code_025c
+
+code_0255:	lsp	param[$1]
+		lat	temp[$2]
+		add
+		sap	param[$1]
+code_025c:	lsp	param[$2]
+		ldi	$ff		; 255, asInteger
+		eq?
+		bnt	code_0277
+		lst	temp[$3]
+		lst	temp[$5]
+		lat	temp[$3]
+		sub
+		push
+		lat	temp[$1]
+		sub
+		push
+		ldi	$2
+		div
+		add
+		sap	param[$2]
+		jmp	code_027e
+
+code_0277:	lsp	param[$2]
+		lat	temp[$3]
+		add
+		sap	param[$2]
+code_027e:	pushi	$b5		; 181, set
+		pushi	$4		; scaleX
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$1]
+		lat	temp[$0]
+		add
+		push
+		lsp	param[$2]
+		lat	temp[$1]
+		add
+		push
+		self	$c
+		bnot
+		ret
+
+Plane::scaleBitmap:
+		link	$b
+		lap	param[$0]
+		bnt	code_02b0
+		lap	param[$1]
+		sat	temp[$7]
+		lap	param[$2]
+		sat	temp[$8]
+		lap	param[$3]
+		sat	temp[$9]
+		lap	param[$4]
+		sat	temp[$a]
+		jmp	code_02c0
+
+code_02b0:	pToa	left
+		sat	temp[$7]
+		pToa	top
+		sat	temp[$8]
+		pToa	right
+		sat	temp[$9]
+		pToa	bottom
+		sat	temp[$a]
+code_02c0:	pushi	$4e		; 78, 'N', width
+		push0
+		pToa	bitmap
+		send	$4
+		bnot
+		sat	temp[$1]
+		pushi	$e1		; 225, height
+		push0
+		pToa	bitmap
+		send	$4
+		bnot
+		sat	temp[$3]
+		lst	temp[$9]
+		lat	temp[$7]
+		sub
+		push
+		ldi	$1
+		add
+		sat	temp[$0]
+		lst	temp[$a]
+		lat	temp[$8]
+		sub
+		push
+		ldi	$1
+		add
+		sat	temp[$2]
+		lst	temp[$0]
+		ldi	$fa		; 250, lower
+		lt?
+		bnt	code_0301
+		lst	temp[$0]
+		ldi	$80		; 128, lastKey
+		mul
+		push
+		lat	temp[$1]
+		div
+		sat	temp[$4]
+		jmp	code_0315
+
+code_0301:	lst	temp[$0]
+		ldi	$2
+		div
+		push
+		ldi	$80		; 128, lastKey
+		mul
+		push
+		lat	temp[$1]
+		div
+		push
+		ldi	$2
+		mul
+		sat	temp[$4]
+code_0315:	lst	temp[$2]
+		ldi	$80		; 128, lastKey
+		mul
+		push
+		lat	temp[$3]
+		div
+		sat	temp[$5]
+		pushi	$6a		; 106, 'j', scaleSignal
+		push1
+		push1
+		pushi	$4		; scaleX
+		push1
+		lst	temp[$4]
+		pushi	$5		; scaleY
+		push1
+		push
+		pToa	bitmap
+		send	$12
+		bnot
+		push1
+		pTos	bitmap
+		callk	kernel_32, $2
+		bnot
+		ret
+
+Plane::setBitmap:
+		link	$4
+		pToa	bitmap
+		bnt	code_034e
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		aTop	bitmap
+		jmp	code_0361
+
+code_034e:	pushi	$8d		; 141, new
+		push0
+		class	Cast
+		send	$4
+		bnot
+		sat	temp[$0]
+		pushi	$1b8		; 440, addCast
+		push1
+		push
+		self	$6
+		bnot
+code_0361:	lsp	param[$0]
+		ldi	$3		; z
+		lt?
+		bnt	code_038f
+		pushi	$dc		; 220, posn
+		push2
+		push0
+		push0
+		pushi	$94		; 148, init
+		push1
+		lst	temp[$0]
+		pushi	$8d		; 141, new
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		aTop	bitmap
+		send	$e
+		bnot
+		lsp	param[$0]
+		ldi	$1
+		gt?
+		bnt	code_03c3
+		lap	param[$2]
+		sat	temp[$3]
+		jmp	code_03c3
+
+code_038f:	pushi	$e		; 14, view
+		push1
+		lsp	param[$1]
+		pushi	$f		; 15, loop
+		push1
+		lsp	param[$2]
+		pushi	$10		; 16, cel
+		push1
+		lsp	param[$3]
+		pushi	$dc		; 220, posn
+		push2
+		push0
+		push0
+		pushi	$94		; 148, init
+		push1
+		lst	temp[$0]
+		pushi	$8d		; 141, new
+		push0
+		class	View
+		send	$4
+		bnot
+		aTop	bitmap
+		send	$20
+		bnot
+		lsp	param[$0]
+		ldi	$3		; z
+		gt?
+		bnt	code_03c3
+		lap	param[$4]
+		sat	temp[$3]
+code_03c3:	pushi	$4e		; 78, 'N', width
+		push0
+		pToa	bitmap
+		send	$4
+		bnot
+		sat	temp[$1]
+		pushi	$e1		; 225, height
+		push0
+		pToa	bitmap
+		send	$4
+		bnot
+		sat	temp[$2]
+		lat	temp[$3]
+		bnt	code_03e5
+		pushi	$1bc		; 444, scaleBitmap
+		push0
+		self	$4
+		bnot
+		jmp	code_03fe
+
+code_03e5:	pushi	$b5		; 181, set
+		pushi	$4		; scaleX
+		pTos	left
+		pTos	top
+		pTos	left
+		lat	temp[$1]
+		add
+		push
+		pTos	top
+		lat	temp[$2]
+		add
+		push
+		self	$c
+		bnot
+code_03fe:	ret
+
+Plane::setSize:
+		link	$5
+		pToa	casts
+		bnt	code_04c9
+		pushi	$8d		; 141, new
+		push0
+		class	Rect
+		send	$4
+		bnot
+		sat	temp[$0]
+		push2
+		pushi	$3		; z
+		pushi	$24		; 36, '$', elements
+		push0
+		pToa	casts
+		send	$4
+		bnot
+		push
+		callk	kernel_90, $4
+		bnot
+		sat	temp[$1]
+code_0423:	lat	temp[$1]
+		bnt	code_049a
+		pushi	$9e		; 158, nextNode
+		push1
+		push2
+		pushi	$6		; maxScale
+		push
+		callk	kernel_90, $4
+		bnot
+		push
+		pToa	casts
+		send	$6
+		bnot
+		push2
+		pushi	$8		; fixPriority
+		lst	temp[$1]
+		callk	kernel_90, $4
+		bnot
+		sat	temp[$3]
+		push2
+		pushi	$3		; z
+		pushi	$24		; 36, '$', elements
+		push0
+		send	$4
+		bnot
+		push
+		callk	kernel_90, $4
+		bnot
+		sat	temp[$2]
+code_0455:	lat	temp[$2]
+		bnt	code_048d
+		pushi	$9e		; 158, nextNode
+		push1
+		push2
+		pushi	$6		; maxScale
+		push
+		callk	kernel_90, $4
+		bnot
+		push
+		lat	temp[$3]
+		send	$6
+		bnot
+		push2
+		pushi	$8		; fixPriority
+		lst	temp[$2]
+		callk	kernel_90, $4
+		bnot
+		sat	temp[$4]
+		pushi	$af		; 175, union
+		push1
+		push
+		lat	temp[$0]
+		send	$6
+		bnot
+		pushi	$9e		; 158, nextNode
+		push0
+		lat	temp[$3]
+		send	$4
+		bnot
+		sat	temp[$2]
+		jmp	code_0455
+
+code_048d:	pushi	$9e		; 158, nextNode
+		push0
+		pToa	casts
+		send	$4
+		bnot
+		sat	temp[$1]
+		jmp	code_0423
+
+code_049a:	pushi	$b5		; 181, set
+		pushi	$4		; scaleX
+		pTos	left
+		pTos	top
+		pTos	left
+		pushi	$4e		; 78, 'N', width
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		add
+		push
+		pTos	top
+		pushi	$e1		; 225, height
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		add
+		push
+		self	$c
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+code_04c9:	ret
+
+Plane::hide:
+		pTos	priority
+		ldi	$ff		; 255, asInteger
+		ne?
+		bnt	code_04df
+		pToa	priority
+		aTop	pOldPri
+		ldi	$ff		; 255, asInteger
+		aTop	priority
+		push1
+		pushSelf
+		callk	kernel_42, $2
+		bnot
+code_04df:	ret
+
+Plane::show:
+		pTos	priority
+		ldi	$ff		; 255, asInteger
+		eq?
+		bnt	code_04f1
+		pToa	pOldPri
+		aTop	priority
+		push1
+		pushSelf
+		callk	kernel_42, $2
+		bnot
+code_04f1:	ret
+
+Plane::isHidden:
+		pTos	priority
+		ldi	$ff		; 255, asInteger
+		eq?
+		ret
+
diff --git a/Script/Script60012.txt b/Script/Script60012.txt
new file mode 100644
index 0000000..7df9c92
--- /dev/null
+++ b/Script/Script60012.txt
@@ -0,0 +1,182 @@
+Sound::dispose:
+		pushi	$141		; 321, stop
+		push0
+		self	$4
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		&rest	$1
+		super	Obj, $4
+		bnot
+		ret
+
+Sound::play:
+		pTos	pHandle
+		ldi	$ff		; 255, asInteger
+		ne?
+		bnt	code_00e2
+		pushi	$141		; 321, stop
+		push0
+		self	$4
+		bnot
+code_00e2:	push2
+		push0
+		lsp	param[$1]
+		callk	kernel_117, $4
+		bnot
+		aTop	pHandle
+		push2
+		push2
+		pTos	pHandle
+		callk	kernel_117, $4
+		bnot
+		ret
+
+Sound::stop:
+		push2
+		push1
+		pTos	pHandle
+		callk	kernel_117, $4
+		bnot
+		push2
+		pushi	$3		; z
+		pTos	pHandle
+		callk	kernel_117, $4
+		bnot
+		ldi	$ff		; 255, asInteger
+		aTop	pHandle
+		ret
+
+PanHandler::doit:
+		link	$2
+		push1
+		pTos	pObject
+		calle	export60000_0, $2
+		bnot
+		bnt	code_0171
+		ldi	$80		; 128, lastKey
+		sat	temp[$1]
+		pushi	$144		; 324, scaler
+		push0
+		pToa	pObject
+		send	$4
+		bnot
+		bnt	code_013b
+		pushi	$145		; 325, frontSize
+		push0
+		pushi	$144		; 324, scaler
+		push0
+		pToa	pObject
+		send	$4
+		bnot
+		send	$4
+		bnot
+		sat	temp[$1]
+code_013b:	pushi	$5		; scaleY
+		dup
+		pTos	pSoundID
+		push1
+		push0
+		pToa	pObject
+		send	$4
+		bnot
+		push
+		pushi	$5		; scaleY
+		push0
+		pToa	pObject
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		callk	kernel_117, $a
+		bnot
+		push
+		ldi	$ff		; 255, asInteger
+		eq?
+		bnt	code_0182
+		pushi	$58		; 88, 'X', delete
+		push1
+		pushSelf
+		lofsa	SoundList
+		send	$6
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		ret
+
+		jmp	code_0182
+
+code_0171:	pushi	$58		; 88, 'X', delete
+		push1
+		pushSelf
+		lofsa	SoundList
+		send	$6
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_0182:	ret
+
+SoundMgr::play:
+		link	$3
+		pushi	$3		; z
+		push0
+		lsp	param[$1]
+		lsp	param[$0]
+		ldi	$2
+		gt?
+		bnt	code_0195
+		lap	param[$3]
+		jmp	code_0197
+
+code_0195:	ldi	$1
+code_0197:	push
+		callk	kernel_117, $6
+		bnot
+		sat	temp[$0]
+		lsp	param[$0]
+		ldi	$1
+		gt?
+		bnt	code_01d7
+		lap	param[$2]
+		bnt	code_01d7
+		pushi	$142		; 322, pObject
+		push1
+		lsp	param[$2]
+		pushi	$143		; 323, pSoundID
+		push1
+		lst	temp[$0]
+		pushi	$8d		; 141, new
+		push0
+		class	PanHandler
+		send	$4
+		bnot
+		sat	temp[$2]
+		send	$c
+		bnot
+		pushi	$9f		; 159, add
+		push1
+		lst	temp[$2]
+		lofsa	SoundList
+		send	$6
+		bnot
+		pushi	$45		; 69, 'E', doit
+		push0
+		lat	temp[$2]
+		send	$4
+		bnot
+code_01d7:	lat	temp[$0]
+		ret
+
+SoundMgr::doit:
+		pushi	$9d		; 157, eachElementDo
+		push1
+		pushi	$45		; 69, 'E', doit
+		lofsa	SoundList
+		send	$6
+		bnot
+		ret
+
diff --git a/Script/Script60013.txt b/Script/Script60013.txt
new file mode 100644
index 0000000..759962d
--- /dev/null
+++ b/Script/Script60013.txt
@@ -0,0 +1,2181 @@
+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
+
diff --git a/Script/Script60018.txt b/Script/Script60018.txt
new file mode 100644
index 0000000..5348d24
--- /dev/null
+++ b/Script/Script60018.txt
@@ -0,0 +1,79 @@
+Clut::new:
+		link	$1
+		pushi	$8d		; 141, new
+		push1
+		pushi	$100		; 256, strMax
+		super	ByteArray, $6
+		bnot
+		sat	temp[$0]
+		pushi	$94		; 148, init
+		push0
+		send	$4
+		bnot
+		lap	param[$0]
+		bnt	code_0057
+		pushi	$10c		; 268, map
+		push0
+		&rest	$1
+		lat	temp[$0]
+		send	$4
+		bnot
+code_0057:	lat	temp[$0]
+		ret
+
+Clut::init:
+		link	$1
+		pToa	data
+		not
+		bnt	code_0072
+		pushi	$d8		; 216, callKernel
+		pushi	$3		; z
+		push0
+		pushi	$100		; 256, strMax
+		pTos	type
+		self	$a
+		bnot
+		aTop	data
+code_0072:	ldi	$0
+		sat	temp[$0]
+code_0076:	lst	temp[$0]
+		ldi	$100		; 256, strMax
+		lt?
+		bnt	code_008b
+		pushi	$4b		; 75, 'K', at
+		push2
+		lst	temp[$0]
+		dup
+		self	$8
+		bnot
+		+at	temp[$0]
+		jmp	code_0076
+
+code_008b:	ret
+
+Clut::map:
+		link	$1
+		ldi	$0
+		sat	temp[$0]
+code_0092:	lst	temp[$0]
+		lap	param[$0]
+		lt?
+		bnt	code_00b2
+		pushi	$4b		; 75, 'K', at
+		push2
+		lat	temp[$0]
+		lspi	param[$1]
+		push
+		ldi	$1
+		add
+		lspi	param[$1]
+		self	$8
+		bnot
+		lst	temp[$0]
+		ldi	$2
+		add
+		sat	temp[$0]
+		jmp	code_0092
+
+code_00b2:	ret
+