From 53de324c2f2bf1fed4d0492ef47f173e99c792b1 Mon Sep 17 00:00:00 2001
From: threememories <threememories@yahoo.com>
Date: Mon, 27 Apr 2026 01:31:48 +0000
Subject: [PATCH] Upload files to "Script"

---
 Script/Script59963.txt |  193 +++++++
 Script/Script60000.txt |  113 ++++
 Script/Script60001.txt | 1166 +++++++++++++++++++++++++++++++++++++++
 Script/Script60002.txt |  352 ++++++++++++
 Script/Script60003.txt | 1184 ++++++++++++++++++++++++++++++++++++++++
 5 files changed, 3008 insertions(+)
 create mode 100644 Script/Script59963.txt
 create mode 100644 Script/Script60000.txt
 create mode 100644 Script/Script60001.txt
 create mode 100644 Script/Script60002.txt
 create mode 100644 Script/Script60003.txt

diff --git a/Script/Script59963.txt b/Script/Script59963.txt
new file mode 100644
index 0000000..81da76b
--- /dev/null
+++ b/Script/Script59963.txt
@@ -0,0 +1,193 @@
+GSGetMailScript::handleMsg:
+		link	$5
+		pushi	$3		; z
+		pushi	$a		; 10, inTop
+		push0
+		lsp	param[$1]
+		callk	kernel_118, $6
+		bnot
+		bnt	code_01ef
+		ldi	$1
+		aTop	cycles
+code_01ef:	ret
+
+GSGetMailScript::changeState:
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_020c
+		pushi	$3		; z
+		pushi	$e		; 14, view
+		lofsa	string_01b0	; "t"
+		push
+		pushi	$87		; 135, left
+		callk	kernel_128, $6
+		bnot
+		jmp	code_0219
+
+code_020c:	dup
+		ldi	$1
+		eq?
+		bnt	code_0219
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_0219:	toss
+		ret
+
+GSSendMailScript::dispose:
+		pToa	pObj
+		bnt	code_022a
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		aTop	pObj
+code_022a:	pushi	$95		; 149, dispose
+		push0
+		&rest	$1
+		super	GSActionScript, $4
+		bnot
+		ret
+
+GSSendMailScript::handleMsg:
+		link	$5
+		pushi	$3		; z
+		pushi	$a		; 10, inTop
+		push0
+		lsp	param[$1]
+		callk	kernel_118, $6
+		bnot
+		bnt	code_0248
+		ldi	$1
+		aTop	cycles
+code_0248:	ret
+
+GSSendMailScript::changeState:
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_0277
+		pushi	$5		; scaleY
+		pushi	$e		; 14, view
+		lofsa	string_01c2	; "ta"
+		push
+		pushi	$8a		; 138, bottom
+		pushi	$5a		; 90, 'Z', size
+		push0
+		pToa	pObj
+		send	$4
+		bnot
+		push
+		pushi	$71		; 113, 'q', data
+		push0
+		pToa	pObj
+		send	$4
+		bnot
+		push
+		callk	kernel_128, $a
+		bnot
+		jmp	code_0284
+
+code_0277:	dup
+		ldi	$1
+		eq?
+		bnt	code_0284
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_0284:	toss
+		ret
+
+GSGetMailMsgScript::handleMsg:
+		pushi	$3		; z
+		pushi	$a		; 10, inTop
+		push0
+		lsp	param[$1]
+		callk	kernel_118, $6
+		bnot
+		bnt	code_0297
+		ldi	$1
+		aTop	cycles
+code_0297:	ret
+
+GSGetMailMsgScript::changeState:
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_02b6
+		pushi	$4		; scaleX
+		pushi	$e		; 14, view
+		lofsa	string_01d6	; "tw"
+		push
+		pushi	$88		; 136, right
+		pTos	pNumber
+		callk	kernel_128, $8
+		bnot
+		jmp	code_02c3
+
+code_02b6:	dup
+		ldi	$1
+		eq?
+		bnt	code_02c3
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_02c3:	toss
+		ret
+
+GSEraseMailMsgScript::handleMsg:
+		link	$8
+		pushi	$3		; z
+		pushi	$a		; 10, inTop
+		push0
+		lsp	param[$1]
+		callk	kernel_118, $6
+		bnot
+		bnt	code_02d8
+		ldi	$1
+		aTop	cycles
+code_02d8:	ret
+
+GSEraseMailMsgScript::changeState:
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_02f7
+		pushi	$4		; scaleX
+		pushi	$e		; 14, view
+		lofsa	string_01d6	; "tw"
+		push
+		pushi	$89		; 137, top
+		pTos	pNumber
+		callk	kernel_128, $8
+		bnot
+		jmp	code_0304
+
+code_02f7:	dup
+		ldi	$1
+		eq?
+		bnt	code_0304
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_0304:	toss
+		ret
+
diff --git a/Script/Script60000.txt b/Script/Script60000.txt
new file mode 100644
index 0000000..5659a10
--- /dev/null
+++ b/Script/Script60000.txt
@@ -0,0 +1,113 @@
+export60000_0	= code_00e6
+
+Obj::new:
+		push1
+		pushSelf
+		callk	kernel_10, $2
+		bnot
+		ret
+
+Obj::init:
+		ret
+
+Obj::doit:
+		selfID
+		ret
+
+Obj::dispose:
+		lag	global[$65]
+		bnt	code_008b
+		pushi	$9d		; 157, eachElementDo
+		push2
+		pushi	$9c		; 156, handleError
+		pushSelf
+		send	$8
+		bnot
+code_008b:	push1
+		pushSelf
+		callk	kernel_11, $2
+		bnot
+		ret
+
+Obj::perform:
+		pushi	$45		; 69, 'E', doit
+		push1
+		pushSelf
+		&rest	$2
+		lap	param[$1]
+		send	$6
+		bnot
+		ret
+
+Obj::respondsTo:
+		push2
+		pushSelf
+		lsp	param[$1]
+		callk	kernel_12, $4
+		bnot
+		ret
+
+Obj::isClass:
+		pTos	-info-
+		ldi	$8000		; -32768
+		and
+		ret
+
+Obj::isMemberOf:
+		pushi	$1007		; 4103, -info-
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		ldi	$8000		; -32768
+		and
+		bnt	code_00d3
+		pTos	-info-
+		ldi	$8000		; -32768
+		and
+		not
+		bnt	code_00d3
+		pTos	-propDict-
+		pushi	$1002		; 4098, -propDict-
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		eq?
+code_00d3:	ret
+
+Obj::isKindOf:
+		link	$1
+		push2
+		lsp	param[$1]
+		pushSelf
+		callk	kernel_155, $4
+		bnot
+		ret
+
+Obj::yourself:
+		selfID
+		ret
+
+Obj::handleMsg:
+		ldi	$0
+		ret
+
+Obj::handleError:
+		ret
+
+Code::doit:
+		ret
+
+; export60000_0
+code_00e6:	push2
+		pushi	$4		; scaleX
+		lsp	param[$1]
+		callk	kernel_105, $4
+		bnot
+		push
+		ldi	$34		; 52, '4', number
+		eq?
+		ret
+
diff --git a/Script/Script60001.txt b/Script/Script60001.txt
new file mode 100644
index 0000000..322018c
--- /dev/null
+++ b/Script/Script60001.txt
@@ -0,0 +1,1166 @@
+Str::format:
+		link	$1
+		pTos	-info-
+		ldi	$8000		; -32768
+		and
+		bnt	code_00b2
+		push1
+		pushSelf
+		callk	kernel_10, $2
+		bnot
+		sat	temp[$0]
+		pushi	$71		; 113, 'q', data
+		push1
+		push1
+		push2
+		&rest	$1
+		callk	kernel_92, $2
+		bnot
+		push
+		lat	temp[$0]
+		send	$6
+		bnot
+		lat	temp[$0]
+		ret
+
+		jmp	code_00bf
+
+code_00b2:	push2
+		pushi	$3		; z
+		pTos	data
+		&rest	$1
+		callk	kernel_92, $4
+		bnot
+		selfID
+		ret
+
+code_00bf:	ret
+
+Str::with:
+		link	$1
+		push1
+		pushSelf
+		callk	kernel_10, $2
+		bnot
+		sat	temp[$0]
+		pushi	$71		; 113, 'q', data
+		push1
+		push2
+		pushi	$8		; fixPriority
+		push2
+		pushi	$9		; inLeft
+		lsp	param[$1]
+		callk	kernel_91, $4
+		bnot
+		push
+		callk	kernel_91, $4
+		bnot
+		push
+		lat	temp[$0]
+		send	$6
+		bnot
+		lat	temp[$0]
+		ret
+
+Str::newWith:
+		link	$1
+		pushi	$8d		; 141, new
+		push1
+		lsp	param[$1]
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		lap	param[$2]
+		bnt	code_0104
+		pushi	$d3		; 211, copy
+		push1
+		push
+		lat	temp[$0]
+		send	$6
+		bnot
+code_0104:	lat	temp[$0]
+		ret
+
+Str::newCopies:
+		link	$3
+		lsp	param[$0]
+		ldi	$1
+		lt?
+		bnt	code_011a
+		pushi	$8d		; 141, new
+		push0
+		class	Str
+		send	$4
+		bnot
+		ret
+
+code_011a:	lsp	param[$0]
+		ldi	$2
+		lt?
+		bnt	code_0127
+		ldi	$1
+		sat	temp[$1]
+		jmp	code_012b
+
+code_0127:	lap	param[$2]
+		sat	temp[$1]
+code_012b:	lsp	param[$0]
+		ldi	$2
+		gt?
+		bnt	code_0153
+		lap	param[$3]
+		bnt	code_0153
+		pushi	$8d		; 141, new
+		push1
+		lst	temp[$1]
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		pushi	$d6		; 214, fill
+		pushi	$3		; z
+		push0
+		lst	temp[$1]
+		lsp	param[$1]
+		send	$a
+		bnot
+		jmp	code_018a
+
+code_0153:	pushi	$d1		; 209, newWith
+		push1
+		lst	temp[$1]
+		push1
+		lsp	param[$1]
+		call	code_07bc, $2
+		bnot
+		mul
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		push2
+		pushi	$9		; inLeft
+		lsp	param[$1]
+		callk	kernel_91, $4
+		bnot
+		sat	temp[$2]
+code_0175:	-at	temp[$1]
+		push
+		ldi	$0
+		ge?
+		bnt	code_018a
+		pushi	$f7		; 247, cat
+		push1
+		lst	temp[$2]
+		lat	temp[$0]
+		send	$6
+		bnot
+		jmp	code_0175
+
+code_018a:	lat	temp[$0]
+		ret
+
+Str::at:
+		link	$3
+		lsp	param[$0]
+		ldi	$1
+		eq?
+		bnt	code_01a2
+		pushi	$3		; z
+		push2
+		pTos	data
+		lsp	param[$1]
+		callk	kernel_91, $6
+		bnot
+		ret
+
+code_01a2:	lsp	param[$1]
+		lap	param[$0]
+		add
+		push
+		ldi	$ff		; 255, asInteger
+		add
+		sat	temp[$1]
+		push
+		pushi	$5a		; 90, 'Z', size
+		push0
+		self	$4
+		bnot
+		sat	temp[$2]
+		gt?
+		bnt	code_01e0
+		lsp	param[$1]
+		lat	temp[$2]
+		gt?
+		bnt	code_01d3
+		pushi	$5		; scaleY
+		dup
+		pTos	data
+		lst	temp[$2]
+		lsp	param[$1]
+		lat	temp[$2]
+		sub
+		push
+		pushi	$20		; 32, ' ', name
+		callk	kernel_91, $a
+		bnot
+code_01d3:	pushi	$4		; scaleX
+		pushi	$3		; z
+		pTos	data
+		lst	temp[$1]
+		push0
+		callk	kernel_91, $8
+		bnot
+code_01e0:	pushi	$3		; z
+		dup
+		pTos	data
+		lsp	param[$1]
+		&rest	$2
+		callk	kernel_91, $6
+		bnot
+		selfID
+		ret
+
+Str::cat:
+		pushi	$d2		; 210, copyToFrom
+		pushi	$4		; scaleX
+		pushi	$5a		; 90, 'Z', size
+		push0
+		self	$4
+		bnot
+		push
+		lsp	param[$1]
+		push0
+		push1
+		lsp	param[$1]
+		call	code_07bc, $2
+		bnot
+		push
+		ldi	$1
+		add
+		push
+		self	$c
+		bnot
+		ret
+
+Str::translate:
+		lsp	param[$0]
+		ldi	$2
+		lt?
+		bnt	code_021a
+		ldi	$0
+		ret
+
+code_021a:	pushi	$5		; scaleY
+		pushi	$8		; fixPriority
+		pTos	data
+		lsp	param[$1]
+		lsp	param[$2]
+		pTos	data
+		callk	kernel_92, $a
+		bnot
+		ldi	$1
+		ret
+
+Str::all:
+		link	$7
+		lsp	param[$0]
+		ldi	$1
+		lt?
+		bnt	code_0239
+		ldi	$0
+		ret
+
+code_0239:	ldi	$0
+		sat	temp[$2]
+		ldi	$0
+		sat	temp[$1]
+		pushi	$5a		; 90, 'Z', size
+		push0
+		self	$4
+		bnot
+		sat	temp[$3]
+		push1
+		lsp	param[$1]
+		call	code_07bc, $2
+		bnot
+		sat	temp[$4]
+		push1
+		lsp	param[$2]
+		call	code_07bc, $2
+		bnot
+		sat	temp[$5]
+		pushi	$8d		; 141, new
+		push1
+		lst	temp[$3]
+		ldi	$2
+		div
+		push
+		ldi	$1
+		add
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$6]
+		ldi	$0
+		sat	temp[$0]
+code_0276:	lst	temp[$0]
+		lst	temp[$3]
+		lat	temp[$4]
+		sub
+		le?
+		bnt	code_02f2
+		pushi	$d4		; 212, compToFrom
+		pushi	$4		; scaleX
+		lst	temp[$0]
+		lsp	param[$1]
+		push0
+		lst	temp[$4]
+		self	$c
+		bnot
+		push
+		ldi	$0
+		gt?
+		bnt	code_02ee
+		lsp	param[$0]
+		ldi	$2
+		eq?
+		bnt	code_02c6
+		lat	temp[$5]
+		bnt	code_02ec
+		pushi	$d2		; 210, copyToFrom
+		pushi	$4		; scaleX
+		lst	temp[$1]
+		lsp	param[$2]
+		push0
+		push
+		lat	temp[$6]
+		send	$c
+		bnot
+		lst	temp[$0]
+		lst	temp[$5]
+		ldi	$1
+		sub
+		add
+		sat	temp[$0]
+		lst	temp[$1]
+		lat	temp[$5]
+		add
+		sat	temp[$1]
+		jmp	code_02ec
+
+code_02c6:	lat	temp[$4]
+		bnt	code_02ec
+		pushi	$d2		; 210, copyToFrom
+		pushi	$4		; scaleX
+		lst	temp[$1]
+		lsp	param[$1]
+		push0
+		push
+		lat	temp[$6]
+		send	$c
+		bnot
+		lst	temp[$0]
+		lst	temp[$4]
+		ldi	$1
+		sub
+		add
+		sat	temp[$0]
+		lst	temp[$1]
+		lat	temp[$4]
+		add
+		sat	temp[$1]
+code_02ec:	+at	temp[$2]
+code_02ee:	+at	temp[$0]
+		jmp	code_0276
+
+code_02f2:	pushi	$d2		; 210, copyToFrom
+		pushi	$4		; scaleX
+		push0
+		lst	temp[$6]
+		push0
+		lst	temp[$1]
+		self	$c
+		bnot
+		pushi	$4b		; 75, 'K', at
+		push2
+		lst	temp[$1]
+		push0
+		self	$8
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$6]
+		send	$4
+		bnot
+		lat	temp[$2]
+		ret
+
+Str::upper:
+		link	$3
+		push2
+		pushi	$6		; maxScale
+		pTos	data
+		callk	kernel_92, $4
+		bnot
+		ret
+
+Str::lower:
+		link	$3
+		push2
+		pushi	$7		; priority
+		pTos	data
+		callk	kernel_92, $4
+		bnot
+		ret
+
+Str::subStr:
+		link	$1
+		lsp	param[$2]
+		ldi	$ff		; 255, asInteger
+		eq?
+		bnt	code_0343
+		pushi	$5a		; 90, 'Z', size
+		push0
+		self	$4
+		bnot
+		push
+		lap	param[$1]
+		sub
+		jmp	code_0345
+
+code_0343:	lap	param[$2]
+code_0345:	sat	temp[$0]
+		pushi	$d2		; 210, copyToFrom
+		pushi	$4		; scaleX
+		push0
+		pushSelf
+		lsp	param[$1]
+		push
+		pushi	$4b		; 75, 'K', at
+		push2
+		push
+		push0
+		pushi	$9a		; 154, yourself
+		push0
+		pushi	$8d		; 141, new
+		push1
+		push
+		ldi	$1
+		add
+		push
+		class	Str
+		send	$6
+		bnot
+		send	$18
+		bnot
+		ret
+
+Str::left:
+		link	$4
+		lsp	param[$0]
+		ldi	$1
+		lt?
+		bnt	code_0380
+		pushi	$8d		; 141, new
+		push0
+		class	Str
+		send	$4
+		bnot
+		ret
+
+code_0380:	lsp	param[$0]
+		ldi	$2
+		lt?
+		bnt	code_038d
+		ldi	$20		; 32, ' ', name
+		sat	temp[$0]
+		jmp	code_0391
+
+code_038d:	lap	param[$2]
+		sat	temp[$0]
+code_0391:	lsp	param[$1]
+		ldi	$1
+		lt?
+		bnt	code_03a2
+		pushi	$8d		; 141, new
+		push0
+		class	Str
+		send	$4
+		bnot
+		ret
+
+code_03a2:	pushi	$5a		; 90, 'Z', size
+		push0
+		self	$4
+		bnot
+		sat	temp[$2]
+		pushi	$fb		; 251, subStr
+		push2
+		push0
+		lsp	param[$1]
+		gt?
+		bnt	code_03b8
+		lat	temp[$2]
+		jmp	code_03ba
+
+code_03b8:	lap	param[$1]
+code_03ba:	push
+		self	$8
+		bnot
+		sat	temp[$1]
+		lsp	param[$1]
+		lat	temp[$2]
+		gt?
+		bnt	code_03f1
+		lat	temp[$0]
+		bnt	code_03f1
+		pushi	$f6		; 246, newCopies
+		push2
+		lst	temp[$0]
+		lsp	param[$1]
+		lat	temp[$2]
+		sub
+		push
+		class	Str
+		send	$8
+		bnot
+		sat	temp[$3]
+		pushi	$f7		; 247, cat
+		push1
+		push
+		lat	temp[$1]
+		send	$6
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$3]
+		send	$4
+		bnot
+code_03f1:	lat	temp[$1]
+		ret
+
+Str::right:
+		link	$4
+		lsp	param[$0]
+		ldi	$1
+		lt?
+		bnt	code_0407
+		pushi	$8d		; 141, new
+		push0
+		class	Str
+		send	$4
+		bnot
+		ret
+
+code_0407:	lsp	param[$0]
+		ldi	$2
+		lt?
+		bnt	code_0414
+		ldi	$20		; 32, ' ', name
+		sat	temp[$0]
+		jmp	code_0418
+
+code_0414:	lap	param[$2]
+		sat	temp[$0]
+code_0418:	lsp	param[$1]
+		ldi	$1
+		lt?
+		bnt	code_0429
+		pushi	$8d		; 141, new
+		push0
+		class	Str
+		send	$4
+		bnot
+		ret
+
+code_0429:	pushi	$5a		; 90, 'Z', size
+		push0
+		self	$4
+		bnot
+		sat	temp[$2]
+		pushi	$fb		; 251, subStr
+		push2
+		lsp	param[$1]
+		gt?
+		bnt	code_043e
+		ldi	$0
+		jmp	code_0443
+
+code_043e:	lst	temp[$2]
+		lap	param[$1]
+		sub
+code_0443:	push
+		lsp	param[$1]
+		lat	temp[$2]
+		gt?
+		bnt	code_044f
+		lat	temp[$2]
+		jmp	code_0451
+
+code_044f:	lap	param[$1]
+code_0451:	push
+		self	$8
+		bnot
+		sat	temp[$1]
+		lsp	param[$1]
+		lat	temp[$2]
+		gt?
+		bnt	code_048b
+		lat	temp[$0]
+		bnt	code_048b
+		pushi	$f6		; 246, newCopies
+		push2
+		lst	temp[$0]
+		lsp	param[$1]
+		lat	temp[$2]
+		sub
+		push
+		class	Str
+		send	$8
+		bnot
+		sat	temp[$3]
+		pushi	$f7		; 247, cat
+		push1
+		lst	temp[$1]
+		send	$6
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		lat	temp[$3]
+		sat	temp[$1]
+code_048b:	lat	temp[$1]
+		ret
+
+Str::indexOf:
+		link	$2
+		pushi	$5a		; 90, 'Z', size
+		push0
+		self	$4
+		bnot
+		sat	temp[$1]
+		lsp	param[$0]
+		ldi	$1
+		gt?
+		bnt	code_04c5
+		lap	param[$2]
+		bnt	code_04c5
+		-at	temp[$1]
+		sat	temp[$0]
+code_04a7:	lst	temp[$0]
+		ldi	$0
+		ge?
+		bnt	code_04e5
+		pushi	$4b		; 75, 'K', at
+		push1
+		lst	temp[$0]
+		self	$6
+		bnot
+		push
+		lap	param[$1]
+		eq?
+		bnt	code_04bf
+		lat	temp[$0]
+		ret
+
+code_04bf:	-at	temp[$0]
+		jmp	code_04a7
+
+		jmp	code_04e5
+
+code_04c5:	ldi	$0
+		sat	temp[$0]
+code_04c9:	lst	temp[$0]
+		lat	temp[$1]
+		lt?
+		bnt	code_04e5
+		pushi	$4b		; 75, 'K', at
+		push1
+		lst	temp[$0]
+		self	$6
+		bnot
+		push
+		lap	param[$1]
+		eq?
+		bnt	code_04e1
+		lat	temp[$0]
+		ret
+
+code_04e1:	+at	temp[$0]
+		jmp	code_04c9
+
+code_04e5:	ldi	$ff		; 255, asInteger
+		ret
+
+Str::strIndex:
+		link	$5
+		pushi	$5a		; 90, 'Z', size
+		push0
+		self	$4
+		bnot
+		sat	temp[$0]
+		push1
+		lsp	param[$1]
+		call	code_07bc, $2
+		bnot
+		sat	temp[$1]
+		lsp	param[$0]
+		ldi	$1
+		gt?
+		bnt	code_0535
+		lap	param[$2]
+		bnt	code_0535
+		lst	temp[$0]
+		lat	temp[$1]
+		sub
+		push
+		ldi	$1
+		sub
+		sat	temp[$2]
+code_0512:	lst	temp[$2]
+		ldi	$0
+		ge?
+		bnt	code_056b
+		pushi	$d4		; 212, compToFrom
+		pushi	$4		; scaleX
+		lst	temp[$2]
+		lsp	param[$1]
+		push0
+		lst	temp[$1]
+		self	$c
+		bnot
+		bnt	code_052f
+		lat	temp[$2]
+		ret
+
+code_052f:	-at	temp[$2]
+		jmp	code_0512
+
+		jmp	code_056b
+
+code_0535:	push2
+		pushi	$9		; inLeft
+		lsp	param[$1]
+		callk	kernel_91, $4
+		bnot
+		sat	temp[$4]
+		pToa	data
+		sat	temp[$3]
+		ldi	$0
+		sat	temp[$2]
+code_0548:	lst	temp[$2]
+		lst	temp[$0]
+		lat	temp[$1]
+		sub
+		le?
+		bnt	code_056b
+		pushi	$5		; scaleY
+		push0
+		lst	temp[$3]
+		lst	temp[$4]
+		lst	temp[$1]
+		lst	temp[$2]
+		callk	kernel_92, $a
+		bnot
+		not
+		bnt	code_0567
+		lat	temp[$2]
+		ret
+
+code_0567:	+at	temp[$2]
+		jmp	code_0548
+
+code_056b:	ldi	$ff		; 255, asInteger
+		ret
+
+Str::asInteger:
+		push2
+		pushi	$4		; scaleX
+		pTos	data
+		callk	kernel_92, $4
+		bnot
+		ret
+
+Str::size:
+		push2
+		push1
+		pTos	data
+		callk	kernel_92, $4
+		bnot
+		ret
+
+Str::init:
+		pushi	$4b		; 75, 'K', at
+		push2
+		push0
+		push0
+		self	$8
+		bnot
+		ret
+
+Str::strMax:
+		pushi	$5a		; 90, 'Z', size
+		push0
+		super	ByteArray, $4
+		bnot
+		push
+		ldi	$1
+		sub
+		ret
+
+Str::compare:
+		pushi	$5a		; 90, 'Z', size
+		push0
+		self	$4
+		bnot
+		push
+		push1
+		lsp	param[$1]
+		call	code_07bc, $2
+		bnot
+		ne?
+		bnt	code_05ac
+		ldi	$0
+		jmp	code_05c8
+
+code_05ac:	pushi	$d4		; 212, compToFrom
+		pushi	$4		; scaleX
+		push0
+		push2
+		pushi	$9		; inLeft
+		lsp	param[$1]
+		callk	kernel_91, $4
+		bnot
+		push
+		push0
+		pushi	$5a		; 90, 'Z', size
+		push0
+		self	$4
+		bnot
+		push
+		self	$c
+		bnot
+code_05c8:	ret
+
+Str::compToFrom:
+		pushi	$4		; scaleX
+		push0
+		pTos	data
+		push2
+		pushi	$9		; inLeft
+		lsp	param[$2]
+		callk	kernel_91, $4
+		bnot
+		push
+		lsp	param[$4]
+		callk	kernel_92, $8
+		bnot
+		not
+		ret
+
+Str::getToken:
+		link	$b
+		push2
+		pushi	$9		; inLeft
+		pushi	$71		; 113, 'q', data
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		callk	kernel_91, $4
+		bnot
+		sat	temp[$5]
+		ldi	$0
+		sat	temp[$4]
+		ldi	$ff		; 255, asInteger
+		sat	temp[$7]
+		ldi	$ff		; 255, asInteger
+		sat	temp[$8]
+		pToa	data
+		sat	temp[$a]
+		push2
+		push1
+		push
+		callk	kernel_92, $4
+		bnot
+		sat	temp[$9]
+		ldi	$0
+		sat	temp[$0]
+code_0611:	lst	temp[$0]
+		lat	temp[$9]
+		lt?
+		bnt	code_067c
+		pushi	$3		; z
+		push2
+		lst	temp[$a]
+		lst	temp[$0]
+		callk	kernel_91, $6
+		bnot
+		sat	temp[$6]
+		ldi	$0
+		sat	temp[$4]
+		ldi	$0
+		sat	temp[$3]
+code_062e:	lst	temp[$3]
+		push2
+		push1
+		lst	temp[$5]
+		callk	kernel_92, $4
+		bnot
+		lt?
+		bnt	code_0655
+		lst	temp[$6]
+		pushi	$3		; z
+		push2
+		lst	temp[$5]
+		lst	temp[$3]
+		callk	kernel_91, $6
+		bnot
+		eq?
+		bnt	code_0651
+		ldi	$1
+		sat	temp[$4]
+		jmp	code_0655
+
+code_0651:	+at	temp[$3]
+		jmp	code_062e
+
+code_0655:	lst	temp[$7]
+		ldi	$ff		; 255, asInteger
+		eq?
+		bnt	code_0667
+		lat	temp[$4]
+		not
+		bnt	code_0667
+		lat	temp[$0]
+		sat	temp[$7]
+		jmp	code_0678
+
+code_0667:	lst	temp[$7]
+		ldi	$ff		; 255, asInteger
+		ne?
+		bnt	code_0678
+		lat	temp[$4]
+		bnt	code_0678
+		lat	temp[$0]
+		sat	temp[$8]
+		jmp	code_067c
+
+code_0678:	+at	temp[$0]
+		jmp	code_0611
+
+code_067c:	lst	temp[$8]
+		ldi	$ff		; 255, asInteger
+		eq?
+		bnt	code_068b
+		pushi	$5a		; 90, 'Z', size
+		push0
+		self	$4
+		bnot
+		sat	temp[$8]
+code_068b:	lst	temp[$7]
+		ldi	$ff		; 255, asInteger
+		ne?
+		bnt	code_06f8
+		lsp	param[$0]
+		ldi	$2
+		eq?
+		bnt	code_069e
+		lap	param[$2]
+		jmp	code_06ad
+
+code_069e:	pushi	$8d		; 141, new
+		push1
+		lst	temp[$8]
+		lat	temp[$7]
+		sub
+		push
+		class	Str
+		send	$6
+		bnot
+code_06ad:	sat	temp[$2]
+		lat	temp[$8]
+		bnt	code_06e8
+		pushi	$6		; maxScale
+		dup
+		push2
+		pushi	$9		; inLeft
+		lst	temp[$2]
+		callk	kernel_91, $4
+		bnot
+		push
+		push0
+		pTos	data
+		lst	temp[$7]
+		lst	temp[$8]
+		lat	temp[$7]
+		sub
+		push
+		callk	kernel_91, $c
+		bnot
+		pushi	$4		; scaleX
+		pushi	$3		; z
+		push2
+		pushi	$9		; inLeft
+		lst	temp[$2]
+		callk	kernel_91, $4
+		bnot
+		push
+		lst	temp[$8]
+		lat	temp[$7]
+		sub
+		push
+		push0
+		callk	kernel_91, $8
+		bnot
+code_06e8:	pushi	$d7		; 215, move
+		pushi	$3		; z
+		push0
+		lst	temp[$8]
+		pushi	$ff		; 255, asInteger
+		self	$a
+		bnot
+		jmp	code_06fc
+
+code_06f8:	ldi	$0
+		sat	temp[$2]
+code_06fc:	lat	temp[$2]
+		ret
+
+Str::strip:
+		link	$5
+		lap	param[$1]
+		sap	param[$1]
+		ldi	$0
+		sat	temp[$2]
+		ldi	$0
+		sat	temp[$3]
+		lsp	param[$0]
+		ldi	$1
+		lt?
+		bnt	code_071b
+		ldi	$5		; scaleY
+		sat	temp[$3]
+		jmp	code_077d
+
+code_071b:	ldi	$0
+		sat	temp[$4]
+code_071f:	lst	temp[$4]
+		lap	param[$0]
+		lt?
+		bnt	code_077d
+		lat	temp[$4]
+		lspi	param[$1]
+		dup
+		ldi	$87		; 135, left
+		eq?
+		bnt	code_073c
+		lst	temp[$3]
+		ldi	$4		; scaleX
+		or
+		sat	temp[$3]
+		jmp	code_0778
+
+code_073c:	dup
+		ldi	$88		; 136, right
+		eq?
+		bnt	code_074c
+		lst	temp[$3]
+		ldi	$1
+		or
+		sat	temp[$3]
+		jmp	code_0778
+
+code_074c:	dup
+		ldi	$73		; 115, 's', center
+		eq?
+		bnt	code_075b
+		lst	temp[$3]
+		ldi	$2
+		or
+		sat	temp[$3]
+		jmp	code_0778
+
+code_075b:	dup
+		ldi	$74		; 116, 't', all
+		eq?
+		bnt	code_0767
+		ldi	$7		; priority
+		sat	temp[$3]
+		jmp	code_0778
+
+code_0767:	dup
+		ldi	$75		; 117, 'u', show
+		eq?
+		bnt	code_0778
+		lst	temp[$4]
+		ldi	$1
+		add
+		lapi	param[$1]
+		sat	temp[$2]
+		+at	temp[$4]
+code_0778:	toss
+		+at	temp[$4]
+		jmp	code_071f
+
+code_077d:	lat	temp[$2]
+		bnt	code_0790
+		pushi	$4		; scaleX
+		pushi	$5		; scaleY
+		pTos	data
+		lst	temp[$3]
+		push
+		callk	kernel_92, $8
+		bnot
+		jmp	code_079c
+
+code_0790:	pushi	$3		; z
+		pushi	$5		; scaleY
+		pTos	data
+		lst	temp[$3]
+		callk	kernel_92, $6
+		bnot
+code_079c:	ret
+
+Str::weigh:
+		link	$6
+		pushi	$4		; scaleX
+		push0
+		pTos	data
+		push2
+		pushi	$9		; inLeft
+		lsp	param[$1]
+		callk	kernel_91, $4
+		bnot
+		push
+		pushi	$ff		; 255, asInteger
+		callk	kernel_92, $8
+		bnot
+		ret
+
+Str::callKernel:
+		push0
+		&rest	$1
+		callk	kernel_92, $0
+		bnot
+code_07bc:	ret
+
+		push2
+		push1
+		push2
+		pushi	$9		; inLeft
+		lsp	param[$1]
+		callk	kernel_91, $4
+		bnot
+		push
+		callk	kernel_92, $4
+		bnot
+		ret
+
diff --git a/Script/Script60002.txt b/Script/Script60002.txt
new file mode 100644
index 0000000..84ae64e
--- /dev/null
+++ b/Script/Script60002.txt
@@ -0,0 +1,352 @@
+Array::new:
+		link	$1
+		pushSelf
+		class	Array
+		eq?
+		bnt	code_00c7
+		ldi	$0
+		ret
+
+code_00c7:	pushi	$8d		; 141, new
+		push0
+		super	Obj, $4
+		bnot
+		sat	temp[$0]
+		pushi	$71		; 113, 'q', data
+		push1
+		lap	param[$0]
+		bnt	code_00e5
+		pushi	$3		; z
+		push0
+		lsp	param[$1]
+		pTos	type
+		callk	kernel_91, $6
+		bnot
+		jmp	code_00fe
+
+code_00e5:	pToa	data
+		bnt	code_00f3
+		push2
+		pushi	$8		; fixPriority
+		push
+		callk	kernel_91, $4
+		bnot
+		jmp	code_00fe
+
+code_00f3:	pushi	$3		; z
+		push0
+		pushi	$a		; 10, inTop
+		pTos	type
+		callk	kernel_91, $6
+		bnot
+code_00fe:	push
+		lat	temp[$0]
+		send	$6
+		bnot
+		lat	temp[$0]
+		ret
+
+Array::with:
+		link	$1
+		pushi	$8d		; 141, new
+		push1
+		lsp	param[$0]
+		self	$6
+		bnot
+		sat	temp[$0]
+		pushi	$4b		; 75, 'K', at
+		push1
+		push0
+		&rest	$1
+		send	$6
+		bnot
+		lat	temp[$0]
+		ret
+
+Array::newWith:
+		link	$1
+		pushi	$8d		; 141, new
+		push1
+		push2
+		lsp	param[$0]
+		ldi	$1
+		sub
+		push
+		lsp	param[$1]
+		calle	export60025_3, $4
+		bnot
+		push
+		self	$6
+		bnot
+		sat	temp[$0]
+		pushi	$4b		; 75, 'K', at
+		push1
+		push0
+		&rest	$2
+		send	$6
+		bnot
+		lat	temp[$0]
+		ret
+
+Array::at:
+		lsp	param[$0]
+		ldi	$1
+		eq?
+		bnt	code_015b
+		pushi	$3		; z
+		push2
+		pTos	data
+		lsp	param[$1]
+		callk	kernel_91, $6
+		bnot
+		ret
+
+code_015b:	pushi	$3		; z
+		dup
+		pTos	data
+		lsp	param[$1]
+		&rest	$2
+		callk	kernel_91, $6
+		bnot
+		selfID
+		ret
+
+Array::copyToFrom:
+		pushi	$6		; maxScale
+		dup
+		pTos	data
+		lsp	param[$1]
+		push2
+		pushi	$9		; inLeft
+		lsp	param[$2]
+		callk	kernel_91, $4
+		bnot
+		push
+		lsp	param[$3]
+		lsp	param[$4]
+		callk	kernel_91, $c
+		bnot
+		selfID
+		ret
+
+Array::copy:
+		pushi	$96		; 150, isClass
+		push0
+		self	$4
+		bnot
+		bnt	code_01a0
+		pushi	$d3		; 211, copy
+		push1
+		lsp	param[$1]
+		pushi	$8d		; 141, new
+		push0
+		self	$4
+		bnot
+		send	$6
+		bnot
+		jmp	code_01b7
+
+code_01a0:	pushi	$d2		; 210, copyToFrom
+		pushi	$4		; scaleX
+		push0
+		push2
+		pushi	$9		; inLeft
+		lsp	param[$1]
+		callk	kernel_91, $4
+		bnot
+		push
+		push0
+		pushi	$ff		; 255, asInteger
+		self	$c
+		bnot
+code_01b7:	ret
+
+Array::move:
+		pushi	$d2		; 210, copyToFrom
+		pushi	$4		; scaleX
+		lsp	param[$1]
+		pushSelf
+		lsp	param[$2]
+		lsp	param[$3]
+		self	$c
+		bnot
+		ret
+
+Array::compToFrom:
+		pushi	$6		; maxScale
+		pushi	$7		; priority
+		pTos	data
+		lsp	param[$1]
+		push2
+		pushi	$9		; inLeft
+		lsp	param[$2]
+		callk	kernel_91, $4
+		bnot
+		push
+		lsp	param[$3]
+		lsp	param[$4]
+		callk	kernel_91, $c
+		bnot
+		not
+		ret
+
+Array::compare:
+		pushi	$5a		; 90, 'Z', size
+		push0
+		self	$4
+		bnot
+		push
+		push2
+		push1
+		push2
+		pushi	$9		; inLeft
+		lsp	param[$1]
+		callk	kernel_91, $4
+		bnot
+		push
+		callk	kernel_91, $4
+		bnot
+		ne?
+		bnt	code_0203
+		ldi	$0
+		jmp	code_021a
+
+code_0203:	pushi	$d4		; 212, compToFrom
+		pushi	$4		; scaleX
+		push0
+		push2
+		pushi	$9		; inLeft
+		lsp	param[$1]
+		callk	kernel_91, $4
+		bnot
+		push
+		push0
+		pushi	$ff		; 255, asInteger
+		self	$c
+		bnot
+code_021a:	ret
+
+Array::fill:
+		pushi	$5		; scaleY
+		dup
+		pTos	data
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$0]
+		ldi	$3		; z
+		eq?
+		bnt	code_022f
+		lap	param[$3]
+		jmp	code_0231
+
+code_022f:	ldi	$0
+code_0231:	push
+		callk	kernel_91, $a
+		bnot
+		ret
+
+Array::init:
+		pushi	$d6		; 214, fill
+		pushi	$3		; z
+		push0
+		pushi	$ff		; 255, asInteger
+		lap	param[$0]
+		bnt	code_0248
+		lap	param[$1]
+		jmp	code_024a
+
+code_0248:	ldi	$0
+code_024a:	push
+		self	$a
+		bnot
+		ret
+
+Array::size:
+		push2
+		push1
+		pTos	data
+		callk	kernel_91, $4
+		bnot
+		ret
+
+Array::dispose:
+		pToa	data
+		bnt	code_0264
+		push2
+		pushi	$4		; scaleX
+		push
+		callk	kernel_91, $4
+		bnot
+code_0264:	pushi	$95		; 149, dispose
+		push0
+		super	Obj, $4
+		bnot
+		ret
+
+Array::indexOf:
+		link	$2
+		pushi	$5a		; 90, 'Z', size
+		push0
+		self	$4
+		bnot
+		sat	temp[$1]
+		lsp	param[$0]
+		ldi	$1
+		gt?
+		bnt	code_02a4
+		lap	param[$2]
+		bnt	code_02a4
+		-at	temp[$1]
+		sat	temp[$0]
+code_0286:	lst	temp[$0]
+		ldi	$0
+		ge?
+		bnt	code_02c4
+		pushi	$4b		; 75, 'K', at
+		push1
+		lst	temp[$0]
+		self	$6
+		bnot
+		push
+		lap	param[$1]
+		eq?
+		bnt	code_029e
+		lat	temp[$0]
+		ret
+
+code_029e:	-at	temp[$0]
+		jmp	code_0286
+
+		jmp	code_02c4
+
+code_02a4:	ldi	$0
+		sat	temp[$0]
+code_02a8:	lst	temp[$0]
+		lat	temp[$1]
+		lt?
+		bnt	code_02c4
+		pushi	$4b		; 75, 'K', at
+		push1
+		lst	temp[$0]
+		self	$6
+		bnot
+		push
+		lap	param[$1]
+		eq?
+		bnt	code_02c0
+		lat	temp[$0]
+		ret
+
+code_02c0:	+at	temp[$0]
+		jmp	code_02a8
+
+code_02c4:	ldi	$ff		; 255, asInteger
+		ret
+
+Array::callKernel:
+		push0
+		&rest	$1
+		callk	kernel_91, $0
+		bnot
+		ret
+
diff --git a/Script/Script60003.txt b/Script/Script60003.txt
new file mode 100644
index 0000000..a1a14a2
--- /dev/null
+++ b/Script/Script60003.txt
@@ -0,0 +1,1184 @@
+Rect::with:
+		link	$1
+		pushi	$8d		; 141, new
+		push0
+		self	$4
+		bnot
+		sat	temp[$0]
+		pushi	$b5		; 181, set
+		push0
+		&rest	$1
+		send	$4
+		bnot
+		lat	temp[$0]
+		ret
+
+Rect::set:
+		lap	param[$1]
+		aTop	left
+		lap	param[$2]
+		aTop	top
+		lap	param[$3]
+		aTop	right
+		lap	param[$4]
+		aTop	bottom
+		selfID
+		ret
+
+Rect::init:
+		pushi	$b5		; 181, set
+		pushi	$4		; scaleX
+		push0
+		push0
+		push0
+		push0
+		self	$c
+		bnot
+		selfID
+		ret
+
+Rect::copy:
+		link	$1
+		pTos	-info-
+		ldi	$8000		; -32768
+		and
+		bnt	code_0105
+		pushi	$8d		; 141, new
+		push0
+		self	$4
+		bnot
+		sat	temp[$0]
+		jmp	code_0108
+
+code_0105:	selfID
+		sat	temp[$0]
+code_0108:	pushi	$b5		; 181, set
+		pushi	$4		; scaleX
+		pushi	$87		; 135, left
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		pushi	$89		; 137, top
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		pushi	$88		; 136, right
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		pushi	$8a		; 138, bottom
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		lat	temp[$0]
+		send	$c
+		bnot
+		ret
+
+Rect::moveTo:
+		pTos	bottom
+		lsp	param[$2]
+		pToa	top
+		sub
+		add
+		aTop	bottom
+		pTos	right
+		lsp	param[$1]
+		pToa	left
+		sub
+		add
+		aTop	right
+		lap	param[$2]
+		aTop	top
+		lap	param[$1]
+		aTop	left
+		selfID
+		ret
+
+Rect::posn:
+		pushi	$db		; 219, moveTo
+		push2
+		lsp	param[$1]
+		lsp	param[$2]
+		self	$8
+		bnot
+		ret
+
+Rect::moveBy:
+		pushi	$db		; 219, moveTo
+		push2
+		pTos	left
+		lap	param[$1]
+		add
+		push
+		pTos	top
+		lap	param[$2]
+		add
+		push
+		self	$8
+		bnot
+		ret
+
+Rect::center:
+		pushi	$de		; 222, centerIn
+		push1
+		lsp	param[$1]
+		self	$6
+		bnot
+		ret
+
+Rect::centerIn:
+		pushi	$db		; 219, moveTo
+		push2
+		pushi	$87		; 135, left
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		pushi	$4e		; 78, 'N', width
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		pushi	$4e		; 78, 'N', width
+		push0
+		self	$4
+		bnot
+		sub
+		push
+		ldi	$2
+		div
+		add
+		push
+		pushi	$89		; 137, top
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		pushi	$e1		; 225, height
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		pushi	$e1		; 225, height
+		push0
+		self	$4
+		bnot
+		sub
+		push
+		ldi	$2
+		div
+		add
+		push
+		self	$8
+		bnot
+		ret
+
+Rect::centerOn:
+		pushi	$db		; 219, moveTo
+		push2
+		lsp	param[$1]
+		pushi	$4e		; 78, 'N', width
+		push0
+		self	$4
+		bnot
+		push
+		ldi	$2
+		div
+		sub
+		push
+		lsp	param[$2]
+		pushi	$e1		; 225, height
+		push0
+		self	$4
+		bnot
+		push
+		ldi	$2
+		div
+		sub
+		push
+		self	$8
+		bnot
+		ret
+
+Rect::width:
+		lap	param[$0]
+		bnt	code_0202
+		pTos	left
+		lap	param[$1]
+		add
+		push
+		ldi	$1
+		sub
+		aTop	right
+code_0202:	pTos	right
+		pToa	left
+		sub
+		push
+		ldi	$1
+		add
+		ret
+
+Rect::widen:
+		pTos	right
+		lap	param[$1]
+		add
+		aTop	right
+		pushi	$4e		; 78, 'N', width
+		push0
+		self	$4
+		bnot
+		ret
+
+Rect::height:
+		lap	param[$0]
+		bnt	code_0229
+		pTos	top
+		lap	param[$1]
+		add
+		push
+		ldi	$1
+		sub
+		aTop	bottom
+code_0229:	pTos	bottom
+		pToa	top
+		sub
+		push
+		ldi	$1
+		add
+		ret
+
+Rect::heighten:
+		pTos	bottom
+		lap	param[$1]
+		add
+		aTop	bottom
+		pushi	$e1		; 225, height
+		push0
+		self	$4
+		bnot
+		ret
+
+Rect::expand:
+		pTos	top
+		lap	param[$2]
+		sub
+		aTop	top
+		pTos	bottom
+		lap	param[$2]
+		add
+		aTop	bottom
+		pTos	left
+		lap	param[$1]
+		sub
+		aTop	left
+		pTos	right
+		lap	param[$1]
+		add
+		aTop	right
+		selfID
+		ret
+
+Rect::contract:
+		pushi	$e3		; 227, expand
+		push2
+		lap	param[$1]
+		neg
+		push
+		lap	param[$2]
+		neg
+		push
+		self	$8
+		bnot
+		ret
+
+Rect::contains:
+		lsp	param[$0]
+		ldi	$2
+		eq?
+		bnt	code_0293
+		pTos	top
+		lap	param[$2]
+		le?
+		bnt	code_02fa
+		pprev
+		pToa	bottom
+		le?
+		bnt	code_02fa
+		pTos	left
+		lap	param[$1]
+		le?
+		bnt	code_02fa
+		pprev
+		pToa	right
+		le?
+		jmp	code_02fa
+
+code_0293:	pushi	$99		; 153, respondsTo
+		push1
+		push1
+		lap	param[$1]
+		send	$6
+		bnot
+		bnt	code_02c4
+		pushi	$99		; 153, respondsTo
+		push1
+		push2
+		lap	param[$1]
+		send	$6
+		bnot
+		bnt	code_02c4
+		pushi	$a3		; 163, contains
+		push2
+		push1
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		push2
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		self	$8
+		bnot
+		jmp	code_02fa
+
+code_02c4:	pTos	top
+		pushi	$89		; 137, top
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		le?
+		bnt	code_02fa
+		pTos	bottom
+		pushi	$8a		; 138, bottom
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		ge?
+		bnt	code_02fa
+		pTos	left
+		pushi	$87		; 135, left
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		le?
+		bnt	code_02fa
+		pTos	right
+		pushi	$88		; 136, right
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		ge?
+code_02fa:	ret
+
+Rect::intersects:
+		pushi	$88		; 136, right
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		pToa	left
+		lt?
+		bt	code_0335
+		pushi	$8a		; 138, bottom
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		pToa	top
+		lt?
+		bt	code_0335
+		pushi	$87		; 135, left
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		pToa	right
+		gt?
+		bt	code_0335
+		pushi	$89		; 137, top
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		pToa	bottom
+		gt?
+code_0335:	not
+		ret
+
+Rect::intersection:
+		pushi	$e8		; 232, intersects
+		push1
+		lsp	param[$1]
+		self	$6
+		bnot
+		bnt	code_039c
+		push2
+		pTos	top
+		pushi	$89		; 137, top
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		calle	export60025_3, $4
+		bnot
+		aTop	top
+		push2
+		pTos	left
+		pushi	$87		; 135, left
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		calle	export60025_3, $4
+		bnot
+		aTop	left
+		push2
+		pTos	bottom
+		pushi	$8a		; 138, bottom
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		calle	export60025_2, $4
+		bnot
+		aTop	bottom
+		push2
+		pTos	right
+		pushi	$88		; 136, right
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		calle	export60025_2, $4
+		bnot
+		aTop	right
+		jmp	code_03a3
+
+code_039c:	pushi	$94		; 148, init
+		push0
+		self	$4
+		bnot
+code_03a3:	selfID
+		ret
+
+Rect::union:
+		push2
+		pTos	top
+		pushi	$89		; 137, top
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		calle	export60025_2, $4
+		bnot
+		aTop	top
+		push2
+		pTos	left
+		pushi	$87		; 135, left
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		calle	export60025_2, $4
+		bnot
+		aTop	left
+		push2
+		pTos	bottom
+		pushi	$8a		; 138, bottom
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		calle	export60025_3, $4
+		bnot
+		aTop	bottom
+		push2
+		pTos	right
+		pushi	$88		; 136, right
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		calle	export60025_3, $4
+		bnot
+		aTop	right
+		selfID
+		ret
+
+Rect::isEmpty:
+		pTos	top
+		pToa	bottom
+		eq?
+		bnt	code_040b
+		pTos	left
+		pToa	right
+		eq?
+code_040b:	ret
+
+Rect::sizeToStr:
+		link	$4
+		pToa	top
+		sat	temp[$0]
+		pToa	left
+		sat	temp[$1]
+		push2
+		pushi	$9		; inLeft
+		lsp	param[$1]
+		callk	kernel_91, $4
+		bnot
+		sat	temp[$3]
+		push2
+		push1
+		push
+		callk	kernel_92, $4
+		bnot
+		bnt	code_049a
+		pushi	$8d		; 141, new
+		push1
+		pushi	$4		; scaleX
+		class	IntArray
+		send	$6
+		bnot
+		sat	temp[$2]
+		pushi	$3		; z
+		push0
+		pushi	$71		; 113, 'q', data
+		push0
+		send	$4
+		bnot
+		push
+		push2
+		pushi	$9		; inLeft
+		lsp	param[$1]
+		callk	kernel_91, $4
+		bnot
+		push
+		&rest	$2
+		callk	kernel_70, $6
+		bnot
+		pushi	$b5		; 181, set
+		pushi	$4		; scaleX
+		pushi	$4b		; 75, 'K', at
+		push1
+		push0
+		lat	temp[$2]
+		send	$6
+		bnot
+		push
+		pushi	$4b		; 75, 'K', at
+		push1
+		push1
+		lat	temp[$2]
+		send	$6
+		bnot
+		push
+		pushi	$4b		; 75, 'K', at
+		push1
+		push2
+		lat	temp[$2]
+		send	$6
+		bnot
+		push
+		pushi	$4b		; 75, 'K', at
+		push1
+		pushi	$3		; z
+		lat	temp[$2]
+		send	$6
+		bnot
+		push
+		self	$c
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$2]
+		send	$4
+		bnot
+		pushi	$db		; 219, moveTo
+		push2
+		lst	temp[$1]
+		lst	temp[$0]
+		self	$8
+		bnot
+		jmp	code_04af
+
+code_049a:	pushi	$b5		; 181, set
+		pushi	$4		; scaleX
+		push0
+		push0
+		push1
+		push1
+		pushi	$db		; 219, moveTo
+		push2
+		lst	temp[$1]
+		lst	temp[$0]
+		self	$14
+		bnot
+code_04af:	selfID
+		ret
+
+Rect::sizeToCel:
+		pTos	top
+		push0
+		&rest	$1
+		callk	kernel_29, $0
+		bnot
+		add
+		aTop	bottom
+		pTos	left
+		push0
+		&rest	$1
+		callk	kernel_28, $0
+		bnot
+		add
+		aTop	right
+		selfID
+		ret
+
+Rect::celRect:
+		link	$1
+		pushSelf
+		class	Rect
+		eq?
+		bnt	code_04dc
+		pushi	$8d		; 141, new
+		push0
+		self	$4
+		bnot
+		jmp	code_04dd
+
+code_04dc:	selfID
+code_04dd:	sat	temp[$0]
+		push1
+		push
+		&rest	$1
+		callk	kernel_26, $2
+		bnot
+		lat	temp[$0]
+		ret
+
+Rect::howFar:
+		link	$4
+		pushi	$ea		; 234, midPoint
+		push1
+		push1
+		self	$6
+		bnot
+		sat	temp[$2]
+		pushi	$ea		; 234, midPoint
+		push1
+		push2
+		self	$6
+		bnot
+		sat	temp[$3]
+		lap	param[$0]
+		not
+		bnt	code_0509
+		ldi	$0
+		jmp	code_0532
+
+code_0509:	lsp	param[$0]
+		ldi	$1
+		eq?
+		bnt	code_052a
+		pushi	$ea		; 234, midPoint
+		push1
+		push1
+		lap	param[$1]
+		send	$6
+		bnot
+		sat	temp[$0]
+		pushi	$ea		; 234, midPoint
+		push1
+		push2
+		lap	param[$1]
+		send	$6
+		bnot
+		sat	temp[$1]
+		jmp	code_0532
+
+code_052a:	lap	param[$1]
+		sat	temp[$0]
+		lap	param[$2]
+		sat	temp[$1]
+code_0532:	pushi	$4		; scaleX
+		lst	temp[$2]
+		lst	temp[$3]
+		lst	temp[$0]
+		lst	temp[$1]
+		callk	kernel_64, $8
+		bnot
+		ret
+
+Rect::midPoint:
+		lsp	param[$1]
+		dup
+		ldi	$1
+		eq?
+		bnt	code_0554
+		pTos	left
+		pToa	right
+		add
+		push
+		ldi	$2
+		div
+		jmp	code_058a
+
+code_0554:	dup
+		ldi	$4e		; 78, 'N', width
+		eq?
+		bnt	code_0565
+		pTos	right
+		pToa	left
+		sub
+		push
+		ldi	$2
+		div
+		jmp	code_058a
+
+code_0565:	dup
+		ldi	$2
+		eq?
+		bnt	code_0576
+		pTos	top
+		pToa	bottom
+		add
+		push
+		ldi	$2
+		div
+		jmp	code_058a
+
+code_0576:	dup
+		ldi	$e1		; 225, height
+		eq?
+		bnt	code_0588
+		pTos	bottom
+		pToa	top
+		sub
+		push
+		ldi	$2
+		div
+		jmp	code_058a
+
+code_0588:	ldi	$0
+code_058a:	toss
+		ret
+
+Rect::handleEvent:
+		pushi	$2b		; 43, '+', type
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		ldi	$1
+		eq?
+		bnt	code_05c0
+		pushi	$eb		; 235, onMe
+		push1
+		lsp	param[$1]
+		self	$6
+		bnot
+		bnt	code_05c0
+		pushi	$48		; 72, 'H', modifiers
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		ldi	$3		; z
+		and
+		bnt	code_05c0
+		pToa	canDrag
+		bnt	code_05c0
+		pushi	$ee		; 238, drag
+		push1
+		lsp	param[$1]
+		self	$6
+		bnot
+code_05c0:	ldi	$0
+		ret
+
+Rect::onMe:
+		link	$2
+		lsp	param[$0]
+		ldi	$1
+		eq?
+		bnt	code_05e0
+		push1
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		sat	temp[$0]
+		push2
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		sat	temp[$1]
+		jmp	code_05e8
+
+code_05e0:	lap	param[$1]
+		sat	temp[$0]
+		lap	param[$2]
+		sat	temp[$1]
+code_05e8:	pTos	left
+		lat	temp[$0]
+		le?
+		bnt	code_0600
+		pprev
+		pToa	right
+		le?
+		bnt	code_0600
+		pTos	top
+		lat	temp[$1]
+		le?
+		bnt	code_0600
+		pprev
+		pToa	bottom
+		le?
+code_0600:	ret
+
+Rect::track:
+		link	$2
+		pToa	canTrack
+		not
+		bnt	code_060b
+		ldi	$0
+		ret
+
+code_060b:	pushi	$99		; 153, respondsTo
+		push1
+		push0
+		self	$6
+		bnot
+		bnt	code_062d
+		push2
+		pushSelf
+		push0
+		calle	export60025_5, $4
+		bnot
+		bnt	code_062d
+		push2
+		pushSelf
+		push0
+		calle	export60025_5, $4
+		bnot
+		jmp	code_063b
+
+code_062d:	push0
+		push0
+		pushi	$f2		; 242, pCast
+		push0
+		lag	global[$3]
+		send	$4
+		bnot
+		send	$4
+		bnot
+code_063b:	sat	temp[$1]
+code_063d:	pushi	$f3		; 243, nextEvent
+		push1
+		pushi	$3ff		; 1023, pQuickness
+		lag	global[$e]
+		send	$6
+		bnot
+		sat	temp[$0]
+		bnt	code_0678
+		push2
+		pushi	$2b		; 43, '+', type
+		push0
+		send	$4
+		bnot
+		ne?
+		bnt	code_0678
+		pushi	$b9		; 185, localize
+		push1
+		lst	temp[$1]
+		lat	temp[$0]
+		send	$6
+		bnot
+		pushi	$ed		; 237, trackDoit
+		push1
+		lst	temp[$0]
+		self	$6
+		bnot
+		lag	global[$28]
+		bnt	code_063d
+		pushi	$45		; 69, 'E', doit
+		push1
+		push1
+		send	$6
+		bnot
+		jmp	code_063d
+
+code_0678:	pushi	$b9		; 185, localize
+		push1
+		lst	temp[$1]
+		lat	temp[$0]
+		send	$6
+		bnot
+		pushi	$a3		; 163, contains
+		push1
+		lst	temp[$0]
+		self	$6
+		bnot
+		ret
+
+Rect::trackDoit:
+		lap	param[$1]
+		sap	param[$1]
+		ret
+
+Rect::drag:
+		link	$6
+		pToa	canDrag
+		not
+		bnt	code_069c
+		ldi	$0
+		ret
+
+code_069c:	push1
+		push0
+		pushi	$f4		; 244, curEvent
+		push0
+		lag	global[$e]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		sat	temp[$1]
+		push2
+		push0
+		pushi	$f4		; 244, curEvent
+		push0
+		lag	global[$e]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		sat	temp[$2]
+		pTos	left
+		lat	temp[$1]
+		sub
+		sat	temp[$3]
+		pTos	top
+		lat	temp[$2]
+		sub
+		sat	temp[$4]
+		pushi	$99		; 153, respondsTo
+		push1
+		push0
+		self	$6
+		bnot
+		bnt	code_06ec
+		push2
+		pushSelf
+		push0
+		calle	export60025_5, $4
+		bnot
+		bnt	code_06ec
+		push2
+		pushSelf
+		push0
+		calle	export60025_5, $4
+		bnot
+		jmp	code_06fa
+
+code_06ec:	push0
+		push0
+		pushi	$f2		; 242, pCast
+		push0
+		lag	global[$3]
+		send	$4
+		bnot
+		send	$4
+		bnot
+code_06fa:	sat	temp[$5]
+code_06fc:	pushi	$f3		; 243, nextEvent
+		push1
+		pushi	$3ff		; 1023, pQuickness
+		lag	global[$e]
+		send	$6
+		bnot
+		sat	temp[$0]
+		bnt	code_0794
+		pushi	$2b		; 43, '+', type
+		push0
+		send	$4
+		bnot
+		push
+		ldi	$2
+		ne?
+		bnt	code_0794
+		lst	temp[$1]
+		push1
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		ne?
+		bt	code_0730
+		lst	temp[$2]
+		push2
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		ne?
+code_0730:	bnt	code_0785
+		pushi	$b9		; 185, localize
+		push1
+		lst	temp[$5]
+		lat	temp[$0]
+		send	$6
+		bnot
+		push1
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		sat	temp[$1]
+		push2
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		sat	temp[$2]
+		push1
+		push1
+		push1
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		push
+		lat	temp[$3]
+		add
+		push
+		push2
+		push1
+		push2
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		push
+		lat	temp[$4]
+		add
+		push
+		lat	temp[$0]
+		send	$c
+		bnot
+		pushi	$ef		; 239, dragDoit
+		pushi	$3		; z
+		lst	temp[$0]
+		lst	temp[$3]
+		lst	temp[$4]
+		self	$a
+		bnot
+		push0
+		callk	kernel_33, $0
+		bnot
+code_0785:	lag	global[$28]
+		bnt	code_06fc
+		pushi	$45		; 69, 'E', doit
+		push1
+		push1
+		send	$6
+		bnot
+		jmp	code_06fc
+
+code_0794:	pushi	$b9		; 185, localize
+		push1
+		lst	temp[$5]
+		lat	temp[$0]
+		send	$6
+		bnot
+		pushi	$50		; 80, 'P', claimed
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		ret
+
+Rect::dragDoit:
+		lap	param[$1]
+		sap	param[$1]
+		ret
+
+Rect::drawSelected:
+		ldi	$0
+		ret
+
+Rect::scale:
+		link	$1
+		pushi	$4e		; 78, 'N', width
+		lap	param[$1]
+		mul
+		push
+		ldi	$64		; 100, 'd', moveDone
+		div
+		sat	temp[$0]
+		push
+		pToa	top
+		mul
+		push
+		ldi	$64		; 100, 'd', moveDone
+		div
+		aTop	top
+		lst	temp[$0]
+		pToa	left
+		mul
+		push
+		ldi	$64		; 100, 'd', moveDone
+		div
+		aTop	left
+		lst	temp[$0]
+		pToa	bottom
+		mul
+		push
+		ldi	$64		; 100, 'd', moveDone
+		div
+		aTop	bottom
+		lst	temp[$0]
+		pToa	right
+		mul
+		push
+		ldi	$64		; 100, 'd', moveDone
+		div
+		aTop	right
+		ret
+