diff --git a/Heap/Heap40017.txt b/Heap/Heap40017.txt
new file mode 100644
index 0000000..0aa7ee0
--- /dev/null
+++ b/Heap/Heap40017.txt
@@ -0,0 +1,16 @@
+subclass BCycle of WorldObjectBase
+{
+	scratch         = $0
+	pModule         = $ffff		; -1
+	pLine           = $ffff		; -1
+	pName           = $0
+	pSelf           = $0
+	pType           = $5		; scaleY
+	pCycleType      = $0
+	pCycleSpeed     = $6		; maxScale
+
+	doit()
+}
+
+string_0028	= "BCycle"
+
diff --git a/Heap/Heap40018.txt b/Heap/Heap40018.txt
new file mode 100644
index 0000000..3652537
--- /dev/null
+++ b/Heap/Heap40018.txt
@@ -0,0 +1,17 @@
+subclass BEntry of WorldObjectBase
+{
+	scratch         = $0
+	pModule         = $ffff		; -1
+	pLine           = $ffff		; -1
+	pName           = $0
+	pSelf           = $0
+	pType           = $a		; 10, inTop
+	pDest           = $ffff		; -1
+
+	dispose()
+	buildVerbList()
+	fromPacket()
+}
+
+string_0026	= "BEntry"
+
diff --git a/Heap/Heap40019.txt b/Heap/Heap40019.txt
new file mode 100644
index 0000000..c17b30d
--- /dev/null
+++ b/Heap/Heap40019.txt
@@ -0,0 +1,38 @@
+subclass BCharacter of WorldObjectBase
+{
+	scratch         = $0
+	pModule         = $ffff		; -1
+	pLine           = $ffff		; -1
+	pName           = $0
+	pSelf           = $0
+	pType           = $6		; maxScale
+	pProfession     = $0
+	pExperience     = $0
+	pRace           = $0
+	pSex            = $0
+	pBuildPoints    = $0
+	pHomeTown       = $0
+	pSkillArray     = $0
+	pSpellArray     = $0
+	pProperName     = $0
+	pTitle          = $0
+	pBiography      = $0
+	pStealingCount  = $0
+	pStealingUnserved= $0
+	pKillingCount   = $0
+	pKillingUnserved= $0
+	pPeaceful       = $0
+
+	init()
+	dispose()
+	buildVerbList()
+	fromPacket()
+	setProperName()
+	setTitle()
+	setBiography()
+	fromFullPacket()
+}
+
+string_0044	= ""
+string_0045	= "BCharacter"
+
diff --git a/Heap/Heap40020.txt b/Heap/Heap40020.txt
new file mode 100644
index 0000000..0a2625b
--- /dev/null
+++ b/Heap/Heap40020.txt
@@ -0,0 +1,15 @@
+subclass BShop of WorldObjectBase
+{
+	scratch         = $0
+	pModule         = $ffff		; -1
+	pLine           = $ffff		; -1
+	pName           = $0
+	pSelf           = $0
+	pType           = $b		; 11, inRight
+	pCurrency       = $0
+
+	buildVerbList()
+}
+
+string_0026	= "BShop"
+
diff --git a/Heap/Heap40021.txt b/Heap/Heap40021.txt
new file mode 100644
index 0000000..9d0e1ed
--- /dev/null
+++ b/Heap/Heap40021.txt
@@ -0,0 +1,14 @@
+subclass BNPC of WorldObjectBase
+{
+	scratch         = $0
+	pModule         = $ffff		; -1
+	pLine           = $ffff		; -1
+	pName           = $0
+	pSelf           = $0
+	pType           = $c		; 12, inBottom
+
+	init()
+}
+
+string_0024	= "BNPC"
+