diff --git a/Script/Script60019.txt b/Script/Script60019.txt
new file mode 100644
index 0000000..cbfc4fc
--- /dev/null
+++ b/Script/Script60019.txt
@@ -0,0 +1,455 @@
+currentEvent::new:
+		link	$1
+		ldi	$0
+		aTop	plane
+		aTop	claimed
+		push2
+		lap	param[$0]
+		bnt	code_0061
+		lap	param[$1]
+		jmp	code_0064
+
+code_0061:	ldi	$3ff		; 1023, pQuickness
+code_0064:	push
+		pushSelf
+		callk	kernel_80, $4
+		bnot
+		selfID
+		ret
+
+User::init:
+		lofsa	currentEvent
+		aTop	curEvent
+		ldi	$0
+		sag	global[$6]
+		ret
+
+User::doit:
+		pushi	$f3		; 243, nextEvent
+		push1
+		pushi	$7fff		; 32767
+		self	$6
+		bnot
+		pToa	controls
+		bt	code_0086
+		pToa	input
+code_0086:	bnt	code_00a2
+		pushi	$2b		; 43, '+', type
+		push0
+		lofsa	currentEvent
+		send	$4
+		bnot
+		push
+		ldi	$0
+		ne?
+		bnt	code_00a2
+		pushi	$c8		; 200, handleEvent
+		push1
+		lofsa	currentEvent
+		push
+		self	$6
+		bnot
+code_00a2:	ret
+
+User::nextEvent:
+		pushi	$8d		; 141, new
+		push1
+		lsp	param[$1]
+		lofsa	currentEvent
+		send	$6
+		bnot
+		lofsa	currentEvent
+		ret
+
+User::handleEvent:
+		link	$1
+		pushi	$50		; 80, 'P', claimed
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		bnt	code_00c2
+		ldi	$1
+		ret
+
+code_00c2:	pushi	$b9		; 185, localize
+		push1
+		push0
+		push0
+		lag	global[$3]
+		send	$4
+		bnot
+		push
+		lap	param[$1]
+		send	$6
+		bnot
+		pushi	$2b		; 43, '+', type
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		ldi	$1
+		eq?
+		bnt	code_0101
+		pushi	$48		; 72, 'H', modifiers
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		ldi	$3		; z
+		and
+		bnt	code_0101
+		lag	global[$1]
+		bnt	code_0101
+		pushi	$c8		; 200, handleEvent
+		push1
+		lsp	param[$1]
+		lag	global[$1]
+		send	$6
+		bnot
+		jmp	code_0291
+
+code_0101:	lag	global[$13]
+		bnt	code_0126
+		pushi	$2b		; 43, '+', type
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		ldi	$100		; 256, strMax
+		eq?
+		bnt	code_0126
+		pushi	$c8		; 200, handleEvent
+		push1
+		lsp	param[$1]
+		lag	global[$13]
+		send	$6
+		bnot
+		bnt	code_0126
+		ldi	$0
+		jmp	code_0291
+
+code_0126:	pToa	controls
+		not
+		bnt	code_0141
+		pToa	input
+		bnt	code_0141
+		pushi	$4		; scaleX
+		pushi	$2b		; 43, '+', type
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		ne?
+		bnt	code_0141
+		ldi	$0
+		jmp	code_0291
+
+code_0141:	lag	global[$13]
+		bnt	code_0155
+		pushi	$c8		; 200, handleEvent
+		push1
+		lsp	param[$1]
+		send	$6
+		bnot
+		bnt	code_0155
+		ldi	$0
+		jmp	code_0291
+
+code_0155:	pToa	input
+		not
+		bnt	code_015f
+		ldi	$0
+		jmp	code_0291
+
+code_015f:	lag	global[$27]
+		bnt	code_0173
+		pushi	$c8		; 200, handleEvent
+		push1
+		lsp	param[$1]
+		send	$6
+		bnot
+		bnt	code_0173
+		ldi	$0
+		jmp	code_0291
+
+code_0173:	lag	global[$6]
+		bnt	code_0187
+		pushi	$c8		; 200, handleEvent
+		push1
+		lsp	param[$1]
+		send	$6
+		bnot
+		bnt	code_0187
+		ldi	$0
+		jmp	code_0291
+
+code_0187:	pushi	$2b		; 43, '+', type
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		ldi	$4		; scaleX
+		eq?
+		bt	code_01a1
+		pushi	$2b		; 43, '+', type
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		ldi	$1
+		eq?
+code_01a1:	bnt	code_01c2
+		pushi	$c8		; 200, handleEvent
+		push1
+		lsp	param[$1]
+		lag	global[$30]
+		send	$6
+		bnot
+		bt	code_01bb
+		pushi	$c8		; 200, handleEvent
+		push1
+		lsp	param[$1]
+		lag	global[$2]
+		send	$6
+		bnot
+code_01bb:	bnt	code_01c2
+		ldi	$0
+		jmp	code_0291
+
+code_01c2:	pushi	$2b		; 43, '+', type
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		ldi	$4000		; 16384
+		and
+		not
+		bnt	code_01d7
+		ldi	$0
+		jmp	code_0291
+
+code_01d7:	pushi	$2b		; 43, '+', type
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		ldi	$4000		; 16384
+		and
+		bnt	code_0221
+		pToa	controls
+		bnt	code_0291
+		lag	global[$49]
+		bnt	code_0213
+		pushi	$3		; z
+		lsp	param[$1]
+		pushi	$f2		; 242, pCast
+		push0
+		lag	global[$3]
+		send	$4
+		bnot
+		push
+		pushi	$264		; 612, pFeatures
+		push0
+		lag	global[$3]
+		send	$4
+		bnot
+		push
+		call	code_02ad, $6
+		bnot
+		bnt	code_0213
+		ldi	$0
+		jmp	code_0291
+
+code_0213:	pushi	$c8		; 200, handleEvent
+		push1
+		lsp	param[$1]
+		lag	global[$1]
+		send	$6
+		bnot
+		jmp	code_0291
+
+code_0221:	lag	global[$49]
+		bnt	code_0242
+		pushi	$3		; z
+		lsp	param[$1]
+		pushi	$f2		; 242, pCast
+		push0
+		lag	global[$3]
+		send	$4
+		bnot
+		push
+		pushi	$264		; 612, pFeatures
+		push0
+		lag	global[$3]
+		send	$4
+		bnot
+		push
+		call	code_02ad, $6
+		bnot
+code_0242:	bt	code_026f
+		lag	global[$49]
+		not
+		bnt	code_0275
+		pushi	$c8		; 200, handleEvent
+		push1
+		lsp	param[$1]
+		pushi	$f2		; 242, pCast
+		push0
+		lag	global[$3]
+		send	$4
+		bnot
+		send	$6
+		bnot
+		bt	code_026f
+		pushi	$c8		; 200, handleEvent
+		push1
+		lsp	param[$1]
+		pushi	$264		; 612, pFeatures
+		push0
+		lag	global[$3]
+		send	$4
+		bnot
+		send	$6
+		bnot
+code_026f:	bnt	code_0275
+		ldi	$0
+		jmp	code_0291
+
+code_0275:	pushi	$c8		; 200, handleEvent
+		push1
+		lsp	param[$1]
+		lag	global[$30]
+		send	$6
+		bnot
+		bnt	code_0286
+		ldi	$0
+		jmp	code_0291
+
+code_0286:	pushi	$c8		; 200, handleEvent
+		push1
+		lsp	param[$1]
+		lag	global[$2]
+		send	$6
+		bnot
+code_0291:	ldi	$1
+		ret
+
+User::canControl:
+		lap	param[$0]
+		bnt	code_02a0
+		lap	param[$1]
+		aTop	controls
+		ldi	$0
+		aTop	prevDir
+code_02a0:	pToa	controls
+		ret
+
+User::canInput:
+		lap	param[$0]
+		bnt	code_02ab
+		lap	param[$1]
+		aTop	input
+code_02ab:	pToa	input
+code_02ad:	ret
+
+		link	$9
+		pushi	$b9		; 185, localize
+		push1
+		push0
+		push0
+		lag	global[$3]
+		send	$4
+		bnot
+		push
+		lap	param[$1]
+		send	$6
+		bnot
+		ldi	$0
+		sat	temp[$0]
+		ldi	$0
+		sat	temp[$1]
+		push2
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		sat	temp[$7]
+		ldi	$0
+		sat	temp[$4]
+code_02d6:	lst	temp[$4]
+		lsp	param[$0]
+		ldi	$1
+		sub
+		lt?
+		bnt	code_0331
+		lat	temp[$4]
+		lapi	param[$2]
+		sat	temp[$2]
+		bnt	code_032d
+		pushi	$5a		; 90, 'Z', size
+		push0
+		send	$4
+		bnot
+		sat	temp[$8]
+		ldi	$0
+		sat	temp[$5]
+code_02f4:	lst	temp[$5]
+		lat	temp[$8]
+		lt?
+		bnt	code_032d
+		pushi	$4b		; 75, 'K', at
+		push1
+		lst	temp[$5]
+		lat	temp[$2]
+		send	$6
+		bnot
+		sat	temp[$3]
+		pushi	$eb		; 235, onMe
+		push1
+		lsp	param[$1]
+		send	$6
+		bnot
+		bnt	code_0329
+		push2
+		push0
+		lat	temp[$3]
+		send	$4
+		bnot
+		sat	temp[$6]
+		push
+		lat	temp[$1]
+		gt?
+		bnt	code_0329
+		lat	temp[$3]
+		sat	temp[$0]
+		lat	temp[$6]
+		sat	temp[$1]
+code_0329:	+at	temp[$5]
+		jmp	code_02f4
+
+code_032d:	+at	temp[$4]
+		jmp	code_02d6
+
+code_0331:	lat	temp[$0]
+		bnt	code_033e
+		pushi	$c8		; 200, handleEvent
+		push1
+		lsp	param[$1]
+		send	$6
+		bnot
+code_033e:	pushi	$ba		; 186, globalize
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		lat	temp[$0]
+		ret
+
diff --git a/Script/Script60020.txt b/Script/Script60020.txt
new file mode 100644
index 0000000..0d42654
--- /dev/null
+++ b/Script/Script60020.txt
@@ -0,0 +1,843 @@
+MySet::delete:
+		lsp	param[$1]
+		pToa	scratch
+		eq?
+		bnt	code_0131
+		ldi	$0
+		aTop	scratch
+code_0131:	pushi	$58		; 88, 'X', delete
+		push1
+		lsp	param[$1]
+		&rest	$2
+		super	Set, $6
+		bnot
+		ret
+
+planes::eachElementDo:
+		link	$3
+		push2
+		pushi	$3		; z
+		pTos	elements
+		callk	kernel_90, $4
+		bnot
+		sat	temp[$0]
+code_014a:	lat	temp[$0]
+		bnt	code_01b9
+		push2
+		pushi	$6		; maxScale
+		push
+		callk	kernel_90, $4
+		bnot
+		aTop	nextNode
+		pushi	$cf		; 207, casts
+		push0
+		push2
+		pushi	$8		; fixPriority
+		lst	temp[$0]
+		callk	kernel_90, $4
+		bnot
+		send	$4
+		bnot
+		sat	temp[$1]
+		push2
+		pushi	$3		; z
+		pushi	$24		; 36, '$', elements
+		push0
+		send	$4
+		bnot
+		push
+		callk	kernel_90, $4
+		bnot
+		sat	temp[$0]
+code_017a:	lat	temp[$0]
+		bnt	code_01b3
+		pushi	$9e		; 158, nextNode
+		push1
+		push2
+		pushi	$6		; maxScale
+		push
+		callk	kernel_90, $4
+		bnot
+		push
+		lat	temp[$1]
+		send	$6
+		bnot
+		push2
+		pushi	$8		; fixPriority
+		lst	temp[$0]
+		callk	kernel_90, $4
+		bnot
+		sat	temp[$2]
+		pushi	$9d		; 157, eachElementDo
+		push1
+		lsp	param[$1]
+		&rest	$2
+		send	$6
+		bnot
+		pushi	$9e		; 158, nextNode
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		sat	temp[$0]
+		jmp	code_017a
+
+code_01b3:	pToa	nextNode
+		sat	temp[$0]
+		jmp	code_014a
+
+code_01b9:	ret
+
+Game::play:
+		link	$1
+		selfID
+		sag	global[$2]
+		lofsa	arrowNormalCursor
+		sag	global[$c]
+		lofsa	arrowWaitCursor
+		sag	global[$d]
+		pushi	$94		; 148, init
+		push0
+		pushi	$1b4		; 436, enable
+		push0
+		lag	global[$c]
+		send	$8
+		bnot
+		pushi	$94		; 148, init
+		push0
+		lag	global[$d]
+		send	$4
+		bnot
+		push0
+		callk	kernel_84, $0
+		bnot
+		not
+		bnt	code_01f0
+		pushi	$75		; 117, 'u', show
+		push1
+		push0
+		lag	global[$b]
+		send	$6
+		bnot
+code_01f0:	pushi	$1b4		; 436, enable
+		push0
+		lag	global[$d]
+		send	$4
+		bnot
+		pushi	$94		; 148, init
+		push0
+		self	$4
+		bnot
+		pushi	$1b5		; 437, disable
+		push0
+		lag	global[$d]
+		send	$4
+		bnot
+		lsg	global[$40]
+		push0
+		callk	kernel_121, $0
+		bnot
+		sub
+		sag	global[$41]
+		lag	global[$40]
+		sal	local[$0]
+		ret
+
+Game::init:
+		link	$1
+		pushi	$20		; 32, ' ', name
+		push1
+		lofsa	string_022e	; "DeadModules"
+		push
+		pushi	$8d		; 141, new
+		push0
+		class	List
+		send	$4
+		bnot
+		sag	global[$69]
+		send	$6
+		bnot
+		pushi	$20		; 32, ' ', name
+		push1
+		lofsa	string_023a	; "GlobalCuees"
+		push
+		pushi	$8d		; 141, new
+		push0
+		class	List
+		send	$4
+		bnot
+		sag	global[$65]
+		send	$6
+		bnot
+		pushi	$20		; 32, ' ', name
+		push1
+		lofsa	string_01c4	; "DeadBitmaps"
+		push
+		pushi	$8d		; 141, new
+		push0
+		lofsa	DeadBitmaps
+		send	$4
+		bnot
+		sag	global[$66]
+		send	$6
+		bnot
+		pushi	$20		; 32, ' ', name
+		push1
+		lofsa	string_0246	; "nullEvtHandler"
+		push
+		pushi	$8d		; 141, new
+		push0
+		class	Set
+		send	$4
+		bnot
+		sag	global[$4d]
+		send	$6
+		bnot
+		lsg	global[$56]
+		lag	global[$57]
+		eq?
+		bnt	code_028a
+		pprev
+		lag	global[$59]
+		eq?
+		bnt	code_028a
+		pprev
+		ldi	$0
+		eq?
+		bnt	code_028a
+		push0
+		calle	export60026_0, $0
+		bnot
+code_028a:	pushi	$9f		; 159, add
+		push0
+		class	GlobalDemons
+		send	$4
+		bnot
+		pushi	$9f		; 159, add
+		push0
+		class	GlobalTimers
+		send	$4
+		bnot
+		pushi	$9f		; 159, add
+		push0
+		class	WaitingTimers
+		send	$4
+		bnot
+		class	Motion
+		sat	temp[$0]
+		class	Sound
+		sat	temp[$0]
+		pushi	$9f		; 159, add
+		push0
+		lofsa	planes
+		sag	global[$25]
+		send	$4
+		bnot
+		pushi	$9f		; 159, add
+		push0
+		lofsa	firstEventHandler
+		sag	global[$27]
+		send	$4
+		bnot
+		pushi	$9f		; 159, add
+		push0
+		lofsa	gameWalkHandler
+		sag	global[$29]
+		send	$4
+		bnot
+		lag	global[$9]
+		not
+		bnt	code_02da
+		class	Button
+		sag	global[$9]
+code_02da:	lag	global[$8]
+		not
+		bnt	code_02e3
+		class	Window
+		sag	global[$8]
+code_02e3:	lag	global[$e]
+		not
+		bnt	code_02ec
+		class	User
+		sag	global[$e]
+code_02ec:	pushi	$94		; 148, init
+		push0
+		lag	global[$e]
+		send	$4
+		bnot
+		pushi	$1b3		; 435, setCursor
+		push2
+		lsg	global[$c]
+		push1
+		self	$8
+		bnot
+		pushi	$94		; 148, init
+		push0
+		class	DialogHandler
+		send	$4
+		bnot
+		ret
+
+Game::doit:
+		link	$5
+		pushi	$279		; 633, pFocusedRoom
+		push0
+		lag	global[$30]
+		send	$4
+		bnot
+		sag	global[$3]
+		push0
+		callk	kernel_121, $0
+		bnot
+		sag	global[$1a]
+		lsg	global[$41]
+		push0
+		callk	kernel_121, $0
+		bnot
+		add
+		sag	global[$40]
+		push
+		lal	local[$0]
+		sub
+		push
+		ldi	$2
+		ugt?
+		bnt	code_0343
+		push1
+		pushi	$b		; 11, inRight
+		callk	kernel_128, $2
+		bnot
+		push1
+		pushi	$4		; scaleX
+		callk	kernel_128, $2
+		bnot
+		lag	global[$40]
+		sal	local[$0]
+code_0343:	pushi	$45		; 69, 'E', doit
+		push0
+		class	GlobalDemons
+		send	$4
+		bnot
+		pushi	$9d		; 157, eachElementDo
+		push1
+		pushi	$45		; 69, 'E', doit
+		class	GlobalTimers
+		send	$6
+		bnot
+		pushi	$9d		; 157, eachElementDo
+		push1
+		pushi	$58		; 88, 'X', delete
+		class	GlobalTimers
+		send	$6
+		bnot
+		pushi	$9d		; 157, eachElementDo
+		push2
+		pushi	$63		; 99, 'c', perform
+		lofsa	AddToTimers
+		push
+		class	WaitingTimers
+		send	$8
+		bnot
+		pushi	$a6		; 166, release
+		push0
+		class	WaitingTimers
+		send	$4
+		bnot
+		lag	global[$30]
+		bnt	code_0383
+		pushi	$45		; 69, 'E', doit
+		push0
+		send	$4
+		bnot
+code_0383:	pToa	script
+		bnt	code_038d
+		pushi	$45		; 69, 'E', doit
+		push0
+		send	$4
+		bnot
+code_038d:	lsg	global[$36]
+		lag	global[$34]
+		ne?
+		bnt	code_039d
+		pushi	$272		; 626, newRoom
+		push1
+		lsg	global[$36]
+		self	$6
+		bnot
+code_039d:	pushi	$5a		; 90, 'Z', size
+		push0
+		lag	global[$69]
+		send	$4
+		bnot
+		sat	temp[$1]
+		bnt	code_03d3
+		ldi	$0
+		sat	temp[$2]
+code_03ad:	lst	temp[$2]
+		lat	temp[$1]
+		lt?
+		bnt	code_03ca
+		pushi	$4b		; 75, 'K', at
+		push1
+		lst	temp[$2]
+		lag	global[$69]
+		send	$6
+		bnot
+		sat	temp[$3]
+		push1
+		push
+		callk	kernel_3, $2
+		bnot
+		+at	temp[$2]
+		jmp	code_03ad
+
+code_03ca:	pushi	$a6		; 166, release
+		push0
+		lag	global[$69]
+		send	$4
+		bnot
+code_03d3:	pushi	$5a		; 90, 'Z', size
+		push0
+		lag	global[$66]
+		send	$4
+		bnot
+		sat	temp[$1]
+		bnt	code_0419
+		ldi	$0
+		sat	temp[$2]
+code_03e3:	lst	temp[$2]
+		lat	temp[$1]
+		lt?
+		bnt	code_0410
+		pushi	$4b		; 75, 'K', at
+		push1
+		lst	temp[$2]
+		lag	global[$66]
+		send	$6
+		bnot
+		sat	temp[$3]
+		push2
+		pushi	$4		; scaleX
+		push
+		callk	kernel_105, $4
+		bnot
+		push
+		ldi	$4b		; 75, 'K', at
+		eq?
+		bnt	code_040c
+		push2
+		push1
+		lst	temp[$3]
+		callk	kernel_35, $4
+		bnot
+code_040c:	+at	temp[$2]
+		jmp	code_03e3
+
+code_0410:	pushi	$a6		; 166, release
+		push0
+		lag	global[$66]
+		send	$4
+		bnot
+code_0419:	lag	global[$32]
+		ret
+
+Game::newRoom:
+		link	$1
+		lag	global[$30]
+		bnt	code_042b
+		pushi	$272		; 626, newRoom
+		push0
+		&rest	$1
+		send	$4
+		bnot
+code_042b:	ret
+
+Game::startRoom:
+		lag	global[$30]
+		not
+		bnt	code_043a
+		push1
+		lsp	param[$1]
+		callk	kernel_2, $2
+		bnot
+		sag	global[$3]
+code_043a:	pushi	$aa		; 170, addToFront
+		push1
+		lsg	global[$3]
+		lag	global[$1f]
+		send	$6
+		bnot
+		pushi	$94		; 148, init
+		push0
+		lag	global[$3]
+		send	$4
+		bnot
+		ret
+
+Game::replay:
+		ret
+
+Game::restart:
+		ret
+
+Game::restore:
+		ret
+
+Game::save:
+		ret
+
+Game::handleEvent:
+		pushi	$50		; 80, 'P', claimed
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		bt	code_0481
+		pToa	script
+		bnt	code_046a
+		pushi	$c8		; 200, handleEvent
+		push1
+		lsp	param[$1]
+		send	$6
+		bnot
+code_046a:	bt	code_0481
+		pushi	$2b		; 43, '+', type
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		ldi	$4000		; 16384
+		and
+		bnt	code_0481
+		pushi	$4f		; 79, 'O', pragmaFail
+		push0
+		self	$4
+		bnot
+code_0481:	pushi	$50		; 80, 'P', claimed
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		ret
+
+Game::quitGame:
+		lap	param[$0]
+		not
+		bt	code_0491
+		lap	param[$1]
+code_0491:	bnt	code_0497
+		ldi	$1
+		sag	global[$32]
+code_0497:	ret
+
+Game::masterVolume:
+		ret
+
+Game::detailLevel:
+		lap	param[$0]
+		bnt	code_04ae
+		lap	param[$1]
+		aTop	_detailLevel
+		pushi	$9d		; 157, eachElementDo
+		push2
+		pushi	$199		; 409, checkDetail
+		push
+		lag	global[$25]
+		send	$8
+		bnot
+code_04ae:	pToa	_detailLevel
+		ret
+
+Game::setCursor:
+		link	$1
+		lag	global[$b]
+		sat	temp[$0]
+		lap	param[$1]
+		sag	global[$b]
+		pushi	$94		; 148, init
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		lsp	param[$0]
+		ldi	$1
+		gt?
+		bnt	code_0506
+		lap	param[$2]
+		bnt	code_04d9
+		pushi	$75		; 117, 'u', show
+		push0
+		lag	global[$b]
+		send	$4
+		bnot
+		jmp	code_04e1
+
+code_04d9:	pushi	$69		; 105, 'i', hide
+		push0
+		lag	global[$b]
+		send	$4
+		bnot
+code_04e1:	lsp	param[$0]
+		ldi	$2
+		gt?
+		bnt	code_0506
+		push2
+		lsp	param[$3]
+		lsp	param[$4]
+		callk	kernel_85, $4
+		bnot
+		lsp	param[$0]
+		ldi	$4		; scaleX
+		gt?
+		bnt	code_0506
+		pushi	$5		; scaleY
+		lsp	param[$1]
+		push0
+		push0
+		lsp	param[$5]
+		lsp	param[$6]
+		callk	kernel_85, $a
+		bnot
+code_0506:	lat	temp[$0]
+		ret
+
+Game::pragmaFail:
+		ret
+
+Game::notify:
+		ldi	$0
+		ret
+
+Game::setScript:
+		pToa	script
+		bnt	code_0518
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+code_0518:	lap	param[$1]
+		bnt	code_0526
+		pushi	$94		; 148, init
+		push1
+		pushSelf
+		&rest	$2
+		send	$6
+		bnot
+code_0526:	ret
+
+Game::cue:
+		pToa	script
+		bnt	code_0534
+		pushi	$c7		; 199, cue
+		push0
+		&rest	$1
+		send	$4
+		bnot
+code_0534:	ret
+
+Game::handsOff:
+		pToa	handsLevel
+		not
+		bnt	code_055b
+		pushi	$262		; 610, canControl
+		push1
+		push0
+		pushi	$263		; 611, canInput
+		push1
+		push0
+		lag	global[$e]
+		send	$c
+		bnot
+		push2
+		pushi	$1f		; 31, brBottom
+		pushi	$6		; maxScale
+		callk	kernel_118, $4
+		bnot
+		pushi	$1b4		; 436, enable
+		push0
+		lag	global[$d]
+		send	$4
+		bnot
+code_055b:	ipToa	handsLevel
+		ret
+
+Game::handsOn:
+		pToa	handsLevel
+		not
+		bnt	code_0564
+		ret
+
+code_0564:	dpToa	handsLevel
+		pToa	handsLevel
+		not
+		bnt	code_058c
+		pushi	$262		; 610, canControl
+		push1
+		push1
+		pushi	$263		; 611, canInput
+		push1
+		push1
+		lag	global[$e]
+		send	$c
+		bnot
+		push2
+		pushi	$1f		; 31, brBottom
+		pushi	$6		; maxScale
+		callk	kernel_118, $4
+		bnot
+		pushi	$1b5		; 437, disable
+		push0
+		lag	global[$d]
+		send	$4
+		bnot
+code_058c:	ret
+
+Game::controlOff:
+		pToa	handsLevel
+		not
+		bnt	code_05b3
+		pushi	$262		; 610, canControl
+		push1
+		push0
+		pushi	$263		; 611, canInput
+		push1
+		push1
+		lag	global[$e]
+		send	$c
+		bnot
+		push2
+		pushi	$1f		; 31, brBottom
+		pushi	$6		; maxScale
+		callk	kernel_118, $4
+		bnot
+		pushi	$1b4		; 436, enable
+		push0
+		lag	global[$d]
+		send	$4
+		bnot
+code_05b3:	ipToa	handsLevel
+		ret
+
+Game::controlOn:
+		pushi	$276		; 630, handsOn
+		push0
+		self	$4
+		bnot
+		ret
+
+DNKR::doit:
+		pushi	$239		; 569, keep
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		not
+		bnt	code_05d3
+		pushi	$95		; 149, dispose
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+code_05d3:	ret
+
+screen::open:
+		ldi	$0
+		aTop	modal
+		aTop	curItem
+		pushi	$1b8		; 440, addCast
+		push1
+		pushSelf
+		pToa	plane
+		send	$6
+		bnot
+		lag	global[$3a]
+		aTop	font
+		pushi	$57		; 87, 'W', draw
+		push0
+		self	$4
+		bnot
+		pushi	$9f		; 159, add
+		push1
+		pushSelf
+		lag	global[$13]
+		send	$6
+		bnot
+		ret
+
+screen::dispose:
+		pushi	$1b9		; 441, deleteCast
+		push1
+		pushSelf
+		pToa	plane
+		send	$6
+		bnot
+		ldi	$0
+		aTop	plane
+		pushi	$95		; 149, dispose
+		push0
+		super	Dialog, $4
+		bnot
+		ret
+
+screen::returnHandler:
+		ldi	$0
+		ret
+
+screen::handleEvent:
+		pushi	$1f7		; 503, input
+		push0
+		lag	global[$e]
+		send	$4
+		bnot
+		not
+		bnt	code_0622
+		ldi	$0
+		ret
+
+code_0622:	pushi	$c8		; 200, handleEvent
+		push1
+		lsp	param[$1]
+		super	Dialog, $6
+		bnot
+		ret
+
+screen::draw:
+		link	$1
+		pToa	curItem
+		not
+		bnt	code_0652
+		pushi	$5a		; 90, 'Z', size
+		push0
+		self	$4
+		bnot
+		bnt	code_0652
+		pushi	$a0		; 160, firstTrue
+		push2
+		pushi	$1cc		; 460, checkState
+		push1
+		self	$8
+		bnot
+		sat	temp[$0]
+		pushi	$1d4		; 468, selectItem
+		push2
+		push
+		push0
+		self	$8
+		bnot
+code_0652:	pushi	$9d		; 157, eachElementDo
+		push1
+		pushi	$57		; 87, 'W', draw
+		self	$6
+		bnot
+		ret
+
+AddToTimers::doit:
+		pushi	$9f		; 159, add
+		push1
+		lsp	param[$1]
+		class	GlobalTimers
+		send	$6
+		bnot
+		ret
+
diff --git a/Script/Script60021.txt b/Script/Script60021.txt
new file mode 100644
index 0000000..7908db1
--- /dev/null
+++ b/Script/Script60021.txt
@@ -0,0 +1,1533 @@
+MenuBar::init:
+		lap	param[$0]
+		bnt	code_0163
+		lap	param[$1]
+		aTop	left
+		lsp	param[$0]
+		ldi	$1
+		gt?
+		bnt	code_0163
+		lap	param[$2]
+		aTop	top
+		lsp	param[$0]
+		ldi	$2
+		gt?
+		bnt	code_0163
+		lap	param[$3]
+		aTop	right
+		lsp	param[$0]
+		ldi	$3		; z
+		gt?
+		bnt	code_0163
+		lap	param[$4]
+		aTop	bottom
+code_0163:	pushi	$94		; 148, init
+		push0
+		super	List, $4
+		bnot
+		ret
+
+MenuBar::construct:
+		link	$5
+		pushi	$d0		; 208, with
+		pushi	$4		; scaleX
+		push0
+		push0
+		push0
+		push0
+		class	IntArray
+		send	$c
+		bnot
+		sat	temp[$2]
+		pushi	$26		; 38, '&', back
+		push1
+		pTos	back
+		pushi	$7		; priority
+		push1
+		pushi	$fa		; 250, lower
+		pushi	$87		; 135, left
+		push1
+		pTos	left
+		pushi	$89		; 137, top
+		push1
+		pTos	top
+		pushi	$88		; 136, right
+		push1
+		pTos	right
+		pushi	$8a		; 138, bottom
+		push1
+		pTos	bottom
+		pushi	$94		; 148, init
+		push0
+		pushi	$9a		; 154, yourself
+		push0
+		pushi	$8d		; 141, new
+		push0
+		class	Plane
+		send	$4
+		bnot
+		send	$2c
+		bnot
+		aTop	plane
+		pushi	$cf		; 207, casts
+		push0
+		pToa	plane
+		send	$4
+		bnot
+		aTop	casts
+		ldi	$3		; z
+		sat	temp[$4]
+		ldi	$0
+		sat	temp[$0]
+code_01cb:	lst	temp[$0]
+		pToa	size
+		lt?
+		bnt	code_028b
+		pushi	$4b		; 75, 'K', at
+		push1
+		lst	temp[$0]
+		self	$6
+		bnot
+		sat	temp[$3]
+		pushi	$5		; scaleY
+		push0
+		pushi	$71		; 113, 'q', data
+		push0
+		lat	temp[$2]
+		send	$4
+		bnot
+		push
+		pushi	$20		; 32, ' ', name
+		push0
+		lat	temp[$3]
+		send	$4
+		bnot
+		push
+		pTos	font
+		push0
+		callk	kernel_70, $a
+		bnot
+		pushi	$87		; 135, left
+		push1
+		lst	temp[$4]
+		pushi	$88		; 136, right
+		push1
+		lst	temp[$4]
+		pushi	$4b		; 75, 'K', at
+		push1
+		push2
+		lat	temp[$2]
+		send	$6
+		bnot
+		add
+		push
+		ldi	$1
+		add
+		push
+		pushi	$23		; 35, '#', text
+		push1
+		pushi	$23		; 35, '#', text
+		push1
+		pushi	$20		; 32, ' ', name
+		push0
+		pushi	$4b		; 75, 'K', at
+		push1
+		lst	temp[$0]
+		self	$6
+		bnot
+		send	$4
+		bnot
+		push
+		pushi	$2a		; 42, '*', font
+		push1
+		pTos	font
+		pushi	$25		; 37, '%', fore
+		push1
+		push0
+		pushi	$26		; 38, '&', back
+		push1
+		pTos	back
+		pushi	$72		; 114, 'r', skip
+		push1
+		pushi	$fe		; 254, strIndex
+		pushi	$1be		; 446, setSize
+		push0
+		pushi	$dc		; 220, posn
+		push2
+		lst	temp[$4]
+		push1
+		pushi	$4a		; 74, 'J', setPri
+		push1
+		pushi	$fa		; 250, lower
+		pushi	$94		; 148, init
+		push1
+		pushi	$cf		; 207, casts
+		push0
+		self	$4
+		bnot
+		push
+		pushi	$9a		; 154, yourself
+		push0
+		pushi	$8d		; 141, new
+		push0
+		class	TextItem
+		send	$4
+		bnot
+		send	$3a
+		bnot
+		push
+		pushi	$2b3		; 691, construct
+		push0
+		lat	temp[$3]
+		send	$16
+		bnot
+		lst	temp[$4]
+		pushi	$4b		; 75, 'K', at
+		push1
+		push2
+		lat	temp[$2]
+		send	$6
+		bnot
+		push
+		pToa	margin
+		add
+		add
+		sat	temp[$4]
+		+at	temp[$0]
+		jmp	code_01cb
+
+code_028b:	pushi	$b5		; 181, set
+		pushi	$5		; scaleY
+		pTos	left
+		pTos	top
+		pTos	right
+		pTos	bottom
+		push1
+		pToa	plane
+		send	$e
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$2]
+		send	$4
+		bnot
+		ret
+
+MenuBar::show:
+		pToa	plane
+		bnt	code_02c6
+		pTos	state
+		ldi	$1
+		or
+		aTop	state
+		pushi	$7		; priority
+		push1
+		pushi	$fa		; 250, lower
+		pToa	plane
+		send	$6
+		bnot
+		push1
+		pTos	plane
+		callk	kernel_42, $2
+		bnot
+code_02c6:	push0
+		callk	kernel_33, $0
+		bnot
+		ret
+
+MenuBar::onMe:
+		push1
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		pToa	left
+		ge?
+		bnt	code_02fe
+		push1
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		pToa	right
+		le?
+		bnt	code_02fe
+		push2
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		pToa	top
+		ge?
+		bnt	code_02fe
+		push2
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		pToa	bottom
+		le?
+code_02fe:	ret
+
+MenuBar::handleEvent:
+		link	$5
+		pushi	$2b		; 43, '+', type
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		ldi	$4		; scaleX
+		and
+		bnt	code_0363
+		ldi	$0
+		sat	temp[$3]
+code_0313:	lst	temp[$3]
+		pToa	size
+		lt?
+		bnt	code_03ff
+		ldi	$0
+		sat	temp[$4]
+code_031f:	lst	temp[$4]
+		pushi	$5a		; 90, 'Z', size
+		push0
+		pushi	$4b		; 75, 'K', at
+		push1
+		lst	temp[$3]
+		self	$6
+		bnot
+		send	$4
+		bnot
+		lt?
+		bnt	code_035c
+		pushi	$c8		; 200, handleEvent
+		push1
+		lsp	param[$1]
+		pushi	$4b		; 75, 'K', at
+		push1
+		lst	temp[$4]
+		pushi	$4b		; 75, 'K', at
+		push1
+		lst	temp[$3]
+		self	$6
+		bnot
+		send	$6
+		bnot
+		send	$6
+		bnot
+		pushi	$50		; 80, 'P', claimed
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		bnt	code_0358
+		ldi	$1
+		ret
+
+code_0358:	+at	temp[$4]
+		jmp	code_031f
+
+code_035c:	+at	temp[$3]
+		jmp	code_0313
+
+		jmp	code_03ff
+
+code_0363:	pTos	state
+		ldi	$1
+		and
+		bnt	code_03fc
+		pushi	$2b		; 43, '+', type
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		ldi	$1
+		and
+		bnt	code_03fc
+		pushi	$eb		; 235, onMe
+		push1
+		lsp	param[$1]
+		self	$6
+		bnot
+		bnt	code_03fc
+		ldi	$0
+		sat	temp[$1]
+		ldi	$0
+		sat	temp[$0]
+		lap	param[$1]
+		sat	temp[$2]
+code_0392:	pushi	$a0		; 160, firstTrue
+		push2
+		pushi	$eb		; 235, onMe
+		lst	temp[$2]
+		self	$8
+		bnot
+		sat	temp[$0]
+		push
+		ldi	$0
+		ne?
+		bnt	code_03c9
+		pushi	$1c9		; 457, highlight
+		push1
+		push1
+		lat	temp[$0]
+		send	$6
+		bnot
+		pushi	$c8		; 200, handleEvent
+		push1
+		lst	temp[$2]
+		lat	temp[$0]
+		send	$6
+		bnot
+		sat	temp[$1]
+		pushi	$1c9		; 457, highlight
+		push1
+		push0
+		lat	temp[$0]
+		send	$6
+		bnot
+		jmp	code_03db
+
+code_03c9:	pushi	$2b		; 43, '+', type
+		push0
+		lat	temp[$2]
+		send	$4
+		bnot
+		push
+		ldi	$2
+		and
+		bnt	code_03db
+		ldi	$1
+		sat	temp[$1]
+code_03db:	lat	temp[$1]
+		bnt	code_03e3
+		jmp	code_03f0
+
+		jmp	code_0392
+
+code_03e3:	pushi	$f3		; 243, nextEvent
+		push0
+		lag	global[$e]
+		send	$4
+		bnot
+		sat	temp[$2]
+		jmp	code_0392
+
+code_03f0:	pushi	$50		; 80, 'P', claimed
+		push1
+		push1
+		lap	param[$1]
+		send	$6
+		bnot
+		ret
+
+		jmp	code_03ff
+
+code_03fc:	ldi	$0
+		ret
+
+code_03ff:	ret
+
+MenuBar::hide:
+		pToa	plane
+		bnt	code_041c
+		pTos	state
+		ldi	$fe		; 254, strIndex
+		and
+		aTop	state
+		pushi	$7		; priority
+		push1
+		pushi	$ff		; 255, asInteger
+		pToa	plane
+		send	$6
+		bnot
+		push1
+		pTos	plane
+		callk	kernel_42, $2
+		bnot
+code_041c:	ret
+
+MenuBar::dispose:
+		pushi	$69		; 105, 'i', hide
+		push0
+		self	$4
+		bnot
+		pToa	plane
+		bnt	code_042e
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+code_042e:	pToa	name
+		bnt	code_0439
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+code_0439:	pushi	$95		; 149, dispose
+		push0
+		super	List, $4
+		bnot
+		ret
+
+MenuBar::select:
+		pushi	$1ca		; 458, select
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		ret
+
+MenuList::init:
+		lap	param[$0]
+		bnt	code_0454
+		lap	param[$1]
+		aTop	client
+code_0454:	pushi	$94		; 148, init
+		push0
+		super	List, $4
+		bnot
+		pushi	$89		; 137, top
+		push0
+		pToa	client
+		send	$4
+		bnot
+		aTop	top
+		pushi	$8a		; 138, bottom
+		push0
+		pToa	client
+		send	$4
+		bnot
+		aTop	bottom
+		ret
+
+MenuList::highlight:
+		link	$3
+		lap	param[$0]
+		bnt	code_047d
+		lap	param[$1]
+		jmp	code_0483
+
+code_047d:	pTos	state
+		ldi	$20		; 32, ' ', name
+		and
+		not
+code_0483:	sat	temp[$0]
+		pTos	state
+		ldi	$20		; 32, ' ', name
+		and
+		bnt	code_04aa
+		lat	temp[$0]
+		bnt	code_0493
+		ret
+
+		jmp	code_04a1
+
+code_0493:	lag	global[$54]
+		sat	temp[$1]
+		pushi	$26		; 38, '&', back
+		push0
+		pToa	text
+		send	$4
+		bnot
+		sat	temp[$2]
+code_04a1:	pTos	state
+		ldi	$df		; 223, centerOn
+		and
+		aTop	state
+		jmp	code_04c7
+
+code_04aa:	lat	temp[$0]
+		not
+		bnt	code_04b2
+		ret
+
+		jmp	code_04c0
+
+code_04b2:	pushi	$26		; 38, '&', back
+		push0
+		pToa	text
+		send	$4
+		bnot
+		sat	temp[$1]
+		lag	global[$54]
+		sat	temp[$2]
+code_04c0:	pTos	state
+		ldi	$20		; 32, ' ', name
+		or
+		aTop	state
+code_04c7:	pushi	$8		; fixPriority
+		pushi	$7		; priority
+		pushi	$11		; 17, bitmap
+		push0
+		pToa	text
+		send	$4
+		bnot
+		push
+		push0
+		push0
+		pushi	$88		; 136, right
+		push0
+		pToa	text
+		send	$4
+		bnot
+		push
+		pushi	$87		; 135, left
+		push0
+		pToa	text
+		send	$4
+		bnot
+		sub
+		push
+		pushi	$8a		; 138, bottom
+		push0
+		pToa	text
+		send	$4
+		bnot
+		push
+		pushi	$89		; 137, top
+		push0
+		pToa	text
+		send	$4
+		bnot
+		sub
+		push
+		lst	temp[$2]
+		lst	temp[$1]
+		callk	kernel_35, $10
+		bnot
+		push1
+		pTos	text
+		callk	kernel_32, $2
+		bnot
+		push0
+		callk	kernel_33, $0
+		bnot
+		ret
+
+MenuList::construct:
+		link	$c
+		pushi	$d0		; 208, with
+		pushi	$4		; scaleX
+		push0
+		push0
+		push0
+		push0
+		class	IntArray
+		send	$c
+		bnot
+		sat	temp[$3]
+		pushi	$d0		; 208, with
+		pushi	$4		; scaleX
+		push0
+		push0
+		push0
+		push0
+		class	IntArray
+		send	$c
+		bnot
+		sat	temp[$4]
+		ldi	$0
+		sat	temp[$5]
+		pushi	$2b2		; 690, yMargin
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		ldi	$1
+		add
+		sat	temp[$6]
+		pushi	$94		; 148, init
+		push0
+		pushi	$9a		; 154, yourself
+		push0
+		pushi	$8d		; 141, new
+		push0
+		class	Plane
+		send	$4
+		bnot
+		send	$8
+		bnot
+		aTop	plane
+		pushi	$cf		; 207, casts
+		push0
+		pToa	plane
+		send	$4
+		bnot
+		aTop	casts
+		ldi	$0
+		sat	temp[$0]
+code_0571:	lst	temp[$0]
+		pToa	size
+		lt?
+		bnt	code_05d2
+		pushi	$5		; scaleY
+		push0
+		pushi	$71		; 113, 'q', data
+		push0
+		lat	temp[$3]
+		send	$4
+		bnot
+		push
+		pushi	$23		; 35, '#', text
+		push0
+		pushi	$4b		; 75, 'K', at
+		push1
+		lst	temp[$0]
+		self	$6
+		bnot
+		send	$4
+		bnot
+		push
+		pushi	$2a		; 42, '*', font
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		push0
+		callk	kernel_70, $a
+		bnot
+		pushi	$4b		; 75, 'K', at
+		push1
+		push2
+		lat	temp[$3]
+		send	$6
+		bnot
+		push
+		ldi	$1e		; 30, brRight
+		add
+		push
+		lat	temp[$5]
+		gt?
+		bnt	code_05c3
+		pushi	$4b		; 75, 'K', at
+		push1
+		push2
+		lat	temp[$3]
+		send	$6
+		bnot
+		push
+		ldi	$1e		; 30, brRight
+		add
+		sat	temp[$5]
+code_05c3:	lst	temp[$5]
+		ldi	$1e		; 30, brRight
+		lt?
+		bnt	code_05ce
+		ldi	$1e		; 30, brRight
+		sat	temp[$5]
+code_05ce:	+at	temp[$0]
+		jmp	code_0571
+
+code_05d2:	ldi	$0
+		sat	temp[$0]
+code_05d6:	lst	temp[$0]
+		pToa	size
+		lt?
+		bnt	code_0688
+		pushi	$4b		; 75, 'K', at
+		push1
+		lst	temp[$0]
+		self	$6
+		bnot
+		sat	temp[$2]
+		pushi	$23		; 35, '#', text
+		push0
+		send	$4
+		bnot
+		bnt	code_0683
+		pushi	$2a		; 42, '*', font
+		push1
+		pushi	$2a		; 42, '*', font
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		pushi	$25		; 37, '%', fore
+		push1
+		push0
+		pushi	$26		; 38, '&', back
+		push1
+		pushi	$26		; 38, '&', back
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		pushi	$72		; 114, 'r', skip
+		push1
+		pushi	$fe		; 254, strIndex
+		pushi	$4a		; 74, 'J', setPri
+		push1
+		pushi	$fd		; 253, strip
+		pushi	$dc		; 220, posn
+		push2
+		pushi	$2b1		; 689, xMargin
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		lst	temp[$6]
+		pushi	$87		; 135, left
+		push1
+		pushi	$2b1		; 689, xMargin
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		pushi	$88		; 136, right
+		push1
+		pushi	$2b1		; 689, xMargin
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		lat	temp[$5]
+		add
+		push
+		ldi	$1
+		add
+		push
+		pushi	$89		; 137, top
+		push1
+		lst	temp[$6]
+		pushi	$8a		; 138, bottom
+		push1
+		lst	temp[$6]
+		pushi	$4b		; 75, 'K', at
+		push1
+		pushi	$3		; z
+		lat	temp[$3]
+		send	$6
+		bnot
+		push
+		pushi	$2b2		; 690, yMargin
+		push0
+		pToa	client
+		send	$4
+		bnot
+		add
+		add
+		sat	temp[$6]
+		push
+		pushi	$94		; 148, init
+		push1
+		pushi	$cf		; 207, casts
+		push0
+		self	$4
+		bnot
+		push
+		lat	temp[$2]
+		send	$44
+		bnot
+code_0683:	+at	temp[$0]
+		jmp	code_05d6
+
+code_0688:	pushi	$26		; 38, '&', back
+		push1
+		pushi	$26		; 38, '&', back
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		pushi	$7		; priority
+		push1
+		push0
+		pushi	$87		; 135, left
+		push1
+		pTos	left
+		pushi	$89		; 137, top
+		push1
+		pushi	$8a		; 138, bottom
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		ldi	$1
+		add
+		push
+		pushi	$88		; 136, right
+		push1
+		pTos	left
+		lat	temp[$5]
+		add
+		push
+		pushi	$2b1		; 689, xMargin
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		ldi	$2
+		mul
+		push
+		ldi	$2
+		add
+		add
+		push
+		pushi	$8a		; 138, bottom
+		push1
+		pushi	$8a		; 138, bottom
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		ldi	$1
+		add
+		push
+		lat	temp[$6]
+		add
+		push
+		pToa	plane
+		send	$24
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$3]
+		send	$4
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$4]
+		send	$4
+		bnot
+		ret
+
+MenuList::show:
+		pToa	plane
+		bnt	code_070f
+		pushi	$7		; priority
+		push1
+		pushi	$fa		; 250, lower
+		send	$6
+		bnot
+		push1
+		pTos	plane
+		callk	kernel_42, $2
+		bnot
+code_070f:	push0
+		callk	kernel_33, $0
+		bnot
+		ret
+
+MenuList::onMe:
+		push1
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		pToa	left
+		ge?
+		bnt	code_0747
+		push1
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		pToa	right
+		le?
+		bnt	code_0747
+		push2
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		pToa	top
+		ge?
+		bnt	code_0747
+		push2
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		pToa	bottom
+		le?
+code_0747:	ret
+
+MenuList::handleEvent:
+		link	$5
+		pToa	size
+		bnt	code_0754
+		pushi	$75		; 117, 'u', show
+		push0
+		self	$4
+		bnot
+code_0754:	lap	param[$1]
+		sat	temp[$1]
+		ldi	$0
+		sat	temp[$3]
+		sat	temp[$2]
+code_075e:	pushi	$2b		; 43, '+', type
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		ldi	$2
+		ne?
+		bnt	code_0823
+		pushi	$eb		; 235, onMe
+		push2
+		push1
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		push2
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		pToa	plane
+		send	$8
+		bnot
+		bnt	code_07de
+		pushi	$b9		; 185, localize
+		push1
+		pTos	plane
+		lat	temp[$1]
+		send	$6
+		bnot
+		pushi	$a0		; 160, firstTrue
+		push2
+		pushi	$eb		; 235, onMe
+		lst	temp[$1]
+		self	$8
+		bnot
+		sat	temp[$3]
+		bnt	code_07b4
+		pushi	$29		; 41, ')', state
+		push0
+		send	$4
+		bnot
+		push
+		ldi	$1
+		and
+		not
+		bnt	code_07b4
+		lat	temp[$2]
+		sat	temp[$3]
+code_07b4:	lst	temp[$2]
+		lat	temp[$3]
+		ne?
+		bnt	code_0815
+		lat	temp[$2]
+		bnt	code_07cc
+		pushi	$1c9		; 457, highlight
+		push1
+		push0
+		send	$6
+		bnot
+		ldi	$0
+		sat	temp[$2]
+code_07cc:	lat	temp[$3]
+		sat	temp[$2]
+		lat	temp[$3]
+		bnt	code_0815
+		pushi	$1c9		; 457, highlight
+		push1
+		push1
+		send	$6
+		bnot
+		jmp	code_0815
+
+code_07de:	pushi	$eb		; 235, onMe
+		push1
+		lst	temp[$1]
+		self	$6
+		bnot
+		bnt	code_07ed
+		ldi	$0
+		jmp	code_0815
+
+code_07ed:	pushi	$eb		; 235, onMe
+		push1
+		lst	temp[$1]
+		pToa	client
+		send	$6
+		bnot
+		bnt	code_0805
+		pushi	$69		; 105, 'i', hide
+		push0
+		self	$4
+		bnot
+		ldi	$0
+		ret
+
+		jmp	code_0815
+
+code_0805:	lat	temp[$2]
+		bnt	code_0815
+		pushi	$1c9		; 457, highlight
+		push1
+		push0
+		send	$6
+		bnot
+		ldi	$0
+		sat	temp[$2]
+code_0815:	pushi	$f3		; 243, nextEvent
+		push0
+		lag	global[$e]
+		send	$4
+		bnot
+		sat	temp[$1]
+		jmp	code_075e
+
+code_0823:	lat	temp[$2]
+		bnt	code_0843
+		pushi	$1c9		; 457, highlight
+		push1
+		push0
+		send	$6
+		bnot
+		pushi	$69		; 105, 'i', hide
+		push0
+		self	$4
+		bnot
+		pushi	$1ca		; 458, select
+		push1
+		lst	temp[$2]
+		pToa	client
+		send	$6
+		bnot
+		ldi	$1
+		ret
+
+code_0843:	pushi	$69		; 105, 'i', hide
+		push0
+		self	$4
+		bnot
+		ldi	$1
+		ret
+
+MenuList::select:
+		ret
+
+MenuList::hide:
+		pToa	plane
+		bnt	code_0860
+		pushi	$7		; priority
+		push1
+		pushi	$ff		; 255, asInteger
+		send	$6
+		bnot
+		push1
+		pTos	plane
+		callk	kernel_42, $2
+		bnot
+code_0860:	ret
+
+MenuList::dispose:
+		pushi	$69		; 105, 'i', hide
+		push0
+		self	$4
+		bnot
+		pToa	plane
+		bnt	code_0872
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+code_0872:	pToa	name
+		bnt	code_087d
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+code_087d:	pushi	$95		; 149, dispose
+		push0
+		super	List, $4
+		bnot
+		ret
+
+MenuOption::onMe:
+		push1
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		pToa	left
+		ge?
+		bnt	code_08b8
+		push1
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		pToa	right
+		le?
+		bnt	code_08b8
+		push2
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		pToa	top
+		ge?
+		bnt	code_08b8
+		push2
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		pToa	bottom
+		le?
+code_08b8:	ret
+
+MenuOption::highlight:
+		link	$3
+		lap	param[$0]
+		bnt	code_08c3
+		lap	param[$1]
+		jmp	code_08c9
+
+code_08c3:	pTos	state
+		ldi	$20		; 32, ' ', name
+		and
+		not
+code_08c9:	sat	temp[$0]
+		pTos	state
+		ldi	$20		; 32, ' ', name
+		and
+		bnt	code_08ea
+		lat	temp[$0]
+		bnt	code_08d9
+		ret
+
+		jmp	code_08e1
+
+code_08d9:	lag	global[$54]
+		sat	temp[$2]
+		pToa	back
+		sat	temp[$1]
+code_08e1:	pTos	state
+		ldi	$df		; 223, centerOn
+		and
+		aTop	state
+		jmp	code_0901
+
+code_08ea:	lat	temp[$0]
+		not
+		bnt	code_08f2
+		ret
+
+		jmp	code_08fa
+
+code_08f2:	pToa	back
+		sat	temp[$2]
+		lag	global[$54]
+		sat	temp[$1]
+code_08fa:	pTos	state
+		ldi	$20		; 32, ' ', name
+		or
+		aTop	state
+code_0901:	pushi	$8		; fixPriority
+		pushi	$7		; priority
+		pTos	bitmap
+		push0
+		push0
+		pTos	right
+		pToa	left
+		sub
+		push
+		pTos	bottom
+		pToa	top
+		sub
+		push
+		lst	temp[$1]
+		lst	temp[$2]
+		callk	kernel_35, $10
+		bnot
+		push1
+		pushSelf
+		callk	kernel_32, $2
+		bnot
+		push0
+		callk	kernel_33, $0
+		bnot
+		ret
+
+MenuOption::select:
+		pToa	theObj
+		bnt	code_093d
+		pToa	selector
+		bnt	code_093d
+		push2
+		pTos	theObj
+		pTos	selector
+		calle	export60025_5, $4
+		bnot
+code_093d:	ret
+
+MenuOption::handleEvent:
+		pTos	state
+		ldi	$1
+		or
+		bnt	code_0990
+		pTos	hotKey
+		pushi	$31		; 49, '1', message
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		eq?
+		bt	code_097e
+		pushi	$31		; 49, '1', message
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		ldi	$61		; 97, 'a', frame
+		gt?
+		bnt	code_0990
+		pushi	$31		; 49, '1', message
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		ldi	$7a		; 122, 'z', borderColor
+		lt?
+		bnt	code_0990
+		pTos	hotKey
+		pushi	$31		; 49, '1', message
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		ldi	$20		; 32, ' ', name
+		sub
+		eq?
+code_097e:	bnt	code_0990
+		pushi	$1ca		; 458, select
+		push0
+		self	$4
+		bnot
+		pushi	$50		; 80, 'P', claimed
+		push1
+		push1
+		lap	param[$1]
+		send	$6
+		bnot
+code_0990:	ret
+
+		link	$1
+		ldi	$0
+		sat	temp[$0]
+		push0
+		lap	param[$2]
+		le?
+		bnt	code_09c3
+		pprev
+		ldi	$1a		; 26, signal
+		le?
+		bnt	code_09c3
+		pushi	$4b		; 75, 'K', at
+		push2
+		lst	temp[$0]
+		pushi	$3		; z
+		lap	param[$1]
+		send	$8
+		bnot
+		pushi	$4b		; 75, 'K', at
+		push2
+		+at	temp[$0]
+		push
+		lsp	param[$2]
+		ldi	$40		; 64, '@', yStep
+		add
+		push
+		lap	param[$1]
+		send	$8
+		bnot
+		jmp	code_0ac6
+
+code_09c3:	pushi	$7a		; 122, 'z', borderColor
+		lap	param[$2]
+		ge?
+		bnt	code_09e3
+		pprev
+		ldi	$61		; 97, 'a', frame
+		ge?
+		bnt	code_09e3
+		pushi	$4b		; 75, 'K', at
+		push2
+		lst	temp[$0]
+		lsp	param[$2]
+		ldi	$20		; 32, ' ', name
+		sub
+		push
+		lap	param[$1]
+		send	$8
+		bnot
+		jmp	code_0ac6
+
+code_09e3:	pushi	$5a		; 90, 'Z', size
+		lap	param[$2]
+		ge?
+		bnt	code_09ff
+		pprev
+		ldi	$41		; 65, 'A', moveSpeed
+		ge?
+		bnt	code_09ff
+		pushi	$4b		; 75, 'K', at
+		push2
+		lst	temp[$0]
+		lsp	param[$2]
+		lap	param[$1]
+		send	$8
+		bnot
+		jmp	code_0ac6
+
+code_09ff:	pushi	$4300		; 17152
+		lap	param[$2]
+		ge?
+		bnt	code_0a32
+		pprev
+		ldi	$3b00		; 15104
+		ge?
+		bnt	code_0a32
+		pushi	$4b		; 75, 'K', at
+		push2
+		lst	temp[$0]
+		pushi	$46		; 70, 'F', isBlocked
+		lap	param[$1]
+		send	$8
+		bnot
+		pushi	$4b		; 75, 'K', at
+		push2
+		+at	temp[$0]
+		push
+		pushi	$32		; 50, '2', edit
+		lsp	param[$2]
+		ldi	$3b00		; 15104
+		sub
+		add
+		push
+		lap	param[$1]
+		send	$8
+		bnot
+		jmp	code_0ac6
+
+code_0a32:	lsp	param[$2]
+		ldi	$3a00		; 14848
+		eq?
+		bnt	code_0a63
+		pushi	$4b		; 75, 'K', at
+		push2
+		lst	temp[$0]
+		pushi	$46		; 70, 'F', isBlocked
+		lap	param[$1]
+		send	$8
+		bnot
+		pushi	$4b		; 75, 'K', at
+		push2
+		+at	temp[$0]
+		push
+		pushi	$31		; 49, '1', message
+		lap	param[$1]
+		send	$8
+		bnot
+		pushi	$4b		; 75, 'K', at
+		push2
+		+at	temp[$0]
+		push
+		pushi	$30		; 48, '0', who
+		lap	param[$1]
+		send	$8
+		bnot
+		jmp	code_0ac6
+
+code_0a63:	pushi	$2c00		; 11264
+		lap	param[$2]
+		ge?
+		bnt	code_0a96
+		pprev
+		ldi	$1e00		; 7680
+		ge?
+		bnt	code_0a96
+		pushi	$4b		; 75, 'K', at
+		push2
+		lst	temp[$0]
+		push2
+		lap	param[$1]
+		send	$8
+		bnot
+		pushi	$4b		; 75, 'K', at
+		push2
+		+at	temp[$0]
+		push
+		push1
+		lsp	param[$2]
+		calle	export60025_6, $2
+		bnot
+		push
+		lap	param[$1]
+		send	$8
+		bnot
+		jmp	code_0ac6
+
+code_0a96:	pushi	$2c00		; 11264
+		lap	param[$2]
+		ge?
+		bnt	code_0ac6
+		pprev
+		ldi	$1e00		; 7680
+		ge?
+		bnt	code_0ac6
+		pushi	$4b		; 75, 'K', at
+		push2
+		lst	temp[$0]
+		push2
+		lap	param[$1]
+		send	$8
+		bnot
+		pushi	$4b		; 75, 'K', at
+		push2
+		+at	temp[$0]
+		push
+		push1
+		lsp	param[$2]
+		calle	export60025_6, $2
+		bnot
+		push
+		lap	param[$1]
+		send	$8
+		bnot
+code_0ac6:	pushi	$4b		; 75, 'K', at
+		push2
+		+at	temp[$0]
+		push
+		push0
+		lap	param[$1]
+		send	$8
+		bnot
+		lap	param[$1]
+		ret
+
diff --git a/Script/Script60022.txt b/Script/Script60022.txt
new file mode 100644
index 0000000..4f8e331
--- /dev/null
+++ b/Script/Script60022.txt
@@ -0,0 +1,426 @@
+code_00e7:	add
+		link	$1
+		pToa	property_16
+		sat	temp[$0]
+		ldi	$0
+		aTop	property_16
+		lat	temp[$0]
+		bnt	$12d
+		pushi	$99		; 153, respondsTo
+		push1
+		pushi	$bc		; 188, timer
+		send	$6
+		bnot
+		bnt	$10c
+		pushi	$bc		; 188, timer
+		push1
+		push0
+		lat	temp[$0]
+		send	$6
+		bnot
+		pushi	$99		; 153, respondsTo
+		push1
+		pushi	$104		; 260, cueSelector
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		lat	temp[$0]
+		send	$6
+		bnot
+		bnt	$12d
+		push2
+		lst	temp[$0]
+		pTos	property_17
+		calle	export60025_5, $4
+		bnot
+		ret
+
+Timer::new:
+		pTos	-info-
+		ldi	$8000		; -32768
+		and
+		bnt	code_0140
+		pushi	$8d		; 141, new
+		push0
+		super	Obj, $4
+		bnot
+		jmp	code_0141
+
+code_0140:	selfID
+code_0141:	ret
+
+Timer::init:
+		lag	global[$3]
+		aTop	pRoom
+		lap	param[$1]
+		aTop	client
+		pushi	$9f		; 159, add
+		push1
+		pushSelf
+		pushi	$108		; 264, pTimers
+		push0
+		pToa	pRoom
+		send	$4
+		bnot
+		send	$6
+		bnot
+		pushi	$99		; 153, respondsTo
+		push1
+		pushi	$bc		; 188, timer
+		lap	param[$1]
+		send	$6
+		bnot
+		bnt	code_018e
+		pushi	$bc		; 188, timer
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		bnt	code_0184
+		pushi	$95		; 149, dispose
+		push0
+		pushi	$bc		; 188, timer
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		send	$4
+		bnot
+code_0184:	pushi	$bc		; 188, timer
+		push1
+		pushSelf
+		lap	param[$1]
+		send	$6
+		bnot
+code_018e:	ret
+
+Timer::doit:
+		link	$1
+		pTos	cycleCnt
+		ldi	$ff		; 255, asInteger
+		ne?
+		bnt	code_01a6
+		dpToa	cycleCnt
+		not
+		bnt	code_01de
+		push1
+		pushSelf
+		call	code_00e7, $2
+		bnot
+		jmp	code_01de
+
+code_01a6:	pTos	seconds
+		ldi	$ff		; 255, asInteger
+		ne?
+		bnt	code_01cc
+		pTos	lastTime
+		push1
+		push1
+		callk	kernel_121, $2
+		bnot
+		sat	temp[$0]
+		ne?
+		bnt	code_01de
+		lat	temp[$0]
+		aTop	lastTime
+		dpToa	seconds
+		not
+		bnt	code_01de
+		push1
+		pushSelf
+		call	code_00e7, $2
+		bnot
+		jmp	code_01de
+
+code_01cc:	lsg	global[$40]
+		pToa	ticks
+		sub
+		push
+		ldi	$0
+		gt?
+		bnt	code_01de
+		push1
+		pushSelf
+		call	code_00e7, $2
+		bnot
+code_01de:	ret
+
+Timer::dispose:
+		pToa	client
+		bnt	code_01f9
+		pushi	$99		; 153, respondsTo
+		push1
+		pushi	$bc		; 188, timer
+		send	$6
+		bnot
+		bnt	code_01f9
+		pushi	$bc		; 188, timer
+		push1
+		push0
+		pToa	client
+		send	$6
+		bnot
+code_01f9:	ldi	$0
+		aTop	client
+		ret
+
+Timer::delete:
+		pTos	client
+		ldi	$0
+		eq?
+		bnt	code_021d
+		pushi	$58		; 88, 'X', delete
+		push1
+		pushSelf
+		pushi	$108		; 264, pTimers
+		push0
+		pToa	pRoom
+		send	$4
+		bnot
+		send	$6
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		super	Obj, $4
+		bnot
+code_021d:	ret
+
+Timer::setCycle:
+		link	$1
+		pTos	-info-
+		ldi	$8000		; -32768
+		and
+		bnt	code_0231
+		pushi	$8d		; 141, new
+		push0
+		self	$4
+		bnot
+		jmp	code_0232
+
+code_0231:	selfID
+code_0232:	sat	temp[$0]
+		pushi	$94		; 148, init
+		push1
+		lsp	param[$1]
+		pushi	$102		; 258, cycleCnt
+		push1
+		lsp	param[$2]
+		send	$c
+		bnot
+		lat	temp[$0]
+		ret
+
+Timer::set:
+		link	$3
+		ldi	$6		; maxScale
+		sat	temp[$2]
+		push
+		ldi	$0
+		eq?
+		bnt	code_0256
+		ldi	$1
+		sat	temp[$2]
+code_0256:	lsp	param[$2]
+		ldi	$3c		; 60, '<', b_di
+		mul
+		push
+		lat	temp[$2]
+		div
+		sat	temp[$1]
+		lsp	param[$0]
+		ldi	$2
+		gt?
+		bnt	code_0277
+		lst	temp[$1]
+		lsp	param[$3]
+		ldi	$e10		; 3600, BAD SELECTOR
+		mul
+		push
+		lat	temp[$2]
+		div
+		add
+		sat	temp[$1]
+code_0277:	lsp	param[$0]
+		ldi	$3		; z
+		gt?
+		bnt	code_0291
+		lst	temp[$1]
+		lsp	param[$4]
+		ldi	$e10		; 3600, BAD SELECTOR
+		mul
+		push
+		lat	temp[$2]
+		div
+		push
+		ldi	$3c		; 60, '<', b_di
+		mul
+		add
+		sat	temp[$1]
+code_0291:	pTos	-info-
+		ldi	$8000		; -32768
+		and
+		bnt	code_02a2
+		pushi	$8d		; 141, new
+		push0
+		self	$4
+		bnot
+		jmp	code_02a3
+
+code_02a2:	selfID
+code_02a3:	sat	temp[$0]
+		pushi	$94		; 148, init
+		push1
+		lsp	param[$1]
+		pushi	$102		; 258, cycleCnt
+		push1
+		lst	temp[$1]
+		send	$c
+		bnot
+		lat	temp[$0]
+		ret
+
+Timer::setReal:
+		link	$2
+		lap	param[$2]
+		sat	temp[$1]
+		lsp	param[$0]
+		ldi	$2
+		gt?
+		bnt	code_02ce
+		lst	temp[$1]
+		lsp	param[$3]
+		ldi	$3c		; 60, '<', b_di
+		mul
+		add
+		sat	temp[$1]
+code_02ce:	lsp	param[$0]
+		ldi	$3		; z
+		gt?
+		bnt	code_02e0
+		lst	temp[$1]
+		lsp	param[$4]
+		ldi	$e10		; 3600, BAD SELECTOR
+		mul
+		add
+		sat	temp[$1]
+code_02e0:	pTos	-info-
+		ldi	$8000		; -32768
+		and
+		bnt	code_02f1
+		pushi	$8d		; 141, new
+		push0
+		self	$4
+		bnot
+		jmp	code_02f2
+
+code_02f1:	selfID
+code_02f2:	sat	temp[$0]
+		pushi	$94		; 148, init
+		push1
+		lsp	param[$1]
+		pushi	$be		; 190, seconds
+		push1
+		lst	temp[$1]
+		send	$c
+		bnot
+		lat	temp[$0]
+		ret
+
+Timer::setTicks:
+		link	$1
+		pTos	-info-
+		ldi	$8000		; -32768
+		and
+		bnt	code_0319
+		pushi	$8d		; 141, new
+		push0
+		self	$4
+		bnot
+		jmp	code_031a
+
+code_0319:	selfID
+code_031a:	sat	temp[$0]
+		pushi	$c0		; 192, ticks
+		push1
+		lsg	global[$40]
+		lap	param[$1]
+		add
+		push
+		pushi	$94		; 148, init
+		push1
+		lsp	param[$2]
+		lat	temp[$0]
+		send	$c
+		bnot
+		lat	temp[$0]
+		ret
+
+GlobalTimer::init:
+		lap	param[$1]
+		aTop	client
+		pushi	$9f		; 159, add
+		push1
+		pushSelf
+		class	WaitingTimers
+		send	$6
+		bnot
+		pushi	$99		; 153, respondsTo
+		push1
+		pushi	$bc		; 188, timer
+		lap	param[$1]
+		send	$6
+		bnot
+		bnt	code_0375
+		pushi	$bc		; 188, timer
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		bnt	code_036b
+		pushi	$95		; 149, dispose
+		push0
+		pushi	$bc		; 188, timer
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		send	$4
+		bnot
+code_036b:	pushi	$bc		; 188, timer
+		push1
+		pushSelf
+		lap	param[$1]
+		send	$6
+		bnot
+code_0375:	ret
+
+GlobalTimer::delete:
+		pTos	client
+		ldi	$0
+		eq?
+		bnt	code_038c
+		pushi	$58		; 88, 'X', delete
+		push1
+		pushSelf
+		class	GlobalTimers
+		send	$6
+		bnot
+		push1
+		pushSelf
+		callk	kernel_11, $2
+		bnot
+code_038c:	ret
+
+TO::set:
+		lap	param[$1]
+		aTop	timeLeft
+		ret
+
+TO::doit:
+		pToa	timeLeft
+		bnt	code_0398
+		dpToa	timeLeft
+code_0398:	ret
+
diff --git a/Script/Script60025.txt b/Script/Script60025.txt
new file mode 100644
index 0000000..ca39d82
--- /dev/null
+++ b/Script/Script60025.txt
@@ -0,0 +1,248 @@
+export60025_0	= code_0018
+export60025_1	= code_0029
+export60025_2	= code_0046
+export60025_3	= code_0064
+export60025_4	= code_0082
+export60025_5	= code_00a9
+export60025_6	= code_00d3
+export60025_7	= code_016b
+
+; export60025_0
+code_0018:	lsp	param[$1]
+		ldi	$0
+		lt?
+		bnt	code_0023
+		ldi	$ff		; 255, asInteger
+		jmp	code_0028
+
+code_0023:	lsp	param[$1]
+		ldi	$0
+		gt?
+code_0028:	ret
+
+; export60025_1
+code_0029:	lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$1]
+		lap	param[$2]
+		div
+		mul
+		sub
+		sap	param[$1]
+		push
+		ldi	$0
+		lt?
+		bnt	code_0043
+		lsp	param[$1]
+		lap	param[$2]
+		add
+		sap	param[$1]
+code_0043:	lap	param[$1]
+code_0045:	ret
+
+; export60025_2
+code_0046:	link	$1
+		lsp	param[$0]
+		ldi	$1
+		eq?
+		bt	code_005b
+		lsp	param[$1]
+		push0
+		&rest	$2
+		call	code_0045, $0
+		bnot
+		sat	temp[$0]
+		lt?
+code_005b:	bnt	code_0061
+		lap	param[$1]
+		jmp	code_0063
+
+code_0061:	lat	temp[$0]
+code_0063:	ret
+
+; export60025_3
+code_0064:	link	$1
+		lsp	param[$0]
+		ldi	$1
+		eq?
+		bt	code_0079
+		lsp	param[$1]
+		push0
+		&rest	$2
+		call	code_0063, $0
+		bnot
+		sat	temp[$0]
+		gt?
+code_0079:	bnt	code_007f
+		lap	param[$1]
+		jmp	code_0081
+
+code_007f:	lat	temp[$0]
+code_0081:	ret
+
+; export60025_4
+code_0082:	link	$1
+		ldi	$0
+		sat	temp[$0]
+code_0088:	lst	temp[$0]
+		lsp	param[$0]
+		ldi	$1
+		sub
+		lt?
+		bnt	code_00a6
+		lsp	param[$1]
+		lat	temp[$0]
+		lapi	param[$2]
+		eq?
+		bnt	code_00a2
+		lap	param[$1]
+		bt	code_00a1
+		ldi	$1
+code_00a1:	ret
+
+code_00a2:	+at	temp[$0]
+		jmp	code_0088
+
+code_00a6:	ldi	$0
+		ret
+
+; export60025_5
+code_00a9:	push1
+		lsp	param[$1]
+		calle	export60000_0, $2
+		bnot
+		bnt	code_00cf
+		pushi	$99		; 153, respondsTo
+		push1
+		lsp	param[$2]
+		lap	param[$1]
+		send	$6
+		bnot
+		bnt	code_00cf
+		lsp	param[$2]
+		push0
+		&rest	$3		; z
+		lap	param[$1]
+		send	$4
+		bnot
+		ret
+
+		jmp	code_00d2
+
+code_00cf:	ldi	$0
+		ret
+
+code_00d2:	ret
+
+; export60025_6
+code_00d3:	link	$2
+		ldi	$0
+		sat	temp[$1]
+		lag	global[$11]
+		not
+		bnt	code_011f
+		pushi	$d0		; 208, with
+		pushi	$1a		; 26, signal
+		pushi	$1e		; 30, brRight
+		pushi	$30		; 48, '0', who
+		pushi	$2e		; 46, '.', max
+		pushi	$20		; 32, ' ', name
+		pushi	$12		; 18, nsLeft
+		pushi	$21		; 33, '!', key
+		pushi	$22		; 34, '"', time
+		pushi	$23		; 35, '#', text
+		pushi	$17		; 23, lsTop
+		pushi	$24		; 36, '$', elements
+		pushi	$25		; 37, '%', fore
+		pushi	$26		; 38, '&', back
+		pushi	$32		; 50, '2', edit
+		pushi	$31		; 49, '1', message
+		pushi	$18		; 24, lsRight
+		pushi	$19		; 25, lsBottom
+		pushi	$10		; 16, cel
+		pushi	$13		; 19, nsTop
+		pushi	$1f		; 31, brBottom
+		pushi	$14		; 20, nsRight
+		pushi	$16		; 22, lsLeft
+		pushi	$2f		; 47, '/', mark
+		pushi	$11		; 17, bitmap
+		pushi	$2d		; 45, '-', cursor
+		pushi	$15		; 21, nsBottom
+		pushi	$2c		; 44, ',', window
+		class	ByteArray
+		send	$38
+		bnot
+		sag	global[$11]
+code_011f:	ldi	$0
+		sat	temp[$0]
+		lsp	param[$1]
+		ldi	$ff		; 255, asInteger
+		lt?
+		bnt	code_014a
+		pushi	$4b		; 75, 'K', at
+		push1
+		push1
+		lsp	param[$1]
+		calle	export60027_0, $2
+		bnot
+		push
+		ldi	$41		; 65, 'A', moveSpeed
+		sub
+		push
+		lag	global[$11]
+		send	$6
+		bnot
+		push
+		ldi	$8		; fixPriority
+		shl
+		sat	temp[$1]
+		jmp	code_0168
+
+code_014a:	pushi	$ae		; 174, indexOf
+		push1
+		lsp	param[$1]
+		ldi	$8		; fixPriority
+		shr
+		push
+		lag	global[$11]
+		send	$6
+		bnot
+		sat	temp[$0]
+		push
+		ldi	$ff		; 255, asInteger
+		ne?
+		bnt	code_0168
+		pushi	$41		; 65, 'A', moveSpeed
+		lat	temp[$0]
+		add
+		sat	temp[$1]
+code_0168:	lat	temp[$1]
+		ret
+
+; export60025_7
+code_016b:	link	$2
+		ldi	$0
+		sat	temp[$1]
+		ldi	$0
+		sat	temp[$0]
+code_0175:	lst	temp[$0]
+		ldi	$10		; 16, cel
+		lt?
+		bnt	code_0190
+		lst	temp[$1]
+		lsp	param[$1]
+		push1
+		lat	temp[$0]
+		shl
+		and
+		push
+		ldi	$0
+		gt?
+		add
+		sat	temp[$1]
+		+at	temp[$0]
+		jmp	code_0175
+
+code_0190:	lat	temp[$1]
+		ret
+