diff --git a/Script/Script60100.txt b/Script/Script60100.txt
new file mode 100644
index 0000000..9335cd4
--- /dev/null
+++ b/Script/Script60100.txt
@@ -0,0 +1,1223 @@
+export60100_0	= IsInPoly
+export60100_1	= FindClosestPoint
+export60100_2	= FindClippedPoint
+export60100_3	= FindInsideClippedPoint
+
+Line::new:
+		link	$1
+		pushi	$8d		; 141, new
+		push0
+		super	Obj, $4
+		bnot
+		sat	temp[$0]
+		lap	param[$0]
+		bnt	code_0099
+		pushi	$94		; 148, init
+		push0
+		&rest	$1
+		lat	temp[$0]
+		send	$4
+		bnot
+code_0099:	lat	temp[$0]
+		ret
+
+Line::init:
+		lap	param[$1]
+		aTop	pX1
+		lap	param[$3]
+		aTop	pX2
+		lap	param[$2]
+		aTop	pY1
+		lap	param[$4]
+		aTop	pY2
+		pushi	$94		; 148, init
+		push0
+		&rest	$5		; scaleY
+		super	Obj, $4
+		bnot
+		ret
+
+Line::basicClip:
+		pTos	pX1
+		pushi	$88		; 136, right
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		gt?
+		bnt	code_00d0
+		pushi	$88		; 136, right
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		aTop	pX1
+code_00d0:	pTos	pX2
+		pushi	$88		; 136, right
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		gt?
+		bnt	code_00e9
+		pushi	$88		; 136, right
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		aTop	pX2
+code_00e9:	pTos	pY1
+		pushi	$8a		; 138, bottom
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		gt?
+		bnt	code_0102
+		pushi	$8a		; 138, bottom
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		aTop	pY1
+code_0102:	pTos	pY2
+		pushi	$8a		; 138, bottom
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		gt?
+		bnt	code_011b
+		pushi	$8a		; 138, bottom
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		aTop	pY2
+code_011b:	pTos	pX1
+		pushi	$87		; 135, left
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		lt?
+		bnt	code_0134
+		pushi	$87		; 135, left
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		aTop	pX1
+code_0134:	pTos	pX2
+		pushi	$87		; 135, left
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		lt?
+		bnt	code_014d
+		pushi	$87		; 135, left
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		aTop	pX2
+code_014d:	pTos	pY1
+		pushi	$89		; 137, top
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		lt?
+		bnt	code_0166
+		pushi	$89		; 137, top
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		aTop	pY1
+code_0166:	pTos	pY2
+		pushi	$89		; 137, top
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		lt?
+		bnt	code_017f
+		pushi	$89		; 137, top
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		aTop	pY2
+code_017f:	ret
+
+Line::clip:
+		link	$d
+		pushi	$8d		; 141, new
+		push0
+		class	LongInt
+		send	$4
+		bnot
+		sat	temp[$9]
+		pushi	$8d		; 141, new
+		push0
+		class	LongInt
+		send	$4
+		bnot
+		sat	temp[$a]
+		ldi	$0
+		sat	temp[$0]
+		ldi	$0
+		sat	temp[$1]
+		ldi	$0
+		sat	temp[$c]
+		pushi	$87		; 135, left
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		sat	temp[$2]
+		pushi	$88		; 136, right
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		sat	temp[$3]
+		pushi	$89		; 137, top
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		sat	temp[$4]
+		pushi	$8a		; 138, bottom
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		sat	temp[$5]
+		pushi	$45		; 69, 'E', doit
+		pushi	$6		; maxScale
+		pTos	pX1
+		pTos	pY1
+		lst	temp[$4]
+		lst	temp[$2]
+		push
+		lst	temp[$3]
+		lofsa	SetOutCode
+		send	$10
+		bnot
+		sat	temp[$0]
+		pushi	$45		; 69, 'E', doit
+		pushi	$6		; maxScale
+		pTos	pX2
+		pTos	pY2
+		lst	temp[$4]
+		lst	temp[$2]
+		lst	temp[$5]
+		lst	temp[$3]
+		lofsa	SetOutCode
+		send	$10
+		bnot
+		sat	temp[$1]
+		lst	temp[$0]
+		or
+		push
+		ldi	$0
+		eq?
+		sat	temp[$6]
+		lst	temp[$0]
+		lat	temp[$1]
+		and
+		push
+		ldi	$0
+		ne?
+		sat	temp[$7]
+code_0215:	lat	temp[$7]
+		not
+		bnt	code_0406
+		lat	temp[$6]
+		not
+		bnt	code_0406
+		lat	temp[$0]
+		not
+		bnt	code_0251
+		lst	temp[$c]
+		ldi	$1
+		xor
+		sat	temp[$c]
+		pToa	pX1
+		sat	temp[$8]
+		pToa	pX2
+		aTop	pX1
+		lat	temp[$8]
+		aTop	pX2
+		pToa	pY1
+		sat	temp[$8]
+		pToa	pY2
+		aTop	pY1
+		lat	temp[$8]
+		aTop	pY2
+		lat	temp[$0]
+		sat	temp[$8]
+		lat	temp[$1]
+		sat	temp[$0]
+		lat	temp[$8]
+		sat	temp[$1]
+code_0251:	lst	temp[$0]
+		ldi	$1
+		and
+		bnt	code_02b3
+		pushi	$b5		; 181, set
+		push1
+		pTos	pY2
+		lat	temp[$9]
+		send	$6
+		bnot
+		pushi	$111		; 273, sub
+		push1
+		pTos	pY1
+		lat	temp[$9]
+		send	$6
+		bnot
+		pushi	$b5		; 181, set
+		push1
+		lst	temp[$2]
+		lat	temp[$a]
+		send	$6
+		bnot
+		pushi	$111		; 273, sub
+		push1
+		pTos	pX1
+		lat	temp[$a]
+		send	$6
+		bnot
+		pushi	$114		; 276, mulLong
+		push1
+		lst	temp[$a]
+		lat	temp[$9]
+		send	$6
+		bnot
+		pushi	$115		; 277, div
+		push1
+		pTos	pX2
+		pToa	pX1
+		sub
+		push
+		lat	temp[$9]
+		send	$6
+		bnot
+		pTos	pY1
+		pushi	$10d		; 269, lowWord
+		push0
+		lat	temp[$9]
+		send	$4
+		bnot
+		add
+		aTop	pY1
+		lat	temp[$2]
+		aTop	pX1
+		jmp	code_03d5
+
+code_02b3:	lst	temp[$0]
+		ldi	$2
+		and
+		bnt	code_0315
+		pushi	$b5		; 181, set
+		push1
+		pTos	pX2
+		lat	temp[$9]
+		send	$6
+		bnot
+		pushi	$111		; 273, sub
+		push1
+		pTos	pX1
+		lat	temp[$9]
+		send	$6
+		bnot
+		pushi	$b5		; 181, set
+		push1
+		lst	temp[$4]
+		lat	temp[$a]
+		send	$6
+		bnot
+		pushi	$111		; 273, sub
+		push1
+		pTos	pY1
+		lat	temp[$a]
+		send	$6
+		bnot
+		pushi	$114		; 276, mulLong
+		push1
+		lst	temp[$a]
+		lat	temp[$9]
+		send	$6
+		bnot
+		pushi	$115		; 277, div
+		push1
+		pTos	pY2
+		pToa	pY1
+		sub
+		push
+		lat	temp[$9]
+		send	$6
+		bnot
+		pTos	pX1
+		pushi	$10d		; 269, lowWord
+		push0
+		lat	temp[$9]
+		send	$4
+		bnot
+		add
+		aTop	pX1
+		lat	temp[$4]
+		aTop	pY1
+		jmp	code_03d5
+
+code_0315:	lst	temp[$0]
+		ldi	$4		; scaleX
+		and
+		bnt	code_0376
+		pushi	$b5		; 181, set
+		push1
+		pTos	pY2
+		lat	temp[$9]
+		send	$6
+		bnot
+		pushi	$111		; 273, sub
+		push1
+		pTos	pY1
+		lat	temp[$9]
+		send	$6
+		bnot
+		pushi	$b5		; 181, set
+		push1
+		lst	temp[$3]
+		lat	temp[$a]
+		send	$6
+		bnot
+		pushi	$111		; 273, sub
+		push1
+		pTos	pX1
+		lat	temp[$a]
+		send	$6
+		bnot
+		pushi	$114		; 276, mulLong
+		push1
+		lst	temp[$a]
+		lat	temp[$9]
+		send	$6
+		bnot
+		pushi	$115		; 277, div
+		push1
+		pTos	pX2
+		pToa	pX1
+		sub
+		push
+		lat	temp[$9]
+		send	$6
+		bnot
+		pTos	pY1
+		pushi	$10d		; 269, lowWord
+		push0
+		lat	temp[$9]
+		send	$4
+		bnot
+		add
+		aTop	pY1
+		lat	temp[$3]
+		aTop	pX1
+		jmp	code_03d5
+
+code_0376:	lst	temp[$0]
+		ldi	$8		; fixPriority
+		and
+		bnt	code_03d5
+		pushi	$b5		; 181, set
+		push1
+		pTos	pX2
+		lat	temp[$9]
+		send	$6
+		bnot
+		pushi	$111		; 273, sub
+		push1
+		pTos	pX1
+		lat	temp[$9]
+		send	$6
+		bnot
+		pushi	$b5		; 181, set
+		push1
+		lst	temp[$5]
+		lat	temp[$a]
+		send	$6
+		bnot
+		pushi	$111		; 273, sub
+		push1
+		pTos	pY1
+		lat	temp[$a]
+		send	$6
+		bnot
+		pushi	$114		; 276, mulLong
+		push1
+		lst	temp[$a]
+		lat	temp[$9]
+		send	$6
+		bnot
+		pushi	$115		; 277, div
+		push1
+		pTos	pY2
+		pToa	pY1
+		sub
+		push
+		lat	temp[$9]
+		send	$6
+		bnot
+		pTos	pX1
+		pushi	$10d		; 269, lowWord
+		push0
+		lat	temp[$9]
+		send	$4
+		bnot
+		add
+		aTop	pX1
+		lat	temp[$5]
+		aTop	pY1
+code_03d5:	pushi	$45		; 69, 'E', doit
+		pushi	$6		; maxScale
+		pTos	pX1
+		pTos	pY1
+		lst	temp[$4]
+		lst	temp[$2]
+		lst	temp[$5]
+		lst	temp[$3]
+		lofsa	SetOutCode
+		send	$10
+		bnot
+		sat	temp[$0]
+		push
+		lat	temp[$1]
+		or
+		push
+		ldi	$0
+		eq?
+		sat	temp[$6]
+		lst	temp[$0]
+		lat	temp[$1]
+		and
+		push
+		ldi	$0
+		ne?
+		sat	temp[$7]
+		jmp	code_0215
+
+code_0406:	lat	temp[$c]
+		bnt	code_042e
+		pToa	pX1
+		sat	temp[$8]
+		pToa	pX2
+		aTop	pX1
+		lat	temp[$8]
+		aTop	pX2
+		pToa	pY1
+		sat	temp[$8]
+		pToa	pY2
+		aTop	pY1
+		lat	temp[$8]
+		aTop	pY2
+		lat	temp[$0]
+		sat	temp[$8]
+		lat	temp[$1]
+		sat	temp[$0]
+		lat	temp[$8]
+		sat	temp[$1]
+code_042e:	pushi	$95		; 149, dispose
+		push0
+		lat	temp[$9]
+		send	$4
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$a]
+		send	$4
+		bnot
+		lat	temp[$6]
+		ret
+
+SetOutCode::doit:
+		link	$1
+		ldi	$0
+		sat	temp[$0]
+		lsp	param[$1]
+		lap	param[$4]
+		lt?
+		bnt	code_0457
+		lst	temp[$0]
+		ldi	$1
+		or
+		sat	temp[$0]
+code_0457:	lsp	param[$2]
+		lap	param[$3]
+		lt?
+		bnt	code_0465
+		lst	temp[$0]
+		ldi	$2
+		or
+		sat	temp[$0]
+code_0465:	lsp	param[$1]
+		lap	param[$6]
+		gt?
+		bnt	code_0473
+		lst	temp[$0]
+		ldi	$4		; scaleX
+		or
+		sat	temp[$0]
+code_0473:	lsp	param[$2]
+		lap	param[$5]
+		gt?
+		bnt	code_0481
+		lst	temp[$0]
+		ldi	$8		; fixPriority
+		or
+		sat	temp[$0]
+code_0481:	lat	temp[$0]
+		ret
+
+IsInPoly::doit:
+		link	$3
+		pushi	$c5		; 197, pRoom
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		bnt	code_0503
+		pushi	$16d		; 365, obstacles
+		push0
+		pushi	$c5		; 197, pRoom
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		bnt	code_0503
+		pushi	$5a		; 90, 'Z', size
+		push0
+		pushi	$16d		; 365, obstacles
+		push0
+		pushi	$c5		; 197, pRoom
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		send	$4
+		bnot
+		sat	temp[$0]
+		ldi	$0
+		sat	temp[$2]
+code_04c0:	lst	temp[$2]
+		lat	temp[$0]
+		lt?
+		bnt	code_0503
+		pushi	$4b		; 75, 'K', at
+		push1
+		lst	temp[$2]
+		pushi	$16d		; 365, obstacles
+		push0
+		pushi	$c5		; 197, pRoom
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		send	$6
+		bnot
+		sat	temp[$1]
+		pushi	$2b		; 43, '+', type
+		push0
+		send	$4
+		bnot
+		push
+		ldi	$4		; scaleX
+		lt?
+		bnt	code_04ff
+		pushi	$eb		; 235, onMe
+		push2
+		lsp	param[$1]
+		lsp	param[$2]
+		lat	temp[$1]
+		send	$8
+		bnot
+		bnt	code_04ff
+		lat	temp[$1]
+		ret
+
+code_04ff:	+at	temp[$2]
+		jmp	code_04c0
+
+code_0503:	ldi	$0
+		ret
+
+FindClosestPoint::doit:
+		link	$8
+		lsp	param[$0]
+		ldi	$5		; scaleY
+		gt?
+		bnt	code_0515
+		lap	param[$6]
+		sat	temp[$0]
+		jmp	code_0520
+
+code_0515:	pushi	$8d		; 141, new
+		push0
+		class	Point
+		send	$4
+		bnot
+		sat	temp[$0]
+code_0520:	lsp	param[$0]
+		ldi	$4		; scaleX
+		gt?
+		bnt	code_052d
+		lap	param[$5]
+		sat	temp[$7]
+		jmp	code_0531
+
+code_052d:	ldi	$3		; z
+		sat	temp[$7]
+code_0531:	pushi	$9		; inLeft
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		lsp	param[$4]
+		pushi	$16d		; 365, obstacles
+		push0
+		pushi	$c5		; 197, pRoom
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		push
+		pushi	$4e		; 78, 'N', width
+		push0
+		push0
+		push0
+		pushi	$c5		; 197, pRoom
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		send	$4
+		bnot
+		push
+		pushi	$e1		; 225, height
+		push0
+		push0
+		push0
+		pushi	$c5		; 197, pRoom
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		send	$4
+		bnot
+		push
+		push1
+		lst	temp[$7]
+		callk	kernel_100, $12
+		bnot
+		sat	temp[$1]
+		push2
+		push1
+		push
+		callk	kernel_91, $4
+		bnot
+		sat	temp[$2]
+		ldi	$0
+		sat	temp[$4]
+code_058d:	ldi	$1
+		bnt	code_05bf
+		pushi	$3		; z
+		push2
+		lst	temp[$1]
+		lst	temp[$4]
+		callk	kernel_91, $6
+		bnot
+		sat	temp[$3]
+		push
+		ldi	$7777		; 30583
+		ne?
+		bnt	code_05bf
+		lat	temp[$3]
+		sat	temp[$5]
+		pushi	$3		; z
+		push2
+		lst	temp[$1]
+		+at	temp[$4]
+		push
+		callk	kernel_91, $6
+		bnot
+		sat	temp[$6]
+		+at	temp[$4]
+		jmp	code_058d
+
+		jmp	code_05bf
+
+		jmp	code_058d
+
+code_05bf:	push1
+		push1
+		lst	temp[$5]
+		lat	temp[$0]
+		send	$6
+		bnot
+		push2
+		push1
+		lst	temp[$6]
+		lat	temp[$0]
+		send	$6
+		bnot
+		push2
+		pushi	$4		; scaleX
+		lst	temp[$1]
+		callk	kernel_91, $4
+		bnot
+		lat	temp[$0]
+		ret
+
+FindClippedPoint::doit:
+		link	$b
+		lsp	param[$0]
+		ldi	$5		; scaleY
+		gt?
+		bnt	code_05ec
+		lap	param[$6]
+		sat	temp[$a]
+		jmp	code_05f0
+
+code_05ec:	ldi	$3		; z
+		sat	temp[$a]
+code_05f0:	lsp	param[$0]
+		ldi	$6		; maxScale
+		gt?
+		bnt	code_05fd
+		lap	param[$7]
+		sat	temp[$0]
+		jmp	code_0608
+
+code_05fd:	pushi	$8d		; 141, new
+		push0
+		class	Point
+		send	$4
+		bnot
+		sat	temp[$0]
+code_0608:	push1
+		push1
+		lsp	param[$1]
+		push2
+		push1
+		lsp	param[$2]
+		lat	temp[$0]
+		send	$c
+		bnot
+		pushi	$9		; inLeft
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		lsp	param[$4]
+		pushi	$16d		; 365, obstacles
+		push0
+		pushi	$c5		; 197, pRoom
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		push
+		pushi	$4e		; 78, 'N', width
+		push0
+		push0
+		push0
+		pushi	$c5		; 197, pRoom
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		send	$4
+		bnot
+		push
+		pushi	$e1		; 225, height
+		push0
+		push0
+		push0
+		pushi	$c5		; 197, pRoom
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		send	$4
+		bnot
+		push
+		push1
+		lst	temp[$a]
+		callk	kernel_100, $12
+		bnot
+		sat	temp[$1]
+		push2
+		push1
+		push
+		callk	kernel_91, $4
+		bnot
+		sat	temp[$2]
+		ldi	$0
+		sat	temp[$4]
+		pushi	$3		; z
+		push2
+		lst	temp[$1]
+		push
+		callk	kernel_91, $6
+		bnot
+		sat	temp[$5]
+		pushi	$3		; z
+		push2
+		lst	temp[$1]
+		lst	temp[$4]
+		ldi	$1
+		add
+		push
+		callk	kernel_91, $6
+		bnot
+		sat	temp[$6]
+		lst	temp[$4]
+		ldi	$2
+		add
+		sat	temp[$4]
+code_0695:	ldi	$1
+		bnt	code_0758
+		pushi	$3		; z
+		push2
+		lst	temp[$1]
+		lst	temp[$4]
+		callk	kernel_91, $6
+		bnot
+		sat	temp[$3]
+		push
+		ldi	$7777		; 30583
+		ne?
+		bnt	code_0758
+		lat	temp[$3]
+		sat	temp[$7]
+		pushi	$3		; z
+		push2
+		lst	temp[$1]
+		lst	temp[$4]
+		ldi	$1
+		add
+		push
+		callk	kernel_91, $6
+		bnot
+		sat	temp[$8]
+		lst	temp[$4]
+		ldi	$2
+		add
+		sat	temp[$4]
+		lst	temp[$7]
+		pushi	$87		; 135, left
+		push0
+		lap	param[$5]
+		send	$4
+		bnot
+		lt?
+		bt	code_0701
+		lst	temp[$7]
+		pushi	$88		; 136, right
+		push0
+		lap	param[$5]
+		send	$4
+		bnot
+		gt?
+		bt	code_0701
+		lst	temp[$8]
+		pushi	$89		; 137, top
+		push0
+		lap	param[$5]
+		send	$4
+		bnot
+		lt?
+		bt	code_0701
+		lst	temp[$8]
+		pushi	$8a		; 138, bottom
+		push0
+		lap	param[$5]
+		send	$4
+		bnot
+		gt?
+code_0701:	bnt	code_074d
+		pushi	$16b		; 363, clip
+		push1
+		lsp	param[$5]
+		pushi	$8d		; 141, new
+		pushi	$4		; scaleX
+		lst	temp[$5]
+		lst	temp[$6]
+		lst	temp[$7]
+		lst	temp[$8]
+		class	Line
+		send	$c
+		bnot
+		sat	temp[$9]
+		send	$6
+		bnot
+		push1
+		push1
+		pushi	$169		; 361, pX2
+		push0
+		lat	temp[$9]
+		send	$4
+		bnot
+		push
+		push2
+		push1
+		pushi	$16a		; 362, pY2
+		push0
+		lat	temp[$9]
+		send	$4
+		bnot
+		push
+		lat	temp[$0]
+		send	$c
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$9]
+		send	$4
+		bnot
+		jmp	code_0758
+
+		jmp	code_074d
+
+		jmp	code_0758
+
+code_074d:	lat	temp[$7]
+		sat	temp[$5]
+		lat	temp[$8]
+		sat	temp[$6]
+		jmp	code_0695
+
+code_0758:	push2
+		pushi	$4		; scaleX
+		lst	temp[$1]
+		callk	kernel_91, $4
+		bnot
+		lat	temp[$0]
+		ret
+
+FindInsideClippedPoint::doit:
+		link	$b
+		lsp	param[$0]
+		ldi	$5		; scaleY
+		gt?
+		bnt	code_0773
+		lap	param[$6]
+		sat	temp[$a]
+		jmp	code_0777
+
+code_0773:	ldi	$3		; z
+		sat	temp[$a]
+code_0777:	lsp	param[$0]
+		ldi	$6		; maxScale
+		gt?
+		bnt	code_0784
+		lap	param[$7]
+		sat	temp[$0]
+		jmp	code_078f
+
+code_0784:	pushi	$8d		; 141, new
+		push0
+		class	Point
+		send	$4
+		bnot
+		sat	temp[$0]
+code_078f:	push1
+		push1
+		lsp	param[$1]
+		push2
+		push1
+		lsp	param[$2]
+		lat	temp[$0]
+		send	$c
+		bnot
+		pushi	$9		; inLeft
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		lsp	param[$4]
+		pushi	$16d		; 365, obstacles
+		push0
+		pushi	$c5		; 197, pRoom
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		push
+		pushi	$4e		; 78, 'N', width
+		push0
+		push0
+		push0
+		pushi	$c5		; 197, pRoom
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		send	$4
+		bnot
+		push
+		pushi	$e1		; 225, height
+		push0
+		push0
+		push0
+		pushi	$c5		; 197, pRoom
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		send	$4
+		bnot
+		push
+		push0
+		lst	temp[$a]
+		callk	kernel_100, $12
+		bnot
+		sat	temp[$1]
+		push2
+		push1
+		push
+		callk	kernel_91, $4
+		bnot
+		sat	temp[$2]
+		ldi	$0
+		sat	temp[$4]
+		pushi	$3		; z
+		push2
+		lst	temp[$1]
+		push
+		callk	kernel_91, $6
+		bnot
+		sat	temp[$5]
+		pushi	$3		; z
+		push2
+		lst	temp[$1]
+		lst	temp[$4]
+		ldi	$1
+		add
+		push
+		callk	kernel_91, $6
+		bnot
+		sat	temp[$6]
+		lst	temp[$4]
+		ldi	$2
+		add
+		sat	temp[$4]
+code_081c:	ldi	$1
+		bnt	code_08a5
+		pushi	$3		; z
+		push2
+		lst	temp[$1]
+		lst	temp[$4]
+		callk	kernel_91, $6
+		bnot
+		sat	temp[$3]
+		push
+		ldi	$7777		; 30583
+		ne?
+		bnt	code_089a
+		lat	temp[$3]
+		sat	temp[$7]
+		pushi	$3		; z
+		push2
+		lst	temp[$1]
+		lst	temp[$4]
+		ldi	$1
+		add
+		push
+		callk	kernel_91, $6
+		bnot
+		sat	temp[$8]
+		lst	temp[$4]
+		ldi	$2
+		add
+		sat	temp[$4]
+		pushi	$8d		; 141, new
+		pushi	$4		; scaleX
+		lst	temp[$5]
+		lst	temp[$6]
+		lst	temp[$7]
+		lst	temp[$8]
+		class	Line
+		send	$c
+		bnot
+		sat	temp[$9]
+		pushi	$16b		; 363, clip
+		push1
+		lsp	param[$5]
+		send	$6
+		bnot
+		bnt	code_089a
+		push1
+		push1
+		pushi	$167		; 359, pX1
+		push0
+		lat	temp[$9]
+		send	$4
+		bnot
+		push
+		push2
+		push1
+		pushi	$168		; 360, pY1
+		push0
+		lat	temp[$9]
+		send	$4
+		bnot
+		push
+		lat	temp[$0]
+		send	$c
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$9]
+		send	$4
+		bnot
+		jmp	code_08a5
+
+code_089a:	lat	temp[$7]
+		sat	temp[$5]
+		lat	temp[$8]
+		sat	temp[$6]
+		jmp	code_081c
+
+code_08a5:	push2
+		pushi	$4		; scaleX
+		lst	temp[$1]
+		callk	kernel_91, $4
+		bnot
+		lat	temp[$0]
+		ret
+
diff --git a/Script/Script62000.txt b/Script/Script62000.txt
new file mode 100644
index 0000000..9d7ba65
--- /dev/null
+++ b/Script/Script62000.txt
@@ -0,0 +1,403 @@
+code_004d:	add
+		link	$9
+		pushi	$b9		; 185, localize
+		push1
+		push0
+		push0
+		lag	global[$3]
+		send	$4
+		bnot
+		push
+		lap	param[$1]
+		send	$6
+		bnot
+		ldi	$0
+		sat	temp[$0]
+		ldi	$0
+		sat	temp[$1]
+		push2
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		sat	temp[$7]
+		ldi	$0
+		sat	temp[$4]
+		lst	temp[$4]
+		lsp	param[$0]
+		ldi	$1
+		sub
+		lt?
+		bnt	$d1
+		lat	temp[$4]
+		lapi	param[$2]
+		sat	temp[$2]
+		bnt	$cd
+		pushi	$5a		; 90, 'Z', size
+		push0
+		send	$4
+		bnot
+		sat	temp[$8]
+		ldi	$0
+		sat	temp[$5]
+		lst	temp[$5]
+		lat	temp[$8]
+		lt?
+		bnt	$cd
+		pushi	$4b		; 75, 'K', at
+		push1
+		lst	temp[$5]
+		lat	temp[$2]
+		send	$6
+		bnot
+		sat	temp[$3]
+		pushi	$eb		; 235, onMe
+		push1
+		lsp	param[$1]
+		send	$6
+		bnot
+		bnt	$c9
+		push2
+		push0
+		lat	temp[$3]
+		send	$4
+		bnot
+		sat	temp[$6]
+		push
+		lat	temp[$1]
+		gt?
+		bnt	$c9
+		lat	temp[$3]
+		sat	temp[$0]
+		lat	temp[$6]
+		sat	temp[$1]
+		+at	temp[$5]
+		jmp	$94
+
+		+at	temp[$4]
+		jmp	$76
+
+		lat	temp[$0]
+		bnt	$de
+		pushi	$c8		; 200, handleEvent
+		push1
+		lsp	param[$1]
+		send	$6
+		bnot
+		pushi	$ba		; 186, globalize
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		lat	temp[$0]
+		ret
+
+curNetMsg::dispose:
+		link	$1
+		pToa	data
+		sat	temp[$0]
+		ldi	$0
+		aTop	data
+		pushi	$95		; 149, dispose
+		push0
+		super	NetMsg, $4
+		bnot
+		lat	temp[$0]
+		aTop	data
+		ldi	$0
+		aTop	claimed
+		ret
+
+netMsgHandler::handleMsg:
+		link	$2
+		pToa	elements
+		bnt	code_0146
+		pushi	$8d		; 141, new
+		push1
+		pushSelf
+		class	Sequence
+		send	$6
+		bnot
+		sat	temp[$0]
+code_0117:	pushi	$4c		; 76, 'L', next
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		sat	temp[$1]
+		bnt	code_013d
+		pushi	$50		; 80, 'P', claimed
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		not
+		bnt	code_013d
+		pushi	$9b		; 155, handleMsg
+		push1
+		lsp	param[$1]
+		&rest	$2
+		lat	temp[$1]
+		send	$6
+		bnot
+		jmp	code_0117
+
+code_013d:	pushi	$95		; 149, dispose
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+code_0146:	pushi	$50		; 80, 'P', claimed
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		ret
+
+NetUser::init:
+		pushi	$94		; 148, init
+		push0
+		super	User, $4
+		bnot
+		lofsa	netMsgHandler
+		sag	global[$2f]
+		pushi	$71		; 113, 'q', data
+		push1
+		pushi	$3		; z
+		push0
+		pushi	$ff		; 255, asInteger
+		push2
+		callk	kernel_91, $6
+		bnot
+		push
+		lofsa	curNetMsg
+		aTop	curMsg
+		send	$6
+		bnot
+		ret
+
+NetUser::doit:
+		link	$9
+		pToa	curMsg
+		sat	temp[$0]
+		ldi	$1
+		sat	temp[$5]
+		ldi	$0
+		sat	temp[$3]
+code_0182:	lag	global[$4f]
+		bnt	code_0198
+		push2
+		pushi	$d		; 13, seenRect
+		pushi	$71		; 113, 'q', data
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		push
+		callk	kernel_128, $4
+		bnot
+		sat	temp[$3]
+code_0198:	bt	code_019c
+		lat	temp[$5]
+code_019c:	bnt	code_02cb
+		ldi	$0
+		sat	temp[$5]
+		pToa	curEvent
+		sat	temp[$1]
+		pushi	$8d		; 141, new
+		push1
+		pushi	$7fff		; 32767
+		send	$6
+		bnot
+		pushi	$2b		; 43, '+', type
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		sat	temp[$2]
+		pToa	input
+		bnt	code_01d7
+		lst	temp[$2]
+		ldi	$4		; scaleX
+		eq?
+		bt	code_01cc
+		lst	temp[$2]
+		ldi	$100		; 256, strMax
+		eq?
+code_01cc:	bnt	code_01d7
+		pushi	$c8		; 200, handleEvent
+		push1
+		lst	temp[$1]
+		self	$6
+		bnot
+code_01d7:	pToa	controls
+		bnt	code_02a6
+		pushi	$5a		; 90, 'Z', size
+		push0
+		lag	global[$4d]
+		send	$4
+		bnot
+		bnt	code_01f4
+		pushi	$9d		; 157, eachElementDo
+		push2
+		pushi	$1ce		; 462, process
+		lst	temp[$1]
+		lag	global[$4d]
+		send	$8
+		bnot
+code_01f4:	lag	global[$1]
+		bnt	code_0227
+		pToa	controls
+		bnt	code_0227
+		lst	temp[$2]
+		ldi	$100		; 256, strMax
+		eq?
+		bnt	code_0227
+		pushi	$31		; 49, '1', message
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		ldi	$8		; fixPriority
+		eq?
+		bnt	code_0227
+		pushi	$316		; 790, handleVerb
+		push1
+		pushi	$48		; 72, 'H', modifiers
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		lag	global[$1]
+		send	$6
+		bnot
+		jmp	code_02a6
+
+code_0227:	lag	global[$1]
+		bnt	code_0296
+		pToa	controls
+		bnt	code_0296
+		lst	temp[$2]
+		ldi	$100		; 256, strMax
+		eq?
+		bnt	code_0296
+		pushi	$31		; 49, '1', message
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		ldi	$10		; 16, cel
+		eq?
+		bnt	code_0296
+		push2
+		lst	temp[$1]
+		pushi	$f2		; 242, pCast
+		push0
+		lag	global[$3]
+		send	$4
+		bnot
+		push
+		call	code_004d, $4
+		bnot
+		sat	temp[$4]
+		bnt	code_02a6
+		pushi	$2b		; 43, '+', type
+		push1
+		pushi	$4000		; 16384
+		pushi	$31		; 49, '1', message
+		push1
+		push2
+		lat	temp[$1]
+		send	$c
+		bnot
+		pushi	$32d		; 813, pObj
+		push1
+		pushi	$48		; 72, 'H', modifiers
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		class	WDragger
+		send	$6
+		bnot
+		pushi	$c8		; 200, handleEvent
+		push2
+		lst	temp[$1]
+		lst	temp[$4]
+		lag	global[$1]
+		send	$8
+		bnot
+		pushi	$32d		; 813, pObj
+		push1
+		push0
+		class	WDragger
+		send	$6
+		bnot
+		jmp	code_02a6
+
+code_0296:	lst	temp[$2]
+		ldi	$0
+		ne?
+		bnt	code_02a6
+		pushi	$c8		; 200, handleEvent
+		push1
+		lst	temp[$1]
+		self	$6
+		bnot
+code_02a6:	lat	temp[$3]
+		bnt	code_0182
+		pushi	$2dc		; 732, _len_
+		push1
+		push
+		lat	temp[$0]
+		send	$6
+		bnot
+		pushi	$9b		; 155, handleMsg
+		push1
+		lst	temp[$0]
+		lag	global[$12]
+		send	$6
+		bnot
+		pushi	$45		; 69, 'E', doit
+		push0
+		lag	global[$6a]
+		send	$4
+		bnot
+		jmp	code_0182
+
+code_02cb:	ret
+
+NetUser::nextNetMsg:
+		link	$2
+		pToa	curMsg
+		sat	temp[$1]
+		push2
+		pushi	$d		; 13, seenRect
+		pushi	$71		; 113, 'q', data
+		push0
+		send	$4
+		bnot
+		push
+		callk	kernel_128, $4
+		bnot
+		sat	temp[$0]
+		not
+		bnt	code_02e8
+		ldi	$0
+		ret
+
+code_02e8:	pushi	$2dc		; 732, _len_
+		push1
+		lst	temp[$0]
+		pushi	$94		; 148, init
+		push0
+		lat	temp[$1]
+		send	$a
+		bnot
+		lat	temp[$1]
+		ret
+
diff --git a/Script/Script62003.txt b/Script/Script62003.txt
new file mode 100644
index 0000000..94465e3
--- /dev/null
+++ b/Script/Script62003.txt
@@ -0,0 +1,530 @@
+NetMsg::init:
+		ldi	$1
+		aTop	pIsBigEndian
+		pToa	pToID
+		not
+		bnt	code_0082
+		pushi	$8d		; 141, new
+		push0
+		class	LongInt
+		send	$4
+		bnot
+		aTop	pToID
+code_0082:	pToa	pFromID
+		not
+		bnt	code_0092
+		pushi	$8d		; 141, new
+		push0
+		class	LongInt
+		send	$4
+		bnot
+		aTop	pFromID
+code_0092:	pToa	pInfo
+		not
+		bnt	code_00a2
+		pushi	$8d		; 141, new
+		push0
+		class	LongInt
+		send	$4
+		bnot
+		aTop	pInfo
+code_00a2:	pToa	pAckCmd
+		not
+		bnt	code_00b2
+		pushi	$8d		; 141, new
+		push0
+		class	LongInt
+		send	$4
+		bnot
+		aTop	pAckCmd
+code_00b2:	pToa	pNakCmd
+		not
+		bnt	code_00c2
+		pushi	$8d		; 141, new
+		push0
+		class	LongInt
+		send	$4
+		bnot
+		aTop	pNakCmd
+code_00c2:	pushi	$135		; 309, getWord
+		push0
+		self	$4
+		bnot
+		aTop	pCommand
+		pushi	$135		; 309, getWord
+		push0
+		self	$4
+		bnot
+		pTos	to
+		ldi	$0
+		eq?
+		bnt	code_00dd
+		lag	global[$2f]
+		aTop	to
+code_00dd:	ldi	$1
+		ret
+
+NetMsg::dispose:
+		pToa	pToID
+		bnt	code_00ef
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		aTop	pToID
+code_00ef:	pToa	pFromID
+		bnt	code_00fe
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		aTop	pFromID
+code_00fe:	pToa	pInfo
+		bnt	code_010d
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		aTop	pInfo
+code_010d:	pToa	pAckCmd
+		bnt	code_011c
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		aTop	pAckCmd
+code_011c:	pToa	pNakCmd
+		bnt	code_012b
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		aTop	pNakCmd
+code_012b:	pushi	$95		; 149, dispose
+		push0
+		&rest	$1
+		super	PackedData, $4
+		bnot
+		ret
+
+NetMsg::size:
+		push2
+		push1
+		pTos	data
+		callk	kernel_91, $4
+		bnot
+		ret
+
+NetMsg::with:
+		link	$1
+		pushi	$8d		; 141, new
+		push2
+		lsp	param[$1]
+		lsp	param[$2]
+		self	$8
+		bnot
+		sat	temp[$0]
+		pushi	$94		; 148, init
+		push0
+		send	$4
+		bnot
+		bnt	code_015c
+		lat	temp[$0]
+		ret
+
+		jmp	code_0183
+
+code_015c:	pushi	$7		; priority
+		lofsa	string_003e	; "Unsupported message."
+		push
+		pushi	$77		; 119, 'w', textTop
+		lofsa	string_0053	; " Debug "
+		push
+		push1
+		pushi	$77		; 119, 'w', textTop
+		lofsa	string_005b	; " Ignore "
+		push
+		push0
+		calle	export60029_0, $e
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		ldi	$0
+		ret
+
+code_0183:	lat	temp[$0]
+		ret
+
+NetMsg::wordAt:
+		pToa	pIsBigEndian
+		bnt	code_01a7
+		pushi	$4b		; 75, 'K', at
+		push1
+		lsp	param[$1]
+		ldi	$1
+		add
+		push
+		self	$6
+		bnot
+		push
+		pushi	$4b		; 75, 'K', at
+		push1
+		lsp	param[$1]
+		self	$6
+		bnot
+		push
+		ldi	$8		; fixPriority
+		shl
+		or
+		ret
+
+		jmp	code_01c2
+
+code_01a7:	pushi	$4b		; 75, 'K', at
+		push1
+		lsp	param[$1]
+		self	$6
+		bnot
+		push
+		pushi	$4b		; 75, 'K', at
+		push1
+		lsp	param[$1]
+		ldi	$1
+		add
+		push
+		self	$6
+		bnot
+		push
+		ldi	$8		; fixPriority
+		shl
+		or
+		ret
+
+code_01c2:	ret
+
+NetMsg::stringAt:
+		link	$4
+		pushi	$8d		; 141, new
+		push0
+		class	Str
+		send	$4
+		bnot
+		sat	temp[$0]
+		lsp	param[$0]
+		ldi	$1
+		gt?
+		bnt	code_01db
+		lap	param[$2]
+		jmp	code_01e0
+
+code_01db:	pTos	_len_
+		lap	param[$1]
+		sub
+code_01e0:	sat	temp[$2]
+		ldi	$0
+		sat	temp[$1]
+code_01e6:	lst	temp[$1]
+		lat	temp[$2]
+		lt?
+		bnt	code_020e
+		pushi	$4b		; 75, 'K', at
+		push1
+		lsp	param[$1]
+		self	$6
+		bnot
+		sat	temp[$3]
+		bnt	code_020e
+		pushi	$4b		; 75, 'K', at
+		push2
+		lst	temp[$1]
+		push
+		lat	temp[$0]
+		send	$8
+		bnot
+		jmp	code_0208
+
+		jmp	code_020e
+
+code_0208:	+ap	param[$1]
+		+at	temp[$1]
+		jmp	code_01e6
+
+code_020e:	lat	temp[$0]
+		ret
+
+NetMsg::arrayAt:
+		pushi	$d2		; 210, copyToFrom
+		pushi	$4		; scaleX
+		push0
+		pushSelf
+		lsp	param[$1]
+		lsp	param[$0]
+		ldi	$1
+		gt?
+		bnt	code_0226
+		lap	param[$2]
+		jmp	code_022b
+
+code_0226:	pTos	_len_
+		lap	param[$1]
+		sub
+code_022b:	push
+		pushi	$8d		; 141, new
+		push0
+		class	ByteArray
+		send	$4
+		bnot
+		send	$c
+		bnot
+		ret
+
+NetMsg::wordArrayAt:
+		link	$3
+		pushi	$8d		; 141, new
+		push0
+		class	IntArray
+		send	$4
+		bnot
+		sat	temp[$0]
+		lsp	param[$0]
+		ldi	$1
+		gt?
+		bnt	code_0253
+		lap	param[$2]
+		sat	temp[$2]
+		jmp	code_025e
+
+code_0253:	pTos	_len_
+		lap	param[$1]
+		sub
+		push
+		ldi	$2
+		div
+		sat	temp[$2]
+code_025e:	lat	temp[$2]
+		bnt	code_0283
+		pushi	$4b		; 75, 'K', at
+		push2
+		lst	temp[$1]
+		pushi	$2e4		; 740, wordAt
+		push1
+		lsp	param[$1]
+		self	$6
+		bnot
+		push
+		lat	temp[$0]
+		send	$8
+		bnot
+		lsp	param[$1]
+		ldi	$2
+		add
+		sap	param[$1]
+		+at	temp[$1]
+		-at	temp[$2]
+		jmp	code_025e
+
+code_0283:	ret
+
+NetMsg::longAt:
+		pushi	$4b		; 75, 'K', at
+		push1
+		lsp	param[$1]
+		self	$6
+		bnot
+		push
+		pushi	$4b		; 75, 'K', at
+		push1
+		lsp	param[$1]
+		ldi	$1
+		add
+		push
+		self	$6
+		bnot
+		push
+		ldi	$8		; fixPriority
+		shl
+		add
+		push
+		pushi	$4b		; 75, 'K', at
+		push1
+		lsp	param[$1]
+		ldi	$2
+		add
+		push
+		self	$6
+		bnot
+		push
+		ldi	$10		; 16, cel
+		shl
+		add
+		push
+		pushi	$4b		; 75, 'K', at
+		push1
+		lsp	param[$1]
+		ldi	$3		; z
+		add
+		push
+		self	$6
+		bnot
+		push
+		ldi	$18		; 24, lsRight
+		shl
+		add
+		ret
+
+NetMsg::getString:
+		link	$2
+		lap	param[$0]
+		bnt	code_02e7
+		lap	param[$1]
+		sat	temp[$0]
+		push
+		ldi	$ff		; 255, asInteger
+		eq?
+		bnt	code_02da
+		pTos	_len_
+		pToa	getIndex
+		sub
+		sat	temp[$0]
+code_02da:	pushi	$139		; 313, getString
+		push1
+		lst	temp[$0]
+		super	PackedData, $6
+		bnot
+		ret
+
+		jmp	code_02f2
+
+code_02e7:	pushi	$139		; 313, getString
+		push0
+		&rest	$2
+		super	PackedData, $4
+		bnot
+		ret
+
+code_02f2:	ret
+
+NetMsg::clone:
+		link	$1
+		pushi	$94		; 148, init
+		push0
+		pushi	$8d		; 141, new
+		push0
+		class	NetMsg
+		send	$4
+		bnot
+		sat	temp[$0]
+		send	$4
+		bnot
+		pushi	$133		; 307, pIsBigEndian
+		push1
+		pTos	pIsBigEndian
+		pushi	$8e		; 142, getIndex
+		push1
+		pTos	getIndex
+		pushi	$8f		; 143, putIndex
+		push1
+		pTos	putIndex
+		pushi	$91		; 145, bitPutIndex
+		push1
+		pTos	bitPutIndex
+		pushi	$90		; 144, bitGetIndex
+		push1
+		pTos	bitGetIndex
+		pushi	$2de		; 734, to
+		push1
+		pTos	to
+		pushi	$2dd		; 733, pCommand
+		push1
+		pTos	pCommand
+		lat	temp[$0]
+		send	$2a
+		bnot
+		pushi	$10f		; 271, setLong
+		push1
+		pTos	pToID
+		pushi	$2e2		; 738, pToID
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		send	$6
+		bnot
+		pushi	$10f		; 271, setLong
+		push1
+		pTos	pFromID
+		pushi	$2e3		; 739, pFromID
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		send	$6
+		bnot
+		pushi	$10f		; 271, setLong
+		push1
+		pTos	pInfo
+		pushi	$2e1		; 737, pInfo
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		send	$6
+		bnot
+		pushi	$10f		; 271, setLong
+		push1
+		pTos	pAckCmd
+		pushi	$2df		; 735, pAckCmd
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		send	$6
+		bnot
+		pushi	$10f		; 271, setLong
+		push1
+		pTos	pNakCmd
+		pushi	$2e0		; 736, pNakCmd
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		send	$6
+		bnot
+		pushi	$71		; 113, 'q', data
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		bnt	code_03aa
+		push2
+		pushi	$4		; scaleX
+		pushi	$71		; 113, 'q', data
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		push
+		callk	kernel_91, $4
+		bnot
+code_03aa:	pushi	$71		; 113, 'q', data
+		push1
+		push2
+		pushi	$8		; fixPriority
+		pTos	data
+		callk	kernel_91, $4
+		bnot
+		push
+		lat	temp[$0]
+		send	$6
+		bnot
+		lat	temp[$0]
+		ret
+
diff --git a/Script/Script62004.txt b/Script/Script62004.txt
new file mode 100644
index 0000000..7ea2c70
--- /dev/null
+++ b/Script/Script62004.txt
@@ -0,0 +1,254 @@
+NetMsgProcessor::init:
+		pushi	$94		; 148, init
+		push0
+		super	Code, $4
+		bnot
+		lsg	global[$12]
+		selfID
+		ne?
+		bnt	code_006a
+		selfID
+		sag	global[$12]
+		lag	global[$28]
+		not
+		bnt	code_005f
+		selfID
+		sag	global[$28]
+code_005f:	pushi	$8d		; 141, new
+		push0
+		class	Set
+		send	$4
+		bnot
+		aTop	nmpQueue
+code_006a:	ret
+
+NetMsgProcessor::dispose:
+		ldi	$0
+		sag	global[$12]
+		lsg	global[$28]
+		selfID
+		eq?
+		bnt	code_0079
+		ldi	$0
+		sag	global[$28]
+code_0079:	pushi	$95		; 149, dispose
+		push0
+		pToa	nmpQueue
+		send	$4
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		super	Code, $4
+		bnot
+		ret
+
+NetMsgProcessor::getMsg:
+		link	$1
+		pushi	$4b		; 75, 'K', at
+		push1
+		lsp	param[$0]
+		ldi	$1
+		ge?
+		bnt	code_009b
+		lap	param[$1]
+		jmp	code_009d
+
+code_009b:	ldi	$0
+code_009d:	push
+		pToa	nmpQueue
+		send	$6
+		bnot
+		sat	temp[$0]
+		pushi	$58		; 88, 'X', delete
+		push1
+		aTop	lastMsg
+		push
+		pToa	nmpQueue
+		send	$6
+		bnot
+		lat	temp[$0]
+		ret
+
+NetMsgProcessor::putMsg:
+		pushi	$9f		; 159, add
+		push1
+		lsp	param[$1]
+		pToa	nmpQueue
+		send	$6
+		bnot
+		ret
+
+NetMsgProcessor::processMsg:
+		link	$1
+		pushi	$2ee		; 750, getMsg
+		push0
+		&rest	$1
+		self	$4
+		bnot
+		sat	temp[$0]
+		not
+		bt	code_00dc
+		pushi	$97		; 151, isKindOf
+		push1
+		class	NetMsg
+		push
+		lat	temp[$0]
+		send	$6
+		bnot
+		not
+code_00dc:	bnt	code_00e1
+		ldi	$0
+		ret
+
+code_00e1:	pushi	$2de		; 734, to
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		bnt	code_0116
+		pushi	$9b		; 155, handleMsg
+		push1
+		lst	temp[$0]
+		pushi	$2de		; 734, to
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		send	$6
+		bnot
+		pushi	$50		; 80, 'P', claimed
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		not
+		bnt	code_0126
+		pushi	$9b		; 155, handleMsg
+		push1
+		lst	temp[$0]
+		lag	global[$2f]
+		send	$6
+		bnot
+		jmp	code_0126
+
+code_0116:	lag	global[$4a]
+		bnt	code_0126
+		push1
+		lofsa	string_0026	; "NMP: Msg with illegal to? property."
+		push
+		calle	export60029_0, $2
+		bnot
+code_0126:	pushi	$a3		; 163, contains
+		push1
+		lst	temp[$0]
+		pToa	nmpQueue
+		send	$6
+		bnot
+		not
+		bnt	code_013d
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+code_013d:	ldi	$0
+		ret
+
+NetMsgProcessor::doit:
+		link	$2
+		ldi	$0
+		ret
+
+		pToa	paused
+		bt	code_014f
+		lap	param[$0]
+		bnt	code_0168
+		lap	param[$1]
+code_014f:	bnt	code_0168
+		pToa	paused
+		sat	temp[$1]
+		ldi	$1
+		aTop	paused
+		pushi	$9b		; 155, handleMsg
+		push0
+		self	$4
+		bnot
+		sat	temp[$0]
+		lat	temp[$1]
+		aTop	paused
+		jmp	code_0171
+
+code_0168:	pushi	$2f0		; 752, processMsg
+		push0
+		self	$4
+		bnot
+		sat	temp[$0]
+code_0171:	lat	temp[$0]
+		ret
+
+NetMsgProcessor::handleMsg:
+		link	$1
+		pToa	processing
+		not
+		bnt	code_01dd
+		lsp	param[$0]
+		ldi	$1
+		eq?
+		bnt	code_0186
+		lap	param[$1]
+		jmp	code_018f
+
+code_0186:	pushi	$2f1		; 753, nextNetMsg
+		push0
+		lag	global[$e]
+		send	$4
+		bnot
+code_018f:	sat	temp[$0]
+		push
+		ldi	$0
+		eq?
+		bnt	code_019a
+		ldi	$0
+		ret
+
+code_019a:	ldi	$1
+		aTop	processing
+		pushi	$94		; 148, init
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		pushi	$2de		; 734, to
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		bnt	code_01ce
+		pushi	$2ef		; 751, putMsg
+		push1
+		lst	temp[$0]
+		self	$6
+		bnot
+		pToa	paused
+		not
+		bnt	code_01c7
+		pushi	$2f0		; 752, processMsg
+		push0
+		self	$4
+		bnot
+code_01c7:	ldi	$0
+		aTop	processing
+		ldi	$1
+		ret
+
+code_01ce:	lat	temp[$0]
+		bnt	code_01d9
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+code_01d9:	ldi	$0
+		aTop	processing
+code_01dd:	ldi	$0
+		ret
+
diff --git a/Script/Script62005.txt b/Script/Script62005.txt
new file mode 100644
index 0000000..5c76721
--- /dev/null
+++ b/Script/Script62005.txt
@@ -0,0 +1,221 @@
+Server::init:
+		pushi	$3		; z
+		push0
+		push1
+		pushi	$bb8		; 3000, BAD SELECTOR
+		callk	kernel_126, $6
+		bnot
+		pushi	$94		; 148, init
+		push0
+		super	Obj, $4
+		bnot
+		selfID
+		sag	global[$6a]
+		ret
+
+Server::dispose:
+		ldi	$0
+		sag	global[$6a]
+		pushi	$95		; 149, dispose
+		push0
+		super	Obj, $4
+		bnot
+		ret
+
+Server::doit:
+		pToa	script
+		bnt	code_0074
+		pushi	$45		; 69, 'E', doit
+		push0
+		send	$4
+		bnot
+code_0074:	ret
+
+Server::add:
+		link	$1
+		pushi	$b5		; 181, set
+		push2
+		pushi	$2cb		; 715, pServIDLo
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		pushi	$2cc		; 716, pServIDHi
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		pushi	$8d		; 141, new
+		push0
+		class	LongInt
+		send	$4
+		bnot
+		sat	temp[$0]
+		send	$8
+		bnot
+		pushi	$4		; scaleX
+		push1
+		push1
+		lst	temp[$0]
+		lsp	param[$1]
+		callk	kernel_126, $8
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		ret
+
+Server::delete:
+		link	$1
+		pushi	$b5		; 181, set
+		push2
+		pushi	$2cb		; 715, pServIDLo
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		pushi	$2cc		; 716, pServIDHi
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		pushi	$8d		; 141, new
+		push0
+		class	LongInt
+		send	$4
+		bnot
+		sat	temp[$0]
+		send	$8
+		bnot
+		pushi	$4		; scaleX
+		push2
+		push1
+		lst	temp[$0]
+		lsp	param[$1]
+		callk	kernel_126, $8
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		ret
+
+Server::lookup:
+		link	$2
+		lsp	param[$0]
+		ldi	$1
+		eq?
+		bnt	code_0107
+		pushi	$3		; z
+		dup
+		push1
+		lsp	param[$1]
+		callk	kernel_126, $6
+		bnot
+		ret
+
+		jmp	code_0135
+
+code_0107:	pushi	$b5		; 181, set
+		push2
+		lsp	param[$1]
+		lsp	param[$2]
+		pushi	$8d		; 141, new
+		push0
+		class	LongInt
+		send	$4
+		bnot
+		sat	temp[$0]
+		send	$8
+		bnot
+		pushi	$3		; z
+		dup
+		push1
+		lst	temp[$0]
+		callk	kernel_126, $6
+		bnot
+		sat	temp[$1]
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		lat	temp[$1]
+		ret
+
+code_0135:	ret
+
+Server::lookupObj:
+		pushi	$99		; 153, respondsTo
+		push1
+		pushi	$2ca		; 714, pServID
+		lap	param[$1]
+		send	$6
+		bnot
+		bnt	code_0170
+		pushi	$2c8		; 712, lookup
+		push2
+		pushi	$10d		; 269, lowWord
+		push0
+		pushi	$2ca		; 714, pServID
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		push
+		pushi	$10e		; 270, hiWord
+		push0
+		pushi	$2ca		; 714, pServID
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		push
+		self	$8
+		bnot
+		ret
+
+		jmp	code_018c
+
+code_0170:	pushi	$2c8		; 712, lookup
+		push2
+		pushi	$2cb		; 715, pServIDLo
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		pushi	$2cc		; 716, pServIDHi
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		self	$8
+		bnot
+		ret
+
+code_018c:	ret
+
+Server::setScript:
+		lap	param[$1]
+		bnt	code_019b
+		pushi	$94		; 148, init
+		push1
+		pushSelf
+		&rest	$2
+		send	$6
+		bnot
+code_019b:	ret
+