diff --git a/source_code/exall-example.c b/source_code/exall-example.c
new file mode 100644
index 0000000..20bf383
--- /dev/null
+++ b/source_code/exall-example.c
@@ -0,0 +1,188 @@
+/* an example of how to use ExAll */
+
+#include <exec/types.h>
+#include <exec/ports.h>
+#include <exec/memory.h>
+#include <dos/dos.h>
+#include <dos/dosextens.h>
+#include <dos/exall.h>
+#include <dos/obsolete.h>
+#include <proto/exec.h>
+#include <proto/dos.h>
+
+#include <string.h>
+
+/* normally you'd include pragmas here */
+
+#define BUFFSIZE 4096
+
+int
+main(int argc,char *argv[])
+{
+	BPTR obj_lock;
+	LONG res2,more;
+	struct ExAllData *Buffer = NULL;
+	struct ExAllData *ead;
+	struct ExAllControl *control = NULL;
+	LONG rc = RETURN_ERROR;
+	char pattern[256];
+	char user_other_bits[11];
+	char owner_bits[9];
+	struct DateTime dat;
+	char date[LEN_DATSTRING],time[LEN_DATSTRING];
+	int type;
+	int i;
+
+	/* ugly argument parsing */
+	if(argc >= 2 && argc <= 3)
+	{
+		/* control MUST be allocated by AllocDosObject! */
+		control = (struct ExAllControl *) AllocDosObject(DOS_EXALLCONTROL,NULL);
+		Buffer = (struct ExAllData *) AllocMem(BUFFSIZE,MEMF_PUBLIC|MEMF_CLEAR);
+
+		/* always check allocations! */
+		if (control == NULL || Buffer == NULL)
+			goto cleanup;
+
+		if (argc == 3)
+		{
+			/* parse the pattern for eac_MatchString */
+			if (ParsePatternNoCase(argv[2],pattern,sizeof(pattern)) == -1)
+			{
+				Printf("ParsePatternNoCase buffer overflow!\n");
+				goto cleanup;
+			}
+
+			control->eac_MatchString = pattern;
+		}
+
+		/* lock the directory */
+		obj_lock = Lock(argv[1],SHARED_LOCK);
+		if (obj_lock != (BPTR)NULL)
+		{
+			control->eac_LastKey = 0;	/* paranoia */
+
+			type = ED_OWNER;
+
+			do /* while more */
+			{
+				more = ExAll(obj_lock,Buffer,BUFFSIZE,type,control);
+				res2 = IoErr();
+
+				if(!more && res2 == ERROR_BAD_NUMBER && type == ED_OWNER)
+				{
+					type = ED_COMMENT;
+
+					more = ExAll(obj_lock,Buffer,BUFFSIZE,type,control);
+					res2 = IoErr();
+				}
+
+				if (!more)
+				{
+					if(res2 != ERROR_NO_MORE_ENTRIES)
+						Printf("Abnormal exit, error = %ld\n",res2);
+
+					break;
+				}
+
+				Printf("Returned %ld entries:\n\n",control->eac_Entries);
+
+				if (control->eac_Entries > 0)
+				{
+					for(ead = Buffer ; ead != NULL ; ead->ed_Next)
+					{
+						if (ead->ed_Type > 0)
+							Printf("%s (dir)", ead->ed_Name);
+						else
+							Printf("%s (file), size=%ld", ead->ed_Name, ead->ed_Size);
+
+						strcpy(user_other_bits, "rwed rwed");
+
+						for(i = 8 ; i < 16 ; i++)
+						{
+							if((ead->ed_Prot & (1 << i)) == 0)
+							{
+								int offset;
+
+								if(i < 12)
+									offset = 12 - i;
+								else
+									offset = 21 - i;
+
+								user_other_bits[offset - 1] = '-';
+							}
+						}
+
+						strcpy(owner_bits, "hsparwed");
+
+						for(i = 0 ; i < 4 ; i++)
+						{
+							if((ead->ed_Prot & (1 << i)) != 0)
+								owner_bits[7 - i] = '-';
+						}
+
+						for(i = 4 ; i < 8 ; i++)
+						{
+							if((ead->ed_Prot & (1 << i)) == 0)
+								owner_bits[7 - i] = '-';
+						}
+
+						memset(&dat,0,sizeof(dat));
+
+						memset(date,0,sizeof(date));
+						memset(time,0,sizeof(time));
+
+						dat.dat_Stamp.ds_Days	= ead->ed_Days;
+						dat.dat_Stamp.ds_Minute	= ead->ed_Mins;
+						dat.dat_Stamp.ds_Tick	= ead->ed_Ticks;
+						dat.dat_Format			= FORMAT_DEF;
+						dat.dat_StrDate			= date;
+						dat.dat_StrTime			= time;
+
+						DateToStr(&dat);
+
+						Printf(", protection=%s %s (0x%08lx), date=%s %s (%ld/%ld/%ld), comment=\"%s\"",
+							user_other_bits,owner_bits,ead->ed_Prot,
+							date,time,
+							ead->ed_Days,ead->ed_Mins,ead->ed_Ticks,
+							ead->ed_Comment ? ead->ed_Comment : (STRPTR)"");
+
+						if (type == ED_OWNER)
+						{
+							Printf(", uid=%ld, gid=%ld",
+								ead->ed_OwnerUID,
+								ead->ed_OwnerGID);
+						}
+
+						Printf("\n");
+
+						ead = ead->ed_Next;
+					}
+				}
+
+				rc = RETURN_OK;	/* success */
+			}
+			while (more);
+
+			UnLock(obj_lock);
+		}
+		else
+		{
+			Printf("Couldn't find %s\n", argv[1]);
+		}
+	}
+	else
+	{
+		Printf("Usage: %s dirname [pattern]\n", argv[0]);
+	}
+
+ cleanup:
+
+	if (Buffer != NULL)
+		FreeMem(Buffer,BUFFSIZE);
+
+	if (control != NULL)
+		FreeDosObject(DOS_EXALLCONTROL,control);
+
+	return(rc);
+}