BSwitch::buildVerbList:
		link	$1
		class	VerbList
		sat	temp[$0]
		pToa	pOwner
		not
		bnt	code_0073
		pushi	$97		; 151, isKindOf
		push1
		class	WorldEgo
		push
		lap	param[$1]
		send	$6
		bnot
		bnt	code_0073
		pToa	pOpen
		bnt	code_0068
		pushi	$9f		; 159, add
		push1
		pushi	$7f		; 127, frameOut
		lat	temp[$0]
		send	$6
		bnot
		jmp	code_0073

code_0068:	pushi	$9f		; 159, add
		push1
		pushi	$7e		; 126, '~', dimmed
		lat	temp[$0]
		send	$6
		bnot
code_0073:	ret

BSwitch::handlesAction:
		pushi	$3		; z
		lsp	param[$1]
		pushi	$248		; 584, open
		pushi	$253		; 595, close
		calle	export60025_4, $6
		bnot
		ret

BSwitch::open:
		link	$3
		ldi	$0
		sat	temp[$0]
		pToa	pOpen
		bnt	code_0096
		ldi	$4		; scaleX
		sat	temp[$0]
		jmp	code_009a

code_0096:	ldi	$1
		aTop	pOpen
code_009a:	lat	temp[$0]
		ret

BSwitch::close:
		link	$2
		ldi	$0
		sat	temp[$0]
		pToa	pOpen
		bnt	code_00cf
		ldi	$0
		aTop	pOpen
		pushi	$35c		; 860, getBase
		push1
		class	BLockable
		push
		pToa	pSelf
		send	$6
		bnot
		sat	temp[$1]
		bnt	code_00d3
		pushi	$427		; 1063, pAutoLock
		push0
		send	$4
		bnot
		bnt	code_00d3
		pushi	$34a		; 842, lock
		push0
		lat	temp[$1]
		send	$4
		bnot
		jmp	code_00d3

code_00cf:	ldi	$4		; scaleX
		sat	temp[$0]
code_00d3:	lat	temp[$0]
		ret