diff --git a/shapetable_party/Makefile b/shapetable_party/Makefile
new file mode 100644
index 00000000..f7d0b411
--- /dev/null
+++ b/shapetable_party/Makefile
@@ -0,0 +1,40 @@
+include ../Makefile.inc
+
+DOS33 = ../dos33fs-utils/dos33
+PNG_TO_40x96 = ../gr-utils/png_to_40x96
+PNG_TO_40x48D = ../gr-utils/png_to_40x48d
+PNG2RLE = ../gr-utils/png2rle
+B2D = ../bmp2dhr/b2d
+
+all:	dsr_shape.dsk
+
+dsr_shape.dsk:	HELLO DSRSHAPE
+	cp empty.dsk dsr_shape.dsk
+	$(DOS33) -y dsr_shape.dsk SAVE A HELLO
+#	$(DOS33) -y dsr_shape.dsk SAVE A DSR.BAS
+#	$(DOS33) -y dsr_shape.dsk BSAVE -a 0x1000 DSR
+	$(DOS33) -y dsr_shape.dsk BSAVE -a 0x1000 DSRSHAPE
+
+
+DSRSHAPE: dsr_shape.o
+	ld65 -o DSRSHAPE dsr_shape.o -C ../linker_scripts/apple2_1000.inc
+
+dsr_shape.o:	dsr_shape.s
+	ca65 -o dsr_shape.o dsr_shape.s -l dsr_shape.lst
+
+###
+
+HELLO:	hello.bas
+	../asoft_basic-utils/tokenize_asoft < hello.bas > HELLO
+
+###
+
+DSR.BAS:	dsr.bas
+	../asoft_basic-utils/tokenize_asoft < dsr.bas > DSR.BAS
+
+####
+
+clean:	
+		rm -f *~ *.o *.lst HELLO DSR DSRSHAPE
+
+
diff --git a/shapetable_party/arm.shape b/shapetable_party/arm.shape
new file mode 100644
index 00000000..3adf0b29
--- /dev/null
+++ b/shapetable_party/arm.shape
@@ -0,0 +1,13 @@
+# Person, raising arm
+1
+START
+NRT NRT
+NRT NRT
+NRT NRT
+NRT NRT
+NRT
+UP UP UP UP UP
+UP UP
+RT
+NDN DN DN DN DN DN DN
+STOP
diff --git a/shapetable_party/dsr.shape b/shapetable_party/dsr.shape
new file mode 100644
index 00000000..ef366c63
--- /dev/null
+++ b/shapetable_party/dsr.shape
@@ -0,0 +1,8 @@
+# Number of shapes
+1
+START
+RT RT DN DN LT LT NLT
+LT LT UP UP RT RT NDN NDN UP UP UP UP NDN NDN NRT
+UP UP RT RT NRT NRT NRT NDN NDN LT LT DN DN
+STOP
+
diff --git a/shapetable_party/dsr_shape.dsk b/shapetable_party/dsr_shape.dsk
new file mode 100644
index 00000000..06d70243
Binary files /dev/null and b/shapetable_party/dsr_shape.dsk differ
diff --git a/shapetable_party/dsr_shape.s b/shapetable_party/dsr_shape.s
new file mode 100644
index 00000000..fff039ed
--- /dev/null
+++ b/shapetable_party/dsr_shape.s
@@ -0,0 +1,29 @@
+# Person, shoulders up
+1
+START
+RT RT
+RT UP
+UP LT
+UP UP
+UP RT
+UP RT
+RT DN
+LT DN
+LT RT NRT
+RT UP
+DN NDN
+LT LT
+LT DN NRT
+RT RT
+DN NLT
+LT DN
+RT RT
+RT RT
+RT NDN
+LT LT
+LT LT
+LT LT
+LT LT
+LT LT
+LT
+STOP
diff --git a/shapetable_party/empty.dsk b/shapetable_party/empty.dsk
new file mode 100644
index 00000000..b34eb519
Binary files /dev/null and b/shapetable_party/empty.dsk differ
diff --git a/shapetable_party/hello.bas b/shapetable_party/hello.bas
new file mode 100644
index 00000000..4cd1cd23
--- /dev/null
+++ b/shapetable_party/hello.bas
@@ -0,0 +1,6 @@
+5 HOME
+10 HTAB 10:PRINT "DSR SHAPETABLE PARTY"
+20 HTAB 15:PRINT "BY DEATER"
+30 PRINT
+40 PRINT "TO RUN: BRUN DSRSHAPE"
+120 PRINT CHR$(4);"CATALOG"
diff --git a/shapetable_party/person.shape b/shapetable_party/person.shape
new file mode 100644
index 00000000..fff039ed
--- /dev/null
+++ b/shapetable_party/person.shape
@@ -0,0 +1,29 @@
+# Person, shoulders up
+1
+START
+RT RT
+RT UP
+UP LT
+UP UP
+UP RT
+UP RT
+RT DN
+LT DN
+LT RT NRT
+RT UP
+DN NDN
+LT LT
+LT DN NRT
+RT RT
+DN NLT
+LT DN
+RT RT
+RT RT
+RT NDN
+LT LT
+LT LT
+LT LT
+LT LT
+LT LT
+LT
+STOP