diff --git a/Script/Script60071.txt b/Script/Script60071.txt
new file mode 100644
index 0000000..5a41804
--- /dev/null
+++ b/Script/Script60071.txt
@@ -0,0 +1,839 @@
+IconBar::init:
+		pushi	$258		; 600, setOpenRect
+		push0
+		self	$4
+		bnot
+		pushi	$255		; 597, advanceCurIcon
+		push0
+		self	$4
+		bnot
+		ret
+
+IconBar::setOpenRect:
+		link	$4
+		pToa	openRect
+		bnt	code_015c
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+code_015c:	ldi	$0
+		sat	temp[$2]
+		ldi	$0
+		sat	temp[$3]
+		ldi	$0
+		sat	temp[$0]
+code_0168:	lst	temp[$0]
+		pushi	$5a		; 90, 'Z', size
+		push0
+		self	$4
+		bnot
+		lt?
+		bnt	code_01d2
+		pushi	$4b		; 75, 'K', at
+		push1
+		lst	temp[$0]
+		self	$6
+		bnot
+		sat	temp[$1]
+		pushi	$89		; 137, top
+		push0
+		send	$4
+		bnot
+		push
+		pushi	$8a		; 138, bottom
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		eq?
+		bnt	code_019a
+		pushi	$1be		; 446, setSize
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+code_019a:	pushi	$88		; 136, right
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		lat	temp[$3]
+		gt?
+		bnt	code_01b4
+		pushi	$88		; 136, right
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		sat	temp[$3]
+code_01b4:	pushi	$8a		; 138, bottom
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		lat	temp[$2]
+		gt?
+		bnt	code_01ce
+		pushi	$8a		; 138, bottom
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		sat	temp[$2]
+code_01ce:	+at	temp[$0]
+		jmp	code_0168
+
+code_01d2:	pushi	$b5		; 181, set
+		pushi	$4		; scaleX
+		pTos	y
+		pTos	x
+		lst	temp[$2]
+		lst	temp[$3]
+		pushi	$8d		; 141, new
+		push0
+		class	Rect
+		send	$4
+		bnot
+		aTop	openRect
+		send	$c
+		bnot
+		ret
+
+IconBar::shouldOpen:
+		pushi	$254		; 596, keepUp
+		push0
+		self	$4
+		bnot
+		bt	code_0202
+		pToa	openRect
+		not
+		bt	code_0202
+		pTos	state
+		ldi	$1
+		and
+code_0202:	bnt	code_0209
+		ldi	$0
+		ret
+
+		jmp	code_0215
+
+code_0209:	pushi	$a3		; 163, contains
+		push1
+		lsp	param[$1]
+		pToa	openRect
+		send	$6
+		bnot
+		ret
+
+code_0215:	ret
+
+IconBar::shouldClose:
+		pushi	$254		; 596, keepUp
+		push0
+		self	$4
+		bnot
+		bt	code_0222
+		pToa	openRect
+		not
+code_0222:	bnt	code_0229
+		ldi	$0
+		ret
+
+		jmp	code_023d
+
+code_0229:	pTos	state
+		ldi	$1
+		and
+		bnt	code_023c
+		pushi	$a3		; 163, contains
+		push1
+		lsp	param[$1]
+		pToa	openRect
+		send	$6
+		bnot
+		not
+code_023c:	ret
+
+code_023d:	ret
+
+IconBar::open:
+		link	$3
+		pushi	$258		; 600, setOpenRect
+		push0
+		self	$4
+		bnot
+		pToa	priority
+		not
+		bt	code_0251
+		pTos	priority
+		ldi	$ff		; 255, asInteger
+		eq?
+code_0251:	bnt	code_025e
+		push0
+		callk	kernel_44, $0
+		bnot
+		push
+		ldi	$1
+		add
+		aTop	priority
+code_025e:	pushi	$9d		; 157, eachElementDo
+		push1
+		pushi	$1be		; 446, setSize
+		self	$6
+		bnot
+		pushi	$7		; priority
+		push1
+		pushi	$1f4		; 500, setView
+		pushi	$94		; 148, init
+		pushi	$4		; scaleX
+		pTos	x
+		pTos	y
+		pushi	$27f		; 639, rename
+		pushi	$1df		; 479, validKey
+		pushi	$1b8		; 440, addCast
+		push1
+		pushSelf
+		pToa	plane
+		send	$18
+		bnot
+		pTos	state
+		ldi	$1
+		or
+		aTop	state
+		pushi	$9d		; 157, eachElementDo
+		push2
+		pushi	$94		; 148, init
+		pushSelf
+		self	$8
+		bnot
+		pToa	curIcon
+		not
+		bnt	code_02a6
+		pushi	$255		; 597, advanceCurIcon
+		push0
+		self	$4
+		bnot
+code_02a6:	pushi	$57		; 87, 'W', draw
+		push0
+		self	$4
+		bnot
+		ret
+
+IconBar::close:
+		pushi	$254		; 596, keepUp
+		push0
+		self	$4
+		bnot
+		not
+		bnt	code_02dd
+		pushi	$9d		; 157, eachElementDo
+		push2
+		pushi	$1ca		; 458, select
+		push0
+		self	$8
+		bnot
+		pushi	$1ba		; 442, erase
+		push0
+		self	$4
+		bnot
+		pTos	state
+		ldi	$fe		; 254, strIndex
+		and
+		aTop	state
+		pushi	$95		; 149, dispose
+		push0
+		pToa	plane
+		send	$4
+		bnot
+		ldi	$0
+		aTop	plane
+code_02dd:	ret
+
+IconBar::keepUp:
+		lap	param[$0]
+		not
+		bnt	code_02eb
+		pTos	state
+		ldi	$4		; scaleX
+		and
+		ret
+
+		jmp	code_0315
+
+code_02eb:	lap	param[$1]
+		bnt	code_030d
+		pTos	state
+		ldi	$4		; scaleX
+		or
+		aTop	state
+		pTos	state
+		ldi	$1
+		and
+		not
+		bnt	code_0305
+		pushi	$248		; 584, open
+		push0
+		self	$4
+		bnot
+code_0305:	pTos	state
+		ldi	$4		; scaleX
+		and
+		ret
+
+		jmp	code_0315
+
+code_030d:	pTos	state
+		ldi	$fb		; 251, subStr
+		and
+		aTop	state
+		ret
+
+code_0315:	ret
+
+IconBar::handleEvent:
+		link	$1
+		pushi	$b9		; 185, localize
+		push1
+		pTos	plane
+		lap	param[$1]
+		send	$6
+		bnot
+		pushi	$1bf		; 447, isHidden
+		push0
+		self	$4
+		bnot
+		bt	code_0334
+		pushi	$50		; 80, 'P', claimed
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+code_0334:	bnt	code_033b
+		ldi	$0
+		jmp	code_04cd
+
+code_033b:	pushi	$256		; 598, shouldOpen
+		push1
+		lsp	param[$1]
+		self	$6
+		bnot
+		bnt	code_035c
+		pushi	$50		; 80, 'P', claimed
+		push1
+		push1
+		lap	param[$1]
+		send	$6
+		bnot
+		pushi	$248		; 584, open
+		push0
+		self	$4
+		bnot
+		ldi	$1
+		ret
+
+		jmp	code_04cd
+
+code_035c:	pushi	$257		; 599, shouldClose
+		push1
+		lsp	param[$1]
+		self	$6
+		bnot
+		bnt	code_037d
+		pushi	$50		; 80, 'P', claimed
+		push1
+		push1
+		lap	param[$1]
+		send	$6
+		bnot
+		pushi	$253		; 595, close
+		push0
+		self	$4
+		bnot
+		ldi	$1
+		ret
+
+		jmp	code_04cd
+
+code_037d:	pTos	state
+		ldi	$1
+		and
+		bnt	code_03bc
+		pushi	$c8		; 200, handleEvent
+		push1
+		lsp	param[$1]
+		super	Dialog, $6
+		bnot
+		sat	temp[$0]
+		bnt	code_03bc
+		push
+		ldi	$ff		; 255, asInteger
+		ne?
+		bnt	code_03bc
+		pushi	$29		; 41, ')', state
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		push
+		ldi	$2
+		and
+		bnt	code_03bc
+		pushi	$50		; 80, 'P', claimed
+		push1
+		push1
+		lap	param[$1]
+		send	$6
+		bnot
+		pushi	$253		; 595, close
+		push0
+		self	$4
+		bnot
+		ldi	$1
+		ret
+
+		jmp	code_04cd
+
+code_03bc:	pushi	$50		; 80, 'P', claimed
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		bt	code_03e2
+		pTos	state
+		ldi	$1
+		and
+		bnt	code_03f3
+		pushi	$254		; 596, keepUp
+		push0
+		self	$4
+		bnot
+		not
+		bnt	code_03f3
+		pushi	$a3		; 163, contains
+		push1
+		lsp	param[$1]
+		pToa	openRect
+		send	$6
+		bnot
+code_03e2:	bnt	code_03f3
+		pushi	$50		; 80, 'P', claimed
+		push1
+		push1
+		lap	param[$1]
+		send	$6
+		bnot
+		ldi	$1
+		ret
+
+		jmp	code_04cd
+
+code_03f3:	pushi	$2b		; 43, '+', type
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		ldi	$1
+		eq?
+		bnt	code_043d
+		pToa	curIcon
+		bnt	code_043d
+		pushi	$259		; 601, isCursor
+		push0
+		send	$4
+		bnot
+		bnt	code_043d
+		pushi	$48		; 72, 'H', modifiers
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		ldi	$4		; scaleX
+		and
+		bt	code_0428
+		pushi	$48		; 72, 'H', modifiers
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		ldi	$3		; z
+		and
+code_0428:	bnt	code_043d
+		pushi	$50		; 80, 'P', claimed
+		push1
+		push1
+		lap	param[$1]
+		send	$6
+		bnot
+		pushi	$255		; 597, advanceCurIcon
+		push0
+		self	$4
+		bnot
+		jmp	code_04cd
+
+code_043d:	pushi	$2b		; 43, '+', type
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		ldi	$1
+		eq?
+		bnt	code_04cd
+		pushi	$48		; 72, 'H', modifiers
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		not
+		bnt	code_04cd
+		pToa	curIcon
+		bnt	code_04cd
+		lag	global[$b]
+		bnt	code_04cd
+		pushi	$e		; 14, view
+		push0
+		pToa	curIcon
+		send	$4
+		bnot
+		push
+		ldi	$ff		; 255, asInteger
+		eq?
+		bt	code_047c
+		pToa	curIcon
+		bnt	code_04cd
+		pushi	$259		; 601, isCursor
+		push0
+		send	$4
+		bnot
+code_047c:	bnt	code_04cd
+		pushi	$ba		; 186, globalize
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		pushi	$a3		; 163, contains
+		push1
+		lsp	param[$1]
+		pToa	plane
+		send	$6
+		bnot
+		bnt	code_04ab
+		pushi	$25a		; 602, pFallThru
+		push0
+		pToa	curIcon
+		send	$4
+		bnot
+		not
+		bnt	code_04ab
+		pushi	$50		; 80, 'P', claimed
+		push1
+		push1
+		lap	param[$1]
+		send	$6
+		bnot
+		jmp	code_04cd
+
+code_04ab:	pushi	$2b		; 43, '+', type
+		push1
+		pushi	$2b		; 43, '+', type
+		push0
+		pToa	curIcon
+		send	$4
+		bnot
+		push
+		pushi	$31		; 49, '1', message
+		push1
+		pushi	$25b		; 603, verb
+		push0
+		pToa	curIcon
+		send	$4
+		bnot
+		push
+		pushi	$50		; 80, 'P', claimed
+		push1
+		push0
+		lap	param[$1]
+		send	$12
+		bnot
+code_04cd:	pushi	$ba		; 186, globalize
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		pushi	$50		; 80, 'P', claimed
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		ret
+
+IconBar::enable:
+		pushi	$1b4		; 436, enable
+		push2
+		push1
+		pTos	state
+		ldi	$1
+		and
+		not
+		push
+		lap	param[$1]
+		send	$8
+		bnot
+		ret
+
+IconBar::disable:
+		pushi	$1b4		; 436, enable
+		push2
+		push0
+		pTos	state
+		ldi	$1
+		and
+		not
+		push
+		lap	param[$1]
+		send	$8
+		bnot
+		ret
+
+IconBar::advanceCurIcon:
+		link	$3
+		pTos	state
+		ldi	$8		; fixPriority
+		and
+		bnt	code_050d
+		ret
+
+code_050d:	pToa	curIcon
+		not
+		bnt	code_0518
+		ldi	$ff		; 255, asInteger
+		sat	temp[$1]
+		jmp	code_0523
+
+code_0518:	pushi	$ae		; 174, indexOf
+		push1
+		pTos	curIcon
+		self	$6
+		bnot
+		sat	temp[$1]
+code_0523:	lat	temp[$1]
+		sat	temp[$2]
+code_0527:	+at	temp[$1]
+		push
+		pushi	$5a		; 90, 'Z', size
+		push0
+		self	$4
+		bnot
+		ge?
+		bnt	code_0537
+		ldi	$0
+		sat	temp[$1]
+code_0537:	lst	temp[$2]
+		lat	temp[$1]
+		eq?
+		bnt	code_0540
+		jmp	code_056b
+
+code_0540:	pushi	$4b		; 75, 'K', at
+		push1
+		lst	temp[$1]
+		self	$6
+		bnot
+		sat	temp[$0]
+		bnt	code_0527
+		pushi	$29		; 41, ')', state
+		push0
+		send	$4
+		bnot
+		push
+		ldi	$1
+		and
+		bnt	code_0527
+		pushi	$29		; 41, ')', state
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		push
+		ldi	$200		; 512, bottomValue
+		and
+		bnt	code_0527
+		jmp	code_056b
+
+		jmp	code_0527
+
+code_056b:	pTos	curIcon
+		lat	temp[$0]
+		ne?
+		bnt	code_0589
+		lst	temp[$0]
+		pToa	inventoryIcon
+		ne?
+		bnt	code_057d
+		ldi	$0
+		sag	global[$44]
+code_057d:	lat	temp[$0]
+		aTop	curIcon
+		pushi	$45		; 69, 'E', doit
+		push0
+		pToa	curIcon
+		send	$4
+		bnot
+code_0589:	ret
+
+IconBar::hide:
+		pToa	plane
+		bnt	code_0594
+		pushi	$69		; 105, 'i', hide
+		push0
+		send	$4
+		bnot
+code_0594:	ret
+
+IconBar::show:
+		pToa	plane
+		bnt	code_059f
+		pushi	$75		; 117, 'u', show
+		push0
+		send	$4
+		bnot
+code_059f:	ret
+
+IconButton::isCursor:
+		lag	global[$b]
+		bnt	code_05c7
+		pTos	cursorView
+		pushi	$e		; 14, view
+		push0
+		send	$4
+		bnot
+		eq?
+		bnt	code_05c7
+		pTos	cursorLoop
+		pushi	$f		; 15, loop
+		push0
+		lag	global[$b]
+		send	$4
+		bnot
+		eq?
+		bnt	code_05c7
+		pTos	cursorCel
+		pushi	$10		; 16, cel
+		push0
+		lag	global[$b]
+		send	$4
+		bnot
+		eq?
+code_05c7:	ret
+
+IconButton::setSize:
+		pushi	$db		; 219, moveTo
+		push2
+		pTos	x
+		pTos	y
+		self	$8
+		bnot
+		pushi	$1be		; 446, setSize
+		push0
+		&rest	$1
+		super	Button, $4
+		bnot
+		ret
+
+IconButton::doit:
+		ret
+
+IconButton::choose:
+		link	$2
+		pTos	btnType
+		ldi	$1
+		eq?
+		bnt	code_05f2
+		pTos	state
+		ldi	$4		; scaleX
+		xor
+		aTop	state
+		jmp	code_0662
+
+code_05f2:	pTos	btnType
+		ldi	$0
+		eq?
+		bnt	code_05fc
+		jmp	code_0662
+
+code_05fc:	pTos	btnType
+		ldi	$2
+		eq?
+		bnt	code_0662
+		pTos	state
+		ldi	$4		; scaleX
+		or
+		aTop	state
+		pToa	buttonSet
+		bnt	code_0662
+		ldi	$0
+		sat	temp[$0]
+code_0614:	lst	temp[$0]
+		pushi	$5a		; 90, 'Z', size
+		push0
+		pToa	buttonSet
+		send	$4
+		bnot
+		lt?
+		bnt	code_0662
+		pushi	$4b		; 75, 'K', at
+		push1
+		lst	temp[$0]
+		pToa	buttonSet
+		send	$6
+		bnot
+		sat	temp[$1]
+		push
+		selfID
+		ne?
+		bnt	code_065e
+		pushi	$1cc		; 460, checkState
+		push1
+		pushi	$4		; scaleX
+		lat	temp[$1]
+		send	$6
+		bnot
+		bnt	code_065e
+		pushi	$29		; 41, ')', state
+		push1
+		pushi	$29		; 41, ')', state
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		ldi	$fb		; 251, subStr
+		and
+		push
+		lat	temp[$1]
+		send	$6
+		bnot
+		pushi	$57		; 87, 'W', draw
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		jmp	code_0662
+
+code_065e:	+at	temp[$0]
+		jmp	code_0614
+
+code_0662:	pushi	$1ca		; 458, select
+		push2
+		push0
+		push1
+		self	$8
+		bnot
+		ret
+
diff --git a/Script/Script60073.txt b/Script/Script60073.txt
new file mode 100644
index 0000000..d6e2de5
--- /dev/null
+++ b/Script/Script60073.txt
@@ -0,0 +1,615 @@
+code_0079:	sub
+		lsp	param[$0]
+		ldi	$2
+		ge?
+		bnt	$88
+		lsp	param[$1]
+		lap	param[$2]
+		sub
+		sap	param[$1]
+		lsp	param[$1]
+		ldi	$ff4c		; -180
+		le?
+		bnt	$98
+		lsp	param[$1]
+		ldi	$168		; 360, pY1
+		add
+		jmp	$aa
+
+		lsp	param[$1]
+		ldi	$b4		; 180, end
+		gt?
+		bnt	$a8
+		lsp	param[$1]
+		ldi	$168		; 360, pY1
+		sub
+		jmp	$aa
+
+		lap	param[$1]
+		ret
+
+Grooper::doit:
+		link	$1
+		pToa	client
+		not
+		bnt	code_00b6
+		lap	param[$1]
+		aTop	client
+code_00b6:	lsp	param[$0]
+		ldi	$3		; z
+		ge?
+		bnt	code_00c1
+		lap	param[$3]
+		aTop	caller
+code_00c1:	pushi	$1a		; 26, signal
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		ldi	$800		; 2048, BAD SELECTOR
+		and
+		bnt	code_00ea
+		push1
+		pTos	caller
+		calle	export60000_0, $2
+		bnot
+		bnt	code_00e5
+		pushi	$c7		; 199, cue
+		push0
+		pToa	caller
+		send	$4
+		bnot
+code_00e5:	ldi	$0
+		aTop	caller
+		ret
+
+code_00ea:	pushi	$a3		; 163, contains
+		push1
+		pTos	client
+		pushi	$f2		; 242, pCast
+		push0
+		lag	global[$3]
+		send	$4
+		bnot
+		send	$6
+		bnot
+		not
+		bt	code_0108
+		lsp	param[$0]
+		ldi	$4		; scaleX
+		ge?
+		bnt	code_0162
+		lap	param[$4]
+code_0108:	bnt	code_0162
+		pushi	$195		; 405, setLoop
+		push1
+		pTos	numLoops
+		ldi	$4		; scaleX
+		eq?
+		bnt	code_0119
+		ldi	$2
+		jmp	code_011b
+
+code_0119:	ldi	$1
+code_011b:	push
+		push2
+		pushi	$43		; 67, 'C', heading
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		pushi	$168		; 360, pY1
+		pToa	numLoops
+		div
+		add
+		push
+		pushi	$168		; 360, pY1
+		calle	export60025_1, $4
+		bnot
+		push
+		pushi	$168		; 360, pY1
+		pToa	numLoops
+		div
+		div
+		mul
+		lsli	local[$8]
+		pToa	client
+		send	$6
+		bnot
+		push1
+		pTos	caller
+		calle	export60000_0, $2
+		bnot
+		bnt	code_015d
+		pushi	$c7		; 199, cue
+		push0
+		pToa	caller
+		send	$4
+		bnot
+code_015d:	ldi	$0
+		aTop	caller
+		ret
+
+code_0162:	pushi	$f		; 15, loop
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		pTos	numLoops
+		ldi	$1
+		sub
+		eq?
+		bnt	code_01b5
+		pushi	$15b		; 347, cycler
+		push0
+		pToa	client
+		send	$4
+		bnot
+		bnt	code_01b5
+		pushi	$97		; 151, isKindOf
+		push1
+		class	StopWalk
+		push
+		pushi	$15b		; 347, cycler
+		push0
+		pToa	client
+		send	$4
+		bnot
+		send	$6
+		bnot
+		bnt	code_01b5
+		pushi	$292		; 658, vStopped
+		push0
+		pushi	$15b		; 347, cycler
+		push0
+		pToa	client
+		send	$4
+		bnot
+		send	$4
+		bnot
+		push
+		ldi	$ff		; 255, asInteger
+		eq?
+		bnt	code_01b5
+		pushi	$10		; 16, cel
+		push0
+		pToa	client
+		send	$4
+		bnot
+		lali	local[$0]
+		jmp	code_01bf
+
+code_01b5:	pushi	$f		; 15, loop
+		push0
+		pToa	client
+		send	$4
+		bnot
+		lali	local[$0]
+code_01bf:	sat	temp[$0]
+		pToa	oldMover
+		bnt	code_01d0
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		aTop	oldMover
+code_01d0:	pushi	$15b		; 347, cycler
+		push0
+		pToa	client
+		send	$4
+		bnot
+		bnt	code_0210
+		pushi	$98		; 152, isMemberOf
+		push1
+		lofsa	Grycler
+		push
+		pushi	$15b		; 347, cycler
+		push0
+		pToa	client
+		send	$4
+		bnot
+		send	$6
+		bnot
+		bnt	code_0210
+		pushi	$95		; 149, dispose
+		push0
+		pushi	$15b		; 347, cycler
+		push0
+		pToa	client
+		send	$4
+		bnot
+		send	$4
+		bnot
+		pushi	$15b		; 347, cycler
+		push1
+		pTos	oldCycler
+		pToa	client
+		send	$6
+		bnot
+		ldi	$0
+		aTop	oldCycler
+code_0210:	pToa	oldCycler
+		bnt	code_021f
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		aTop	oldCycler
+code_021f:	pushi	$15b		; 347, cycler
+		push0
+		pToa	client
+		send	$4
+		bnot
+		aTop	oldCycler
+		pushi	$44		; 68, 'D', mover
+		push0
+		pToa	client
+		send	$4
+		bnot
+		aTop	oldMover
+		pushi	$15b		; 347, cycler
+		push1
+		push0
+		pushi	$44		; 68, 'D', mover
+		push1
+		push0
+		pushi	$105		; 261, setCycle
+		pushi	$3		; z
+		lofsa	Grycler
+		push
+		pushSelf
+		lst	temp[$0]
+		pToa	client
+		send	$16
+		bnot
+		ret
+
+Grooper::cue:
+		link	$1
+		pushi	$44		; 68, 'D', mover
+		push0
+		pToa	client
+		send	$4
+		bnot
+		not
+		bnt	code_026b
+		pushi	$44		; 68, 'D', mover
+		push1
+		pTos	oldMover
+		pToa	client
+		send	$6
+		bnot
+		ldi	$0
+		aTop	oldMover
+code_026b:	pToa	oldMover
+		bnt	code_027a
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		aTop	oldMover
+code_027a:	pToa	oldCycler
+		bnt	code_0288
+		pushi	$15b		; 347, cycler
+		push1
+		push
+		pToa	client
+		send	$6
+		bnot
+code_0288:	pToa	caller
+		sat	temp[$0]
+		ldi	$0
+		aTop	oldCycler
+		aTop	oldMover
+		aTop	caller
+		push1
+		lst	temp[$0]
+		calle	export60000_0, $2
+		bnot
+		bnt	code_02ab
+		pushi	$c7		; 199, cue
+		push0
+		&rest	$1
+		lat	temp[$0]
+		send	$4
+		bnot
+code_02ab:	ret
+
+Grooper::dispose:
+		pToa	oldCycler
+		bnt	code_02bb
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		aTop	oldCycler
+code_02bb:	pToa	oldMover
+		bnt	code_02ca
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		aTop	oldMover
+code_02ca:	pToa	client
+		bnt	code_02d5
+		pushi	$47		; 71, 'G', looper
+		push1
+		push0
+		send	$6
+		bnot
+code_02d5:	pushi	$95		; 149, dispose
+		push0
+		super	Code, $4
+		bnot
+		ret
+
+Grycler::init:
+		pushi	$94		; 148, init
+		push1
+		lsp	param[$1]
+		super	Cycle, $6
+		bnot
+		lap	param[$2]
+		aTop	caller
+		pushi	$297		; 663, numLoops
+		push0
+		pushi	$47		; 71, 'G', looper
+		push0
+		pToa	client
+		send	$4
+		bnot
+		send	$4
+		bnot
+		aTop	numOfLoops
+		push1
+		push2
+		lsp	param[$3]
+		ldi	$2d		; 45, '-', cursor
+		mul
+		push
+		pushi	$43		; 67, 'C', heading
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		call	code_0079, $4
+		bnot
+		push
+		calle	export60025_0, $2
+		bnot
+		neg
+		aTop	cycleDir
+		lap	param[$3]
+		aTop	loopIndex
+		pushi	$29a		; 666, loopIsCorrect
+		push0
+		self	$4
+		bnot
+		bnt	code_0387
+		pushi	$295		; 661, oldCycler
+		push0
+		pushi	$47		; 71, 'G', looper
+		push0
+		pToa	client
+		send	$4
+		bnot
+		send	$4
+		bnot
+		bnt	code_0380
+		pushi	$97		; 151, isKindOf
+		push1
+		class	StopWalk
+		push
+		pushi	$295		; 661, oldCycler
+		push0
+		pushi	$47		; 71, 'G', looper
+		push0
+		pToa	client
+		send	$4
+		bnot
+		send	$4
+		bnot
+		send	$6
+		bnot
+		bnt	code_0380
+		pushi	$292		; 658, vStopped
+		push0
+		pushi	$295		; 661, oldCycler
+		push0
+		pushi	$47		; 71, 'G', looper
+		push0
+		pToa	client
+		send	$4
+		bnot
+		send	$4
+		bnot
+		send	$4
+		bnot
+		push
+		ldi	$ff		; 255, asInteger
+		eq?
+		bnt	code_0380
+		pushi	$195		; 405, setLoop
+		push1
+		pToa	loopIndex
+		lsli	local[$8]
+		pToa	client
+		send	$6
+		bnot
+code_0380:	pushi	$160		; 352, cycleDone
+		push0
+		self	$4
+		bnot
+code_0387:	ret
+
+Grycler::dispose:
+		pToa	completed
+		not
+		bnt	code_0391
+		ldi	$0
+		aTop	caller
+code_0391:	pushi	$95		; 149, dispose
+		push0
+		&rest	$1
+		super	Cycle, $4
+		bnot
+		ret
+
+Grycler::doit:
+		link	$1
+		pushi	$15f		; 351, nextCel
+		push0
+		self	$4
+		bnot
+		sat	temp[$0]
+		pushi	$195		; 405, setLoop
+		push1
+		push
+		pToa	client
+		send	$6
+		bnot
+		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
+		pushi	$29a		; 666, loopIsCorrect
+		push0
+		self	$4
+		bnot
+		bnt	code_03d8
+		pushi	$160		; 352, cycleDone
+		push0
+		self	$4
+		bnot
+code_03d8:	ret
+
+Grycler::cycleDone:
+		link	$1
+		ldi	$1
+		aTop	completed
+		pushi	$295		; 661, oldCycler
+		push0
+		pushi	$47		; 71, 'G', looper
+		push0
+		pToa	client
+		send	$4
+		bnot
+		send	$4
+		bnot
+		sat	temp[$0]
+		bnt	code_0409
+		pushi	$15e		; 350, clientLastCel
+		push1
+		pushi	$161		; 353, lastCel
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		ldi	$1
+		sub
+		push
+		lat	temp[$0]
+		send	$6
+		bnot
+code_0409:	pushi	$159		; 345, motionCue
+		push0
+		self	$4
+		bnot
+		ret
+
+Grycler::loopIsCorrect:
+		push1
+		push2
+		pTos	loopIndex
+		ldi	$2d		; 45, '-', cursor
+		mul
+		push
+		pushi	$43		; 67, 'C', heading
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		call	code_0079, $4
+		bnot
+		push
+		callk	kernel_61, $2
+		bnot
+		push
+		pushi	$b4		; 180, end
+		pToa	numOfLoops
+		div
+		push
+		ldi	$1
+		add
+		lt?
+		ret
+
+Grycler::nextCel:
+		push1
+		lsg	global[$40]
+		pToa	cycleCnt
+		sub
+		push
+		callk	kernel_61, $2
+		bnot
+		push
+		pushi	$14a		; 330, cycleSpeed
+		push0
+		pToa	client
+		send	$4
+		bnot
+		lt?
+		bt	code_0458
+		pushi	$29a		; 666, loopIsCorrect
+		push0
+		self	$4
+		bnot
+code_0458:	bnt	code_0464
+		pushi	$f		; 15, loop
+		push0
+		pToa	client
+		send	$4
+		bnot
+		jmp	code_0487
+
+code_0464:	lag	global[$40]
+		aTop	cycleCnt
+		pTos	loopIndex
+		pTos	cycleDir
+		pushi	$8		; fixPriority
+		pToa	numOfLoops
+		div
+		mul
+		add
+		aTop	loopIndex
+		push2
+		pTos	loopIndex
+		pushi	$8		; fixPriority
+		calle	export60025_1, $4
+		bnot
+		aTop	loopIndex
+		pToa	loopIndex
+		lali	local[$8]
+code_0487:	ret
+
diff --git a/Script/Script60074.txt b/Script/Script60074.txt
new file mode 100644
index 0000000..a7c78cb
--- /dev/null
+++ b/Script/Script60074.txt
@@ -0,0 +1,485 @@
+export60074_0	= SmoothLooper
+
+SmoothLooper::doit:
+		link	$2
+		pushi	$1a		; 26, signal
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		ldi	$800		; 2048, BAD SELECTOR
+		and
+		bnt	code_0056
+		ret
+
+code_0056:	ldi	$0
+		sat	temp[$1]
+		pToa	inProgress
+		bnt	code_007f
+		pToa	newMover
+		bnt	code_0069
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+code_0069:	pushi	$44		; 68, 'D', mover
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		aTop	newMover
+		pushi	$44		; 68, 'D', mover
+		push1
+		push0
+		lap	param[$1]
+		send	$6
+		bnot
+		ret
+
+		jmp	code_0096
+
+code_007f:	pToa	vNormal
+		not
+		bnt	code_008e
+		pushi	$e		; 14, view
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		aTop	vNormal
+code_008e:	lap	param[$1]
+		aTop	client
+		ldi	$1
+		aTop	inProgress
+code_0096:	pushi	$f		; 15, loop
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		ldi	$3		; z
+		gt?
+		bnt	code_00d6
+		pushi	$e		; 14, view
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		pToa	vNormal
+		eq?
+		bnt	code_00d6
+		pToa	inProgress
+		bnt	code_00c3
+		pToa	oldMover
+		bnt	code_00d6
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		jmp	code_00d6
+
+code_00c3:	pushi	$e		; 14, view
+		push1
+		pTos	vNormal
+		pToa	client
+		send	$6
+		bnot
+		push2
+		pTos	client
+		lsp	param[$2]
+		callk	kernel_95, $4
+		bnot
+code_00d6:	pushi	$f		; 15, loop
+		push0
+		pToa	client
+		send	$4
+		bnot
+		sat	temp[$0]
+		push
+		dup
+		ldi	$3		; z
+		eq?
+		bnt	code_013d
+		lsp	param[$2]
+		ldi	$2d		; 45, '-', cursor
+		le?
+		bt	code_00f4
+		lsp	param[$2]
+		ldi	$13b		; 315, putWord
+		gt?
+code_00f4:	bnt	code_00f9
+		jmp	code_0249
+
+code_00f9:	lsp	param[$2]
+		ldi	$87		; 135, left
+		le?
+		bnt	code_0110
+		ldi	$4		; scaleX
+		sat	temp[$0]
+		ldi	$0
+		aTop	nextLoop
+		ldi	$1
+		sat	temp[$1]
+		jmp	code_0249
+
+code_0110:	lsp	param[$2]
+		ldi	$e1		; 225, height
+		le?
+		bnt	code_0127
+		ldi	$4		; scaleX
+		sat	temp[$0]
+		ldi	$10		; 16, cel
+		aTop	nextLoop
+		ldi	$1
+		sat	temp[$1]
+		jmp	code_0249
+
+code_0127:	lsp	param[$2]
+		ldi	$13b		; 315, putWord
+		le?
+		bnt	code_0249
+		ldi	$5		; scaleY
+		sat	temp[$0]
+		ldi	$1
+		aTop	nextLoop
+		sat	temp[$1]
+		jmp	code_0249
+
+code_013d:	dup
+		ldi	$0
+		eq?
+		bnt	code_019b
+		lsp	param[$2]
+		ldi	$2d		; 45, '-', cursor
+		le?
+		bt	code_0150
+		lsp	param[$2]
+		ldi	$13b		; 315, putWord
+		gt?
+code_0150:	bnt	code_0161
+		ldi	$6		; maxScale
+		sat	temp[$0]
+		ldi	$3		; z
+		aTop	nextLoop
+		ldi	$1
+		sat	temp[$1]
+		jmp	code_0249
+
+code_0161:	lsp	param[$2]
+		ldi	$87		; 135, left
+		le?
+		bnt	code_016c
+		jmp	code_0249
+
+code_016c:	lsp	param[$2]
+		ldi	$e1		; 225, height
+		le?
+		bnt	code_0183
+		ldi	$0
+		sat	temp[$0]
+		ldi	$2
+		aTop	nextLoop
+		ldi	$1
+		sat	temp[$1]
+		jmp	code_0249
+
+code_0183:	lsp	param[$2]
+		ldi	$13b		; 315, putWord
+		le?
+		bnt	code_0249
+		ldi	$6		; maxScale
+		sat	temp[$0]
+		ldi	$15		; 21, nsBottom
+		aTop	nextLoop
+		ldi	$1
+		sat	temp[$1]
+		jmp	code_0249
+
+code_019b:	dup
+		ldi	$1
+		eq?
+		bnt	code_01f4
+		lsp	param[$2]
+		ldi	$2d		; 45, '-', cursor
+		le?
+		bt	code_01ae
+		lsp	param[$2]
+		ldi	$13b		; 315, putWord
+		gt?
+code_01ae:	bnt	code_01bf
+		ldi	$7		; priority
+		sat	temp[$0]
+		ldi	$3		; z
+		aTop	nextLoop
+		ldi	$1
+		sat	temp[$1]
+		jmp	code_0249
+
+code_01bf:	lsp	param[$2]
+		ldi	$87		; 135, left
+		le?
+		bnt	code_01d6
+		ldi	$1
+		sat	temp[$0]
+		ldi	$12		; 18, nsLeft
+		aTop	nextLoop
+		ldi	$1
+		sat	temp[$1]
+		jmp	code_0249
+
+code_01d6:	lsp	param[$2]
+		ldi	$e1		; 225, height
+		le?
+		bnt	code_01ec
+		ldi	$1
+		sat	temp[$0]
+		ldi	$2
+		aTop	nextLoop
+		ldi	$1
+		sat	temp[$1]
+		jmp	code_0249
+
+code_01ec:	lsp	param[$2]
+		ldi	$13b		; 315, putWord
+		le?
+		jmp	code_0249
+
+code_01f4:	dup
+		ldi	$2
+		eq?
+		bnt	code_0249
+		lsp	param[$2]
+		ldi	$2d		; 45, '-', cursor
+		le?
+		bt	code_0207
+		lsp	param[$2]
+		ldi	$13b		; 315, putWord
+		gt?
+code_0207:	bnt	code_0217
+		ldi	$3		; z
+		sat	temp[$0]
+		ldi	$17		; 23, lsTop
+		aTop	nextLoop
+		ldi	$1
+		sat	temp[$1]
+		jmp	code_0249
+
+code_0217:	lsp	param[$2]
+		ldi	$87		; 135, left
+		le?
+		bnt	code_022d
+		ldi	$2
+		sat	temp[$0]
+		ldi	$0
+		aTop	nextLoop
+		ldi	$1
+		sat	temp[$1]
+		jmp	code_0249
+
+code_022d:	lsp	param[$2]
+		ldi	$e1		; 225, height
+		le?
+		bnt	code_0237
+		jmp	code_0249
+
+code_0237:	lsp	param[$2]
+		ldi	$13b		; 315, putWord
+		le?
+		bnt	code_0249
+		ldi	$3		; z
+		sat	temp[$0]
+		ldi	$1
+		aTop	nextLoop
+		sat	temp[$1]
+code_0249:	toss
+		lat	temp[$1]
+		bnt	code_029a
+		pushi	$15b		; 347, cycler
+		push0
+		pToa	client
+		send	$4
+		bnot
+		aTop	oldCycler
+		pushi	$44		; 68, 'D', mover
+		push0
+		pToa	client
+		send	$4
+		bnot
+		aTop	oldMover
+		pushi	$14a		; 330, cycleSpeed
+		push0
+		pToa	client
+		send	$4
+		bnot
+		aTop	oldCycleSpeed
+		pushi	$e		; 14, view
+		push1
+		pTos	vChangeDir
+		pushi	$14a		; 330, cycleSpeed
+		push1
+		pTos	cycleSpeed
+		pushi	$44		; 68, 'D', mover
+		push1
+		push0
+		pushi	$15b		; 347, cycler
+		push1
+		push0
+		pushi	$f		; 15, loop
+		push1
+		lst	temp[$0]
+		pushi	$10		; 16, cel
+		push1
+		push0
+		pushi	$105		; 261, setCycle
+		push2
+		class	End
+		push
+		pushSelf
+		pToa	client
+		send	$2c
+		bnot
+		jmp	code_029e
+
+code_029a:	ldi	$0
+		aTop	inProgress
+code_029e:	ret
+
+SmoothLooper::cue:
+		pTos	nextLoop
+		ldi	$f		; 15, loop
+		lt?
+		bnt	code_02e3
+		pushi	$e		; 14, view
+		push1
+		pTos	vNormal
+		pushi	$f		; 15, loop
+		push1
+		pTos	nextLoop
+		pushi	$44		; 68, 'D', mover
+		push1
+		pTos	oldMover
+		pushi	$15b		; 347, cycler
+		push1
+		pTos	oldCycler
+		pushi	$14a		; 330, cycleSpeed
+		push1
+		pTos	oldCycleSpeed
+		pToa	client
+		send	$1e
+		bnot
+		ldi	$0
+		aTop	oldMover
+		aTop	oldCycler
+		aTop	inProgress
+		pToa	newMover
+		bnt	code_032b
+		pushi	$15c		; 348, setMotion
+		push1
+		push
+		pToa	client
+		send	$6
+		bnot
+		ldi	$0
+		aTop	newMover
+		jmp	code_032b
+
+code_02e3:	pTos	nextLoop
+		ldi	$10		; 16, cel
+		sub
+		aTop	nextLoop
+		pushi	$f		; 15, loop
+		push1
+		pTos	nextLoop
+		pushi	$10		; 16, cel
+		push1
+		push0
+		pushi	$105		; 261, setCycle
+		push2
+		class	End
+		push
+		pushSelf
+		pToa	client
+		send	$14
+		bnot
+		pTos	nextLoop
+		dup
+		ldi	$0
+		eq?
+		bnt	code_030c
+		ldi	$2
+		jmp	code_0328
+
+code_030c:	dup
+		ldi	$5		; scaleY
+		eq?
+		bnt	code_0316
+		ldi	$1
+		jmp	code_0328
+
+code_0316:	dup
+		ldi	$2
+		eq?
+		bnt	code_0320
+		ldi	$0
+		jmp	code_0328
+
+code_0320:	dup
+		ldi	$7		; priority
+		eq?
+		bnt	code_0328
+		ldi	$3		; z
+code_0328:	toss
+		aTop	nextLoop
+code_032b:	ret
+
+SmoothLooper::dispose:
+		pToa	oldMover
+		bnt	code_0337
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+code_0337:	pToa	newMover
+		bnt	code_0342
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+code_0342:	pToa	oldCycler
+		bnt	code_034d
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+code_034d:	ldi	$0
+		aTop	oldCycler
+		aTop	newMover
+		aTop	oldMover
+		aTop	inProgress
+		pushi	$e		; 14, view
+		push1
+		pTos	vNormal
+		pushi	$47		; 71, 'G', looper
+		push1
+		push0
+		pToa	client
+		send	$c
+		bnot
+		push2
+		pTos	client
+		pushi	$43		; 67, 'C', heading
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		callk	kernel_95, $4
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		super	Code, $4
+		bnot
+		ret
+
diff --git a/Script/Script60075.txt b/Script/Script60075.txt
new file mode 100644
index 0000000..3f2b09c
--- /dev/null
+++ b/Script/Script60075.txt
@@ -0,0 +1,104 @@
+Osc::init:
+		lsp	param[$0]
+		ldi	$2
+		ge?
+		bnt	code_004b
+		lap	param[$2]
+		aTop	howManyCycles
+code_004b:	lsp	param[$0]
+		ldi	$4		; scaleX
+		ge?
+		bnt	code_0067
+		lap	param[$4]
+		aTop	startCel
+		lap	param[$5]
+		aTop	endCel
+		lsp	param[$0]
+		ldi	$6		; maxScale
+		eq?
+		bnt	code_0081
+		lap	param[$6]
+		aTop	caller
+		jmp	code_0081
+
+code_0067:	ldi	$0
+		aTop	startCel
+		pushi	$161		; 353, lastCel
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		aTop	endCel
+		lsp	param[$0]
+		ldi	$3		; z
+		eq?
+		bnt	code_0081
+		lap	param[$3]
+		aTop	caller
+code_0081:	pushi	$94		; 148, init
+		push1
+		lsp	param[$1]
+		super	Cycle, $6
+		bnot
+		ret
+
+Osc::doit:
+		link	$1
+		pushi	$15f		; 351, nextCel
+		push0
+		self	$4
+		bnot
+		sat	temp[$0]
+		push
+		pToa	endCel
+		gt?
+		bt	code_00a2
+		lst	temp[$0]
+		pToa	startCel
+		lt?
+code_00a2:	bnt	code_00b2
+		pToa	cycleDir
+		neg
+		aTop	cycleDir
+		pushi	$160		; 352, cycleDone
+		push0
+		self	$4
+		bnot
+		jmp	code_00bc
+
+code_00b2:	pushi	$10		; 16, cel
+		push1
+		lst	temp[$0]
+		pToa	client
+		send	$6
+		bnot
+code_00bc:	ret
+
+Osc::cycleDone:
+		pToa	howManyCycles
+		bnt	code_00dc
+		pushi	$10		; 16, cel
+		push1
+		pushi	$15f		; 351, nextCel
+		push0
+		self	$4
+		bnot
+		push
+		pToa	client
+		send	$6
+		bnot
+		pTos	howManyCycles
+		ldi	$0
+		gt?
+		bnt	code_00e7
+		dpToa	howManyCycles
+		jmp	code_00e7
+
+code_00dc:	ldi	$1
+		aTop	completed
+		pushi	$159		; 345, motionCue
+		push0
+		self	$4
+		bnot
+code_00e7:	ret
+
diff --git a/Script/Script60076.txt b/Script/Script60076.txt
new file mode 100644
index 0000000..72ec73a
--- /dev/null
+++ b/Script/Script60076.txt
@@ -0,0 +1,163 @@
+MCyc::init:
+		link	$2
+		lap	param[$1]
+		aTop	client
+		lap	param[$2]
+		aTop	points
+		lsp	param[$0]
+		ldi	$2
+		gt?
+		bnt	code_0064
+		lap	param[$3]
+		aTop	caller
+		lsp	param[$0]
+		ldi	$3		; z
+		gt?
+		bnt	code_0064
+		lap	param[$4]
+		aTop	cycleDir
+code_0064:	ldi	$0
+		aTop	size
+code_0068:	pushi	$4b		; 75, 'K', at
+		push1
+		pTos	size
+		pToa	points
+		send	$6
+		bnot
+		push
+		ldi	$8000		; -32768
+		ne?
+		bnt	code_007d
+		ipToa	size
+		jmp	code_0068
+
+code_007d:	pTos	cycleDir
+		ldi	$1
+		eq?
+		bnt	code_008a
+		ldi	$0
+		aTop	value
+		jmp	code_0091
+
+code_008a:	pTos	size
+		ldi	$4		; scaleX
+		sub
+		aTop	value
+code_0091:	pushi	$94		; 148, init
+		push0
+		super	Cycle, $4
+		bnot
+		ret
+
+MCyc::doit:
+		push1
+		lsg	global[$40]
+		pToa	cycleCnt
+		sub
+		push
+		callk	kernel_61, $2
+		bnot
+		push
+		pushi	$14a		; 330, cycleSpeed
+		push0
+		pToa	client
+		send	$4
+		bnot
+		ge?
+		bnt	code_00bd
+		lag	global[$40]
+		aTop	cycleCnt
+		pushi	$15f		; 351, nextCel
+		push0
+		self	$4
+		bnot
+code_00bd:	ret
+
+MCyc::nextCel:
+		pushi	$f		; 15, loop
+		push1
+		pushi	$4b		; 75, 'K', at
+		push1
+		pTos	value
+		pToa	points
+		send	$6
+		bnot
+		push
+		pushi	$10		; 16, cel
+		push1
+		pushi	$4b		; 75, 'K', at
+		push1
+		pTos	value
+		ldi	$1
+		add
+		push
+		pToa	points
+		send	$6
+		bnot
+		push
+		push1
+		push1
+		pushi	$4b		; 75, 'K', at
+		push1
+		pTos	value
+		ldi	$2
+		add
+		push
+		pToa	points
+		send	$6
+		bnot
+		push
+		push2
+		push1
+		pushi	$4b		; 75, 'K', at
+		push1
+		pTos	value
+		ldi	$3		; z
+		add
+		push
+		pToa	points
+		send	$6
+		bnot
+		push
+		pToa	client
+		send	$18
+		bnot
+		pTos	value
+		pTos	cycleDir
+		ldi	$4		; scaleX
+		mul
+		add
+		aTop	value
+		pTos	cycleDir
+		ldi	$1
+		eq?
+		bnt	code_011b
+		pTos	value
+		pToa	size
+		ge?
+code_011b:	bt	code_0129
+		pTos	cycleDir
+		ldi	$ff		; 255, asInteger
+		eq?
+		bnt	code_0132
+		pTos	value
+		ldi	$0
+		lt?
+code_0129:	bnt	code_0132
+		pushi	$160		; 352, cycleDone
+		push0
+		self	$4
+		bnot
+code_0132:	ret
+
+MCyc::cycleDone:
+		ldi	$1
+		aTop	completed
+		ldi	$0
+		aTop	value
+		pushi	$159		; 345, motionCue
+		push0
+		self	$4
+		bnot
+		ret
+