diff --git a/docs/sysutex/README b/docs/sysutex/README
new file mode 100644
index 0000000000..c2a2f6021e
--- /dev/null
+++ b/docs/sysutex/README
@@ -0,0 +1,5 @@
+This directory contains the examples for the Sysutils unit.
+
+ex1.pp contains an example of the Date function.
+ex2.pp contains an example of the DateTimeToFileDate function.
+ex3.pp contains an example of the DateTimeToStr function.
diff --git a/docs/sysutex/ex1.pp b/docs/sysutex/ex1.pp
new file mode 100644
index 0000000000..480890d446
--- /dev/null
+++ b/docs/sysutex/ex1.pp
@@ -0,0 +1,13 @@
+Program Example1;
+
+{ This program demonstrates the Date function }
+
+uses sysutils;
+
+Var YY,MM,DD : Word;
+
+Begin
+ Writeln ('Date : ',Date);
+ DeCodeDate (Date,YY,MM,DD);
+ Writeln (format ('Date is (DD/MM/YY): %d/%d/%d ',[dd,mm,yy]));
+End.
\ No newline at end of file
diff --git a/docs/sysutex/ex2.pp b/docs/sysutex/ex2.pp
new file mode 100644
index 0000000000..e063751006
--- /dev/null
+++ b/docs/sysutex/ex2.pp
@@ -0,0 +1,9 @@
+Program Example2;
+
+{ This program demonstrates the DateTimeToFileDate function }
+
+Uses sysutils;
+
+Begin
+  Writeln ('FileTime of now would be: ',DateTimeToFileDate (Now)); 
+End.
\ No newline at end of file
diff --git a/docs/sysutex/ex3.pp b/docs/sysutex/ex3.pp
new file mode 100644
index 0000000000..2de89d16e1
--- /dev/null
+++ b/docs/sysutex/ex3.pp
@@ -0,0 +1,10 @@
+Program Example3;
+
+{ This program demonstrates the DateTimeToStr function }
+
+Uses sysutils;
+
+Begin
+  Writeln ('Today is : ',DateTimeToStr(Now));
+  Writeln ('Today is : ',FormatDateTime('c',Now));
+End.
\ No newline at end of file
diff --git a/docs/sysutex/newex b/docs/sysutex/newex
new file mode 100644
index 0000000000..32007c1ee5
--- /dev/null
+++ b/docs/sysutex/newex
@@ -0,0 +1,9 @@
+#!/bin/sh
+if [ -e ex${1}.pp ]; then
+  mv ex${1}.pp ex${1}.pp.orig
+fi
+sed -e s/Example/Example$1/ -e s/\\\*\\\*\\\*/$2/ <template.pp >ex${1}.pp
+echo "ex${1}.pp contains an example of the $2 function." >>README
+joe ex${1}.pp
+ppc386 ex${1}.pp && ex${1}
+rm ex${1}.o
diff --git a/docs/sysutex/template.pp b/docs/sysutex/template.pp
new file mode 100644
index 0000000000..a32ec07e67
--- /dev/null
+++ b/docs/sysutex/template.pp
@@ -0,0 +1,8 @@
+Program Example;
+
+{ This program demonstrates the *** function }
+
+Uses sysutils;
+
+Begin
+End.
\ No newline at end of file