diff --git a/Script/Script60004.txt b/Script/Script60004.txt
new file mode 100644
index 0000000..e244ffe
--- /dev/null
+++ b/Script/Script60004.txt
@@ -0,0 +1,637 @@
+Collect::new:
+		pushi	$24		; 36, '$', elements
+		push1
+		push1
+		push0
+		&rest	$1
+		callk	kernel_90, $2
+		bnot
+		push
+		pushi	$5a		; 90, 'Z', size
+		push1
+		push0
+		pushi	$9a		; 154, yourself
+		push0
+		pushi	$8d		; 141, new
+		push0
+		super	Obj, $4
+		bnot
+		send	$10
+		bnot
+		ret
+
+Collect::doit:
+		pushi	$9d		; 157, eachElementDo
+		push1
+		pushi	$45		; 69, 'E', doit
+		&rest	$1
+		self	$6
+		bnot
+		ret
+
+Collect::add:
+		link	$3
+		pToa	elements
+		not
+		bnt	code_0113
+		push1
+		push0
+		callk	kernel_90, $2
+		bnot
+		aTop	elements
+code_0113:	ldi	$0
+		sat	temp[$1]
+code_0117:	lst	temp[$1]
+		lap	param[$0]
+		lt?
+		bnt	code_0140
+		pushi	$a7		; 167, isDuplicate
+		push1
+		lat	temp[$1]
+		lspi	param[$1]
+		self	$6
+		bnot
+		not
+		bnt	code_013c
+		pushi	$3		; z
+		pushi	$b		; 11, inRight
+		pTos	elements
+		lat	temp[$1]
+		lspi	param[$1]
+		callk	kernel_90, $6
+		bnot
+		ipToa	size
+code_013c:	+at	temp[$1]
+		jmp	code_0117
+
+code_0140:	selfID
+		ret
+
+Collect::delete:
+		link	$1
+		ldi	$0
+		sat	temp[$0]
+code_0148:	lst	temp[$0]
+		lap	param[$0]
+		lt?
+		bnt	code_0165
+		pushi	$3		; z
+		pushi	$10		; 16, cel
+		pTos	elements
+		lat	temp[$0]
+		lspi	param[$1]
+		callk	kernel_90, $6
+		bnot
+		bnt	code_0161
+		dpToa	size
+code_0161:	+at	temp[$0]
+		jmp	code_0148
+
+code_0165:	selfID
+		ret
+
+Collect::dispose:
+		pToa	elements
+		bnt	code_017d
+		pushi	$9d		; 157, eachElementDo
+		push1
+		pushi	$95		; 149, dispose
+		self	$6
+		bnot
+		push2
+		push1
+		pTos	elements
+		callk	kernel_90, $4
+		bnot
+code_017d:	ldi	$0
+		aTop	elements
+		aTop	size
+		pushi	$95		; 149, dispose
+		push0
+		super	Obj, $4
+		bnot
+		ret
+
+Collect::first:
+		pushi	$3		; z
+		pushi	$11		; 17, bitmap
+		pTos	elements
+		push0
+		callk	kernel_90, $6
+		bnot
+		ret
+
+Collect::next:
+		push2
+		pushi	$6		; maxScale
+		lsp	param[$1]
+		callk	kernel_90, $4
+		bnot
+		ret
+
+Collect::isEmpty:
+		pTos	elements
+		ldi	$0
+		eq?
+		bt	code_01b2
+		push2
+		pushi	$5		; scaleY
+		pTos	elements
+		callk	kernel_90, $4
+		bnot
+code_01b2:	ret
+
+Collect::contains:
+		pushi	$3		; z
+		pushi	$12		; 18, nsLeft
+		pTos	elements
+		lsp	param[$1]
+		callk	kernel_90, $6
+		bnot
+		push
+		ldi	$ff		; 255, asInteger
+		ne?
+		ret
+
+Collect::eachElementDo:
+		link	$3
+		pushi	$3		; z
+		pushi	$13		; 19, nsTop
+		pTos	elements
+		lsp	param[$1]
+		&rest	$2
+		callk	kernel_90, $6
+		bnot
+		sat	temp[$2]
+		push2
+		pushi	$17		; 23, lsTop
+		pTos	elements
+		callk	kernel_90, $4
+		bnot
+		aTop	size
+		lat	temp[$2]
+		ret
+
+Collect::firstTrue:
+		link	$3
+		pushi	$3		; z
+		pushi	$14		; 20, nsRight
+		pTos	elements
+		lsp	param[$1]
+		&rest	$2
+		callk	kernel_90, $6
+		bnot
+		sat	temp[$2]
+		push2
+		pushi	$17		; 23, lsTop
+		pTos	elements
+		callk	kernel_90, $4
+		bnot
+		aTop	size
+		lat	temp[$2]
+		ret
+
+Collect::firstEqual:
+		link	$4
+		ldi	$0
+		sat	temp[$2]
+		pToa	elements
+		bnt	code_025a
+		ldi	$0
+		sat	temp[$3]
+code_0212:	lst	temp[$3]
+		pToa	size
+		lt?
+		bnt	code_025a
+		pushi	$3		; z
+		pushi	$11		; 17, bitmap
+		pTos	elements
+		lst	temp[$3]
+		callk	kernel_90, $6
+		bnot
+		sat	temp[$0]
+		push1
+		push
+		calle	export60000_0, $2
+		bnot
+		not
+		bnt	code_0235
+		jmp	code_0256
+
+code_0235:	pushi	$99		; 153, respondsTo
+		push1
+		lsp	param[$1]
+		lat	temp[$0]
+		send	$6
+		bnot
+		bnt	code_0256
+		lsp	param[$1]
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		push
+		lap	param[$2]
+		eq?
+		bnt	code_0256
+		lat	temp[$0]
+		sat	temp[$2]
+		jmp	code_025a
+
+code_0256:	+at	temp[$3]
+		jmp	code_0212
+
+code_025a:	lat	temp[$2]
+		ret
+
+Collect::allTrue:
+		link	$3
+		pushi	$3		; z
+		pushi	$15		; 21, nsBottom
+		pTos	elements
+		lsp	param[$1]
+		&rest	$2
+		callk	kernel_90, $6
+		bnot
+		sat	temp[$2]
+		push2
+		pushi	$17		; 23, lsTop
+		pTos	elements
+		callk	kernel_90, $4
+		bnot
+		aTop	size
+		lat	temp[$2]
+		ret
+
+Collect::release:
+		link	$1
+		pToa	elements
+		bnt	code_029d
+		push2
+		pushi	$17		; 23, lsTop
+		push
+		callk	kernel_90, $4
+		bnot
+		bnt	code_029d
+		push2
+		push1
+		pTos	elements
+		callk	kernel_90, $4
+		bnot
+		push1
+		push0
+		callk	kernel_90, $2
+		bnot
+		aTop	elements
+code_029d:	ldi	$0
+		aTop	size
+		ret
+
+Collect::isDuplicate:
+		ldi	$0
+		ret
+
+List::at:
+		link	$1
+		pushi	$3		; z
+		pushi	$11		; 17, bitmap
+		pTos	elements
+		lsp	param[$1]
+		callk	kernel_90, $6
+		bnot
+		ret
+
+List::last:
+		push2
+		pushi	$4		; scaleX
+		pTos	elements
+		callk	kernel_90, $4
+		bnot
+		ret
+
+List::prev:
+		push2
+		pushi	$7		; priority
+		lsp	param[$1]
+		callk	kernel_90, $4
+		bnot
+		ret
+
+List::addToFront:
+		link	$1
+		pToa	elements
+		not
+		bnt	code_02d7
+		push1
+		push0
+		callk	kernel_90, $2
+		bnot
+		aTop	elements
+code_02d7:	lsp	param[$0]
+		ldi	$1
+		sub
+		sat	temp[$0]
+code_02de:	push0
+		lat	temp[$0]
+		le?
+		bnt	code_0306
+		pushi	$a7		; 167, isDuplicate
+		push1
+		lat	temp[$0]
+		lspi	param[$1]
+		self	$6
+		bnot
+		not
+		bnt	code_0302
+		pushi	$3		; z
+		pushi	$a		; 10, inTop
+		pTos	elements
+		lat	temp[$0]
+		lspi	param[$1]
+		callk	kernel_90, $6
+		bnot
+		ipToa	size
+code_0302:	-at	temp[$0]
+		jmp	code_02de
+
+code_0306:	selfID
+		ret
+
+List::addToEnd:
+		link	$1
+		pToa	elements
+		not
+		bnt	code_0317
+		push1
+		push0
+		callk	kernel_90, $2
+		bnot
+		aTop	elements
+code_0317:	ldi	$0
+		sat	temp[$0]
+code_031b:	lst	temp[$0]
+		lap	param[$0]
+		lt?
+		bnt	code_0344
+		pushi	$a7		; 167, isDuplicate
+		push1
+		lat	temp[$0]
+		lspi	param[$1]
+		self	$6
+		bnot
+		not
+		bnt	code_0340
+		pushi	$3		; z
+		pushi	$b		; 11, inRight
+		pTos	elements
+		lat	temp[$0]
+		lspi	param[$1]
+		callk	kernel_90, $6
+		bnot
+		ipToa	size
+code_0340:	+at	temp[$0]
+		jmp	code_031b
+
+code_0344:	selfID
+		ret
+
+List::addAfter:
+		link	$3
+		-ap	param[$0]
+		ldi	$0
+		sat	temp[$0]
+code_034e:	lst	temp[$0]
+		lap	param[$0]
+		lt?
+		bnt	code_0379
+		pushi	$a7		; 167, isDuplicate
+		push1
+		lat	temp[$0]
+		lspi	param[$2]
+		self	$6
+		bnot
+		not
+		bnt	code_0375
+		pushi	$4		; scaleX
+		pushi	$9		; inLeft
+		pTos	elements
+		lsp	param[$1]
+		lat	temp[$0]
+		lspi	param[$2]
+		callk	kernel_90, $8
+		bnot
+		ipToa	size
+code_0375:	+at	temp[$0]
+		jmp	code_034e
+
+code_0379:	selfID
+		ret
+
+List::addBefore:
+		link	$3
+		-ap	param[$0]
+		ldi	$0
+		sat	temp[$0]
+code_0383:	lst	temp[$0]
+		lap	param[$0]
+		lt?
+		bnt	code_03ae
+		pushi	$a7		; 167, isDuplicate
+		push1
+		lat	temp[$0]
+		lspi	param[$2]
+		self	$6
+		bnot
+		not
+		bnt	code_03aa
+		pushi	$4		; scaleX
+		pushi	$c		; 12, inBottom
+		pTos	elements
+		lsp	param[$1]
+		lat	temp[$0]
+		lspi	param[$2]
+		callk	kernel_90, $8
+		bnot
+		ipToa	size
+code_03aa:	+at	temp[$0]
+		jmp	code_0383
+
+code_03ae:	selfID
+		ret
+
+List::indexOf:
+		link	$2
+		pushi	$3		; z
+		pushi	$12		; 18, nsLeft
+		pTos	elements
+		lsp	param[$1]
+		callk	kernel_90, $6
+		bnot
+		ret
+
+List::union:
+		link	$4
+		lap	param[$1]
+		sap	param[$1]
+		pushi	$b1		; 177, duplicate
+		push0
+		self	$4
+		bnot
+		sat	temp[$0]
+		ldi	$0
+		sat	temp[$3]
+code_03d2:	lst	temp[$3]
+		lap	param[$0]
+		lt?
+		bnt	code_040e
+		pushi	$5a		; 90, 'Z', size
+		push0
+		lat	temp[$3]
+		lapi	param[$1]
+		send	$4
+		bnot
+		sat	temp[$2]
+		ldi	$0
+		sat	temp[$1]
+code_03e9:	lst	temp[$1]
+		lat	temp[$2]
+		lt?
+		bnt	code_040a
+		pushi	$9f		; 159, add
+		push1
+		pushi	$4b		; 75, 'K', at
+		push1
+		lst	temp[$1]
+		lat	temp[$3]
+		lapi	param[$1]
+		send	$6
+		bnot
+		push
+		lat	temp[$0]
+		send	$6
+		bnot
+		+at	temp[$1]
+		jmp	code_03e9
+
+code_040a:	+at	temp[$3]
+		jmp	code_03d2
+
+code_040e:	lat	temp[$0]
+		ret
+
+List::intersection:
+		link	$5
+		lap	param[$1]
+		sap	param[$1]
+		pushi	$b1		; 177, duplicate
+		push0
+		self	$4
+		bnot
+		sat	temp[$0]
+		ldi	$0
+		sat	temp[$4]
+code_0424:	lst	temp[$4]
+		lap	param[$0]
+		lt?
+		bnt	code_046e
+		pushi	$5a		; 90, 'Z', size
+		push0
+		lat	temp[$4]
+		lapi	param[$1]
+		send	$4
+		bnot
+		sat	temp[$2]
+		ldi	$0
+		sat	temp[$1]
+code_043b:	lst	temp[$1]
+		lat	temp[$2]
+		lt?
+		bnt	code_046a
+		pushi	$4b		; 75, 'K', at
+		push1
+		lst	temp[$1]
+		lat	temp[$4]
+		lapi	param[$1]
+		send	$6
+		bnot
+		sat	temp[$3]
+		pushi	$a3		; 163, contains
+		push1
+		push
+		lat	temp[$0]
+		send	$6
+		bnot
+		bnt	code_0466
+		pushi	$58		; 88, 'X', delete
+		push1
+		lst	temp[$3]
+		lat	temp[$0]
+		send	$6
+		bnot
+code_0466:	+at	temp[$1]
+		jmp	code_043b
+
+code_046a:	+at	temp[$4]
+		jmp	code_0424
+
+code_046e:	lat	temp[$0]
+		ret
+
+List::duplicate:
+		link	$3
+		pushi	$5a		; 90, 'Z', size
+		push0
+		self	$4
+		bnot
+		sat	temp[$2]
+		pushi	$8d		; 141, new
+		push0
+		self	$4
+		bnot
+		sat	temp[$0]
+		ldi	$0
+		sat	temp[$1]
+code_0488:	lst	temp[$1]
+		lat	temp[$2]
+		lt?
+		bnt	code_04a5
+		pushi	$9f		; 159, add
+		push1
+		pushi	$4b		; 75, 'K', at
+		push1
+		lst	temp[$1]
+		self	$6
+		bnot
+		push
+		lat	temp[$0]
+		send	$6
+		bnot
+		+at	temp[$1]
+		jmp	code_0488
+
+code_04a5:	lat	temp[$0]
+		ret
+
+List::replace:
+		pushi	$ac		; 172, addAfter
+		push2
+		lsp	param[$1]
+		lsp	param[$2]
+		&rest	$3		; z
+		self	$8
+		bnot
+		pushi	$58		; 88, 'X', delete
+		push1
+		lsp	param[$1]
+		self	$6
+		bnot
+		ret
+
+Set::isDuplicate:
+		pushi	$a3		; 163, contains
+		push1
+		lsp	param[$1]
+		self	$6
+		bnot
+		ret
+
diff --git a/Script/Script60005.txt b/Script/Script60005.txt
new file mode 100644
index 0000000..37b23bd
--- /dev/null
+++ b/Script/Script60005.txt
@@ -0,0 +1,70 @@
+Event::new:
+		link	$1
+		pushi	$8d		; 141, new
+		push0
+		super	Obj, $4
+		bnot
+		sat	temp[$0]
+		push2
+		lap	param[$0]
+		bnt	code_0059
+		lap	param[$1]
+		jmp	code_005c
+
+code_0059:	ldi	$7fff		; 32767
+code_005c:	push
+		lst	temp[$0]
+		callk	kernel_80, $4
+		bnot
+		lat	temp[$0]
+		ret
+
+Event::localize:
+		pTos	plane
+		lap	param[$1]
+		ne?
+		bnt	code_0090
+		pToa	plane
+		bnt	code_0085
+		pushi	$a3		; 163, contains
+		push1
+		push
+		lag	global[$25]
+		send	$6
+		bnot
+		bnt	code_0085
+		push2
+		pushSelf
+		pTos	plane
+		callk	kernel_82, $4
+		bnot
+code_0085:	push2
+		pushSelf
+		lap	param[$1]
+		aTop	plane
+		push
+		callk	kernel_81, $4
+		bnot
+code_0090:	selfID
+		ret
+
+Event::globalize:
+		pToa	plane
+		bnt	code_00aa
+		pushi	$a3		; 163, contains
+		push1
+		push
+		lag	global[$25]
+		send	$6
+		bnot
+		bnt	code_00aa
+		push2
+		pushSelf
+		pTos	plane
+		callk	kernel_82, $4
+		bnot
+code_00aa:	ldi	$0
+		aTop	plane
+		selfID
+		ret
+
diff --git a/Script/Script60007.txt b/Script/Script60007.txt
new file mode 100644
index 0000000..f633184
--- /dev/null
+++ b/Script/Script60007.txt
@@ -0,0 +1,481 @@
+Script::doit:
+		link	$1
+		pToa	script
+		bnt	code_00d6
+		pushi	$45		; 69, 'E', doit
+		push0
+		send	$4
+		bnot
+code_00d6:	pToa	cycles
+		bnt	code_00e8
+		dpToa	cycles
+		not
+		bnt	code_0139
+		pushi	$c7		; 199, cue
+		push0
+		self	$4
+		bnot
+		jmp	code_0139
+
+code_00e8:	pToa	seconds
+		bnt	code_010b
+		push1
+		push1
+		callk	kernel_121, $2
+		bnot
+		sat	temp[$0]
+		pTos	lastSeconds
+		ne?
+		bnt	code_0139
+		lat	temp[$0]
+		aTop	lastSeconds
+		dpToa	seconds
+		not
+		bnt	code_0139
+		pushi	$c7		; 199, cue
+		push0
+		self	$4
+		bnot
+		jmp	code_0139
+
+code_010b:	pToa	ticks
+		bnt	code_0139
+		push
+		push1
+		lsg	global[$40]
+		pToa	lastTicks
+		sub
+		push
+		callk	kernel_61, $2
+		bnot
+		sub
+		aTop	ticks
+		push
+		ldi	$0
+		le?
+		bnt	code_0135
+		ldi	$0
+		aTop	ticks
+		lag	global[$40]
+		aTop	lastTicks
+		pushi	$c7		; 199, cue
+		push0
+		self	$4
+		bnot
+		jmp	code_0139
+
+code_0135:	lag	global[$40]
+		aTop	lastTicks
+code_0139:	ret
+
+Script::init:
+		pToa	pRoom
+		not
+		bnt	code_0143
+		lag	global[$3]
+		aTop	pRoom
+code_0143:	lag	global[$40]
+		aTop	lastTicks
+		lsp	param[$0]
+		ldi	$1
+		ge?
+		bnt	code_0170
+		pushi	$c3		; 195, script
+		push1
+		pushSelf
+		lap	param[$1]
+		aTop	client
+		send	$6
+		bnot
+		lsp	param[$0]
+		ldi	$2
+		ge?
+		bnt	code_0170
+		lap	param[$2]
+		aTop	caller
+		lsp	param[$0]
+		ldi	$3		; z
+		ge?
+		bnt	code_0170
+		lap	param[$3]
+		aTop	register
+code_0170:	pushi	$c6		; 198, changeState
+		push1
+		pTos	start
+		self	$6
+		bnot
+		ret
+
+Script::dispose:
+		link	$1
+		pToa	script
+		bnt	code_0195
+		pushi	$95		; 149, dispose
+		push1
+		pushi	$c4		; 196, caller
+		push0
+		send	$4
+		bnot
+		push
+		selfID
+		eq?
+		not
+		push
+		pToa	script
+		send	$6
+		bnot
+code_0195:	pToa	timer
+		bnt	code_01a0
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+code_01a0:	pToa	client
+		bnt	code_01f6
+		pushi	$c3		; 195, script
+		push0
+		send	$4
+		bnot
+		push
+		selfID
+		eq?
+		bnt	code_01f6
+		pushi	$c3		; 195, script
+		push1
+		pToa	next
+		bnt	code_01ba
+		jmp	code_01c8
+
+code_01ba:	pToa	number
+		bnt	code_01c6
+		push1
+		push
+		callk	kernel_2, $2
+		bnot
+		jmp	code_01c8
+
+code_01c6:	ldi	$0
+code_01c8:	sat	temp[$0]
+		push
+		pToa	client
+		send	$6
+		bnot
+		lat	temp[$0]
+		not
+		bnt	code_01d9
+		ldi	$0
+		jmp	code_01f6
+
+code_01d9:	lsg	global[$36]
+		lag	global[$34]
+		eq?
+		bnt	code_01ed
+		pushi	$94		; 148, init
+		push1
+		pTos	client
+		lat	temp[$0]
+		send	$6
+		bnot
+		jmp	code_01f6
+
+code_01ed:	pushi	$95		; 149, dispose
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+code_01f6:	push1
+		pTos	caller
+		calle	export60000_0, $2
+		bnot
+		bnt	code_027b
+		lsg	global[$36]
+		lag	global[$34]
+		eq?
+		bnt	code_027b
+		lap	param[$0]
+		not
+		bt	code_0215
+		lsp	param[$1]
+		ldi	$1
+		eq?
+code_0215:	bnt	code_027b
+		pToa	pRoom
+		bnt	code_0270
+		push1
+		push
+		calle	export60000_0, $2
+		bnot
+		bnt	code_0270
+		push1
+		pushi	$ca		; 202, pCuees
+		push0
+		pToa	pRoom
+		send	$4
+		bnot
+		push
+		calle	export60000_0, $2
+		bnot
+		bnt	code_0270
+		pushi	$9f		; 159, add
+		push1
+		pushi	$c2		; 194, register
+		push1
+		pTos	register
+		pushi	$cb		; 203, cuee
+		push1
+		pTos	caller
+		pushi	$cc		; 204, cuer
+		push1
+		pushSelf
+		pushi	$9a		; 154, yourself
+		push0
+		pushi	$8d		; 141, new
+		push0
+		lofsa	Cue
+		send	$4
+		bnot
+		send	$16
+		bnot
+		push
+		pushi	$ca		; 202, pCuees
+		push0
+		pToa	pRoom
+		send	$4
+		bnot
+		send	$6
+		bnot
+		jmp	code_027b
+
+code_0270:	pushi	$c7		; 199, cue
+		push1
+		pTos	register
+		pToa	caller
+		send	$6
+		bnot
+code_027b:	ldi	$0
+		aTop	caller
+		aTop	number
+		aTop	next
+		aTop	client
+		aTop	timer
+		aTop	script
+		aTop	ticks
+		aTop	cycles
+		aTop	seconds
+		pushi	$95		; 149, dispose
+		push0
+		super	Obj, $4
+		bnot
+		ret
+
+Script::changeState:
+		lap	param[$1]
+		aTop	state
+		ret
+
+Script::cue:
+		link	$1
+		pToa	pRoom
+		bnt	code_02f4
+		push1
+		push
+		calle	export60000_0, $2
+		bnot
+		bnt	code_02f4
+		lsg	global[$3]
+		pToa	pRoom
+		ne?
+		bnt	code_02f4
+		lag	global[$3]
+		sat	temp[$0]
+		pToa	pRoom
+		sag	global[$3]
+		pushi	$9f		; 159, add
+		push1
+		pushi	$c2		; 194, register
+		push1
+		pTos	register
+		pushi	$cb		; 203, cuee
+		push1
+		pushSelf
+		pushi	$cc		; 204, cuer
+		push1
+		pushSelf
+		pushi	$9a		; 154, yourself
+		push0
+		pushi	$8d		; 141, new
+		push0
+		lofsa	Cue
+		send	$4
+		bnot
+		send	$16
+		bnot
+		push
+		pushi	$ca		; 202, pCuees
+		push0
+		pToa	pRoom
+		send	$4
+		bnot
+		send	$6
+		bnot
+		lat	temp[$0]
+		sag	global[$3]
+		ret
+
+code_02f4:	pToa	client
+		bnt	code_030b
+		lag	global[$40]
+		aTop	lastTicks
+		pushi	$c6		; 198, changeState
+		push1
+		pTos	state
+		ldi	$1
+		add
+		push
+		&rest	$1
+		self	$6
+		bnot
+code_030b:	ret
+
+Script::setScript:
+		pToa	script
+		bnt	code_0317
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+code_0317:	lap	param[$1]
+		bnt	code_0325
+		pushi	$94		; 148, init
+		push1
+		pushSelf
+		&rest	$2
+		send	$6
+		bnot
+code_0325:	ret
+
+Script::handleEvent:
+		pToa	script
+		bnt	code_0333
+		pushi	$c8		; 200, handleEvent
+		push1
+		lsp	param[$1]
+		send	$6
+		bnot
+code_0333:	pushi	$50		; 80, 'P', claimed
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		ret
+
+DemonsScript::init:
+		pushi	$cd		; 205, pDemons
+		push0
+		lag	global[$3]
+		send	$4
+		bnot
+		aTop	client
+		pushi	$9f		; 159, add
+		push1
+		pushSelf
+		pToa	client
+		send	$6
+		bnot
+		pushi	$94		; 148, init
+		push0
+		&rest	$1
+		super	Script, $4
+		bnot
+		ret
+
+DemonsScript::dispose:
+		pToa	client
+		bnt	code_0382
+		push1
+		push
+		calle	export60000_0, $2
+		bnot
+		bnt	code_0382
+		pushi	$97		; 151, isKindOf
+		push1
+		class	List
+		push
+		pToa	client
+		send	$6
+		bnot
+		bnt	code_0382
+		pushi	$58		; 88, 'X', delete
+		push1
+		pushSelf
+		pToa	client
+		send	$6
+		bnot
+code_0382:	ldi	$0
+		aTop	client
+		pushi	$95		; 149, dispose
+		push0
+		&rest	$1
+		super	Script, $4
+		bnot
+		ret
+
+Cue::dispose:
+		pToa	pList
+		bnt	code_039c
+		pushi	$58		; 88, 'X', delete
+		push1
+		pushSelf
+		send	$6
+		bnot
+code_039c:	pushi	$95		; 149, dispose
+		push0
+		&rest	$1
+		super	Obj, $4
+		bnot
+		ret
+
+Cue::handleError:
+		lsp	param[$1]
+		pToa	cuee
+		eq?
+		bnt	code_03b5
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_03b5:	ret
+
+Cue::doit:
+		pToa	pList
+		bnt	code_03ef
+		pushi	$58		; 88, 'X', delete
+		push1
+		pushSelf
+		send	$6
+		bnot
+		push1
+		pTos	cuee
+		calle	export60000_0, $2
+		bnot
+		bnt	code_03e8
+		pushi	$99		; 153, respondsTo
+		push1
+		pushi	$c7		; 199, cue
+		pToa	cuee
+		send	$6
+		bnot
+		bnt	code_03e8
+		pushi	$c7		; 199, cue
+		push2
+		pTos	register
+		pTos	cuer
+		pToa	cuee
+		send	$8
+		bnot
+code_03e8:	pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_03ef:	ret
+
diff --git a/Script/Script60008.txt b/Script/Script60008.txt
new file mode 100644
index 0000000..e7fce81
--- /dev/null
+++ b/Script/Script60008.txt
@@ -0,0 +1,282 @@
+Motion::init:
+		link	$2
+		lap	param[$0]
+		bnt	code_00e3
+		push
+		ldi	$1
+		ge?
+		bnt	code_00cd
+		lap	param[$1]
+		aTop	client
+		lsp	param[$0]
+		ldi	$2
+		ge?
+		bnt	code_00cd
+		lap	param[$2]
+		aTop	x
+		lsp	param[$0]
+		ldi	$3		; z
+		ge?
+		bnt	code_00cd
+		lap	param[$3]
+		aTop	y
+		lsp	param[$0]
+		ldi	$4		; scaleX
+		ge?
+		bnt	code_00cd
+		lap	param[$4]
+		aTop	caller
+code_00cd:	ldi	$0
+		aTop	completed
+		push1
+		push0
+		pToa	client
+		send	$4
+		bnot
+		aTop	xLast
+		push2
+		push0
+		pToa	client
+		send	$4
+		bnot
+		aTop	yLast
+code_00e3:	pushi	$4		; scaleX
+		push1
+		push0
+		pToa	client
+		send	$4
+		bnot
+		sat	temp[$0]
+		push
+		push2
+		push0
+		pToa	client
+		send	$4
+		bnot
+		sat	temp[$1]
+		push
+		pTos	x
+		pTos	y
+		callk	kernel_64, $8
+		bnot
+		bnt	code_011b
+		pushi	$15a		; 346, setHeading
+		push1
+		pushi	$4		; scaleX
+		lst	temp[$0]
+		lst	temp[$1]
+		pTos	x
+		pTos	y
+		callk	kernel_63, $8
+		bnot
+		push
+		pToa	client
+		send	$6
+		bnot
+code_011b:	push1
+		pushSelf
+		callk	kernel_97, $2
+		bnot
+		pushi	$15b		; 347, cycler
+		push0
+		pToa	client
+		send	$4
+		bnot
+		sat	temp[$1]
+		bnt	code_0137
+		pushi	$102		; 258, cycleCnt
+		push0
+		send	$4
+		bnot
+		aTop	b_moveCnt
+code_0137:	ret
+
+Motion::dispose:
+		push1
+		pTos	client
+		calle	export60000_0, $2
+		bnot
+		bnt	code_0159
+		pushi	$99		; 153, respondsTo
+		push1
+		pushi	$64		; 100, 'd', moveDone
+		pToa	client
+		send	$6
+		bnot
+		bnt	code_0159
+		pushi	$64		; 100, 'd', moveDone
+		push0
+		pToa	client
+		send	$4
+		bnot
+code_0159:	push1
+		pTos	caller
+		calle	export60000_0, $2
+		bnot
+		bnt	code_019b
+		pToa	pImmediateCue
+		bnt	code_0174
+		pushi	$c7		; 199, cue
+		push0
+		pToa	caller
+		send	$4
+		bnot
+		jmp	code_019b
+
+code_0174:	pushi	$9f		; 159, add
+		push1
+		pushi	$cb		; 203, cuee
+		push1
+		pTos	caller
+		pushi	$9a		; 154, yourself
+		push0
+		pushi	$8d		; 141, new
+		push0
+		class	Cue
+		send	$4
+		bnot
+		send	$a
+		bnot
+		push
+		pushi	$ca		; 202, pCuees
+		push0
+		lag	global[$3]
+		send	$4
+		bnot
+		send	$6
+		bnot
+code_019b:	pushi	$95		; 149, dispose
+		push0
+		&rest	$1
+		super	Obj, $4
+		bnot
+		ret
+
+Motion::onTarget:
+		push1
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		pToa	x
+		eq?
+		bnt	code_01be
+		push2
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		pToa	y
+		eq?
+code_01be:	ret
+
+Motion::setTarget:
+		lap	param[$0]
+		bnt	code_01cb
+		lap	param[$1]
+		aTop	x
+		lap	param[$2]
+		aTop	y
+code_01cb:	ret
+
+Motion::doit:
+		link	$6
+		pushi	$1007		; 4103, -info-
+		push1
+		pushi	$1007		; 4103, -info-
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		ldi	$8		; fixPriority
+		or
+		push
+		pToa	client
+		send	$6
+		bnot
+		push1
+		pushSelf
+		callk	kernel_98, $2
+		bnot
+		ret
+
+Motion::moveDone:
+		push1
+		pTos	client
+		calle	export60000_0, $2
+		bnot
+		bnt	code_020d
+		pushi	$99		; 153, respondsTo
+		push1
+		pushi	$64		; 100, 'd', moveDone
+		pToa	client
+		send	$6
+		bnot
+		bnt	code_020d
+		pushi	$64		; 100, 'd', moveDone
+		push0
+		pToa	client
+		send	$4
+		bnot
+code_020d:	ldi	$1
+		aTop	completed
+		pushi	$159		; 345, motionCue
+		push0
+		self	$4
+		bnot
+		ret
+
+Motion::motionCue:
+		pushi	$15c		; 348, setMotion
+		push1
+		push0
+		pToa	client
+		send	$6
+		bnot
+		ret
+
+MoveTo::onTarget:
+		push1
+		push1
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		pToa	x
+		sub
+		push
+		callk	kernel_61, $2
+		bnot
+		push
+		pushi	$3f		; 63, '?', xStep
+		push0
+		pToa	client
+		send	$4
+		bnot
+		le?
+		bnt	code_025c
+		push1
+		push2
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		pToa	y
+		sub
+		push
+		callk	kernel_61, $2
+		bnot
+		push
+		pushi	$40		; 64, '@', yStep
+		push0
+		pToa	client
+		send	$4
+		bnot
+		le?
+code_025c:	ret
+
diff --git a/Script/Script60009.txt b/Script/Script60009.txt
new file mode 100644
index 0000000..de1c566
--- /dev/null
+++ b/Script/Script60009.txt
@@ -0,0 +1,350 @@
+File::open:
+		lsp	param[$0]
+		dup
+		ldi	$0
+		eq?
+		bnt	code_0078
+		pushi	$3		; z
+		push0
+		push2
+		pushi	$9		; inLeft
+		pTos	name
+		callk	kernel_91, $4
+		bnot
+		push
+		push0
+		callk	kernel_93, $6
+		bnot
+		jmp	code_0095
+
+code_0078:	dup
+		ldi	$1
+		eq?
+		bnt	code_0093
+		pushi	$3		; z
+		push0
+		push2
+		pushi	$9		; inLeft
+		pTos	name
+		callk	kernel_91, $4
+		bnot
+		push
+		lsp	param[$1]
+		callk	kernel_93, $6
+		bnot
+		jmp	code_0095
+
+code_0093:	ldi	$0
+code_0095:	toss
+		aTop	handle
+		pTos	handle
+		ldi	$ff		; 255, asInteger
+		eq?
+		bnt	code_00a3
+		ldi	$0
+		aTop	handle
+code_00a3:	pToa	handle
+		bnt	code_00aa
+		selfID
+		jmp	code_00ac
+
+code_00aa:	ldi	$0
+code_00ac:	ret
+
+File::write:
+		link	$1
+		pToa	handle
+		not
+		bnt	code_00bb
+		pushi	$248		; 584, open
+		push0
+		self	$4
+		bnot
+code_00bb:	pToa	handle
+		bnt	code_00d6
+		pushi	$4		; scaleX
+		pushi	$3		; z
+		push
+		push2
+		pushi	$9		; inLeft
+		lsp	param[$1]
+		callk	kernel_91, $4
+		bnot
+		push
+		lsp	param[$2]
+		callk	kernel_93, $8
+		bnot
+		jmp	code_00d8
+
+code_00d6:	ldi	$0
+code_00d8:	ret
+
+File::writeString:
+		link	$1
+		pToa	handle
+		not
+		bnt	code_00e7
+		pushi	$248		; 584, open
+		push0
+		self	$4
+		bnot
+code_00e7:	pToa	handle
+		bnt	code_0116
+		ldi	$0
+		sat	temp[$0]
+code_00ef:	lst	temp[$0]
+		lap	param[$0]
+		lt?
+		bnt	code_0116
+		pushi	$3		; z
+		pushi	$6		; maxScale
+		pTos	handle
+		push2
+		pushi	$9		; inLeft
+		lat	temp[$0]
+		lspi	param[$1]
+		callk	kernel_91, $4
+		bnot
+		push
+		callk	kernel_93, $6
+		bnot
+		not
+		bnt	code_0112
+		ldi	$0
+		ret
+
+code_0112:	+at	temp[$0]
+		jmp	code_00ef
+
+code_0116:	ldi	$1
+		ret
+
+File::read:
+		lsp	param[$0]
+		ldi	$2
+		ne?
+		bnt	code_0123
+		ldi	$0
+		ret
+
+code_0123:	pToa	handle
+		not
+		bnt	code_0130
+		pushi	$248		; 584, open
+		push1
+		push1
+		self	$6
+		bnot
+code_0130:	pToa	handle
+		bnt	code_014a
+		pushi	$4		; scaleX
+		push2
+		push
+		push2
+		pushi	$9		; inLeft
+		lsp	param[$1]
+		callk	kernel_91, $4
+		bnot
+		push
+		lsp	param[$2]
+		callk	kernel_93, $8
+		bnot
+		jmp	code_014c
+
+code_014a:	ldi	$0
+code_014c:	ret
+
+File::readString:
+		link	$1
+		lsp	param[$0]
+		ldi	$2
+		ne?
+		bnt	code_0159
+		ldi	$0
+		ret
+
+code_0159:	pToa	handle
+		not
+		bnt	code_0166
+		pushi	$248		; 584, open
+		push1
+		push1
+		self	$6
+		bnot
+code_0166:	push2
+		lsp	param[$2]
+		push2
+		push1
+		push2
+		pushi	$9		; inLeft
+		lsp	param[$1]
+		callk	kernel_91, $4
+		bnot
+		push
+		callk	kernel_91, $4
+		bnot
+		push
+		calle	export60025_2, $4
+		bnot
+		sat	temp[$0]
+		pToa	handle
+		bnt	code_019f
+		pushi	$4		; scaleX
+		pushi	$5		; scaleY
+		push2
+		pushi	$9		; inLeft
+		lsp	param[$1]
+		callk	kernel_91, $4
+		bnot
+		push
+		lst	temp[$0]
+		pTos	handle
+		callk	kernel_93, $8
+		bnot
+		jmp	code_01a1
+
+code_019f:	ldi	$0
+code_01a1:	ret
+
+File::getByte:
+		push2
+		pushi	$d		; 13, seenRect
+		pTos	handle
+		callk	kernel_93, $4
+		bnot
+		ret
+
+File::putByte:
+		link	$1
+		ldi	$0
+		sat	temp[$0]
+code_01b2:	lst	temp[$0]
+		lap	param[$0]
+		lt?
+		bnt	code_01cb
+		pushi	$3		; z
+		pushi	$e		; 14, view
+		pTos	handle
+		lat	temp[$0]
+		lspi	param[$1]
+		callk	kernel_93, $6
+		bnot
+		+at	temp[$0]
+		jmp	code_01b2
+
+code_01cb:	ret
+
+File::getWord:
+		push2
+		pushi	$f		; 15, loop
+		pTos	handle
+		callk	kernel_93, $4
+		bnot
+		ret
+
+File::putWord:
+		link	$1
+		ldi	$0
+		sat	temp[$0]
+code_01dc:	lst	temp[$0]
+		lap	param[$0]
+		lt?
+		bnt	code_01f5
+		pushi	$3		; z
+		pushi	$10		; 16, cel
+		pTos	handle
+		lat	temp[$0]
+		lspi	param[$1]
+		callk	kernel_93, $6
+		bnot
+		+at	temp[$0]
+		jmp	code_01dc
+
+code_01f5:	ret
+
+File::rename:
+		link	$1
+		pushi	$3		; z
+		pushi	$b		; 11, inRight
+		pTos	name
+		lsp	param[$1]
+		callk	kernel_93, $6
+		bnot
+		sat	temp[$0]
+		not
+		bnt	code_020d
+		lap	param[$1]
+		aTop	name
+code_020d:	lat	temp[$0]
+		ret
+
+File::seek:
+		link	$1
+		lsp	param[$0]
+		ldi	$2
+		ge?
+		bnt	code_021d
+		lap	param[$2]
+		jmp	code_021f
+
+code_021d:	ldi	$0
+code_021f:	sat	temp[$0]
+		pToa	handle
+		not
+		bnt	code_022e
+		pushi	$248		; 584, open
+		push1
+		push1
+		self	$6
+		bnot
+code_022e:	pToa	handle
+		bnt	code_0241
+		pushi	$4		; scaleX
+		pushi	$7		; priority
+		push
+		lsp	param[$1]
+		lst	temp[$0]
+		callk	kernel_93, $8
+		bnot
+		jmp	code_0243
+
+code_0241:	ldi	$0
+code_0243:	ret
+
+File::close:
+		pToa	handle
+		bnt	code_0253
+		push2
+		push1
+		push
+		callk	kernel_93, $4
+		bnot
+		ldi	$0
+		aTop	handle
+code_0253:	ret
+
+File::delete:
+		pToa	handle
+		bnt	code_025f
+		pushi	$253		; 595, close
+		push0
+		self	$4
+		bnot
+code_025f:	push2
+		pushi	$4		; scaleX
+		pTos	name
+		callk	kernel_93, $4
+		bnot
+		ret
+
+File::dispose:
+		pushi	$253		; 595, close
+		push0
+		self	$4
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		super	Obj, $4
+		bnot
+		ret
+