diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 017b96f7b6..2f66c83065 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,23 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2010-04-24 10:41 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
+  + examples/ps32
+  + examples/ps32/ps32.hbp
+  + examples/ps32/ps32.hbc
+  + examples/ps32/ps32.dif
+  + examples/ps32/readme.txt
+  + examples/ps32/tests
+  + examples/ps32/tests/hbmk.hbm
+    + Added necessary files to use PageScript32 with Harbour.
+      (it's a payware product, so if anyone has any slight
+      aversion to this, or the small .dif poses even the
+      slightest chance of copyright issue, pls tell and I'll
+      delete the whole stuff.)
+      BTW, ideally someone should post this patch to the
+      authors of the library, after all it's their interest
+      to make it work with Harbour. The patch is very simple.
+
 2010-04-23 23:05 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
   * contrib/hbide/idemisc.prg
     ! Fixed to store original filename without case convertion inside .hbp.
diff --git a/harbour/examples/ps32/ps32.dif b/harbour/examples/ps32/ps32.dif
new file mode 100644
index 0000000000..2cf36aef84
--- /dev/null
+++ b/harbour/examples/ps32/ps32.dif
@@ -0,0 +1,26 @@
+--- ori\tpscript.prg	Mon Sep 22 08:51:46 2008
++++ tpscript.prg	Sat Apr 24 10:22:47 2010
+@@ -40,12 +40,12 @@
+ #include "PScript.ch"
+ #include "FileIO.ch"
+ 
+-#ifdef __XHARBOUR__
++#ifdef __HARBOUR__
+    // 02.06.2005 - IBTC - changed for xHarbour Builder:
+    #xtranslate Method <Classname>:<x> => Method <x>
+-   #define DLL_STDCALL NIL
+ 
+    #include "hbclass.ch"
++   #include "Dll.ch"
+ #else
+    #include "Xbp.ch"
+    #include "Dll.ch"
+@@ -242,7 +242,7 @@
+ 
+ ::hDll        := DllLoad("PScript.dll") // Handle of the .DLL
+ 
+-if ::hDll == 0
++if Empty( ::hDll )
+    ::nError := PSE_DLLNOTLOADED        // DLL not loaded error
+ else
+    ::nError := DllCall(::hDll, DLL_STDCALL, "PSInit")
diff --git a/harbour/examples/ps32/ps32.hbc b/harbour/examples/ps32/ps32.hbc
new file mode 100644
index 0000000000..8f3d582110
--- /dev/null
+++ b/harbour/examples/ps32/ps32.hbc
@@ -0,0 +1,10 @@
+#
+# $Id$
+#
+
+incpaths=.
+libpaths=lib/${hb_plat}/${hb_comp}
+
+libs=ps32
+
+libs=..\contrib\hbxpp\hbxpp.hbc
diff --git a/harbour/examples/ps32/ps32.hbp b/harbour/examples/ps32/ps32.hbp
new file mode 100644
index 0000000000..cedc8f24ba
--- /dev/null
+++ b/harbour/examples/ps32/ps32.hbp
@@ -0,0 +1,9 @@
+#
+# $Id$
+#
+
+-hblib
+-olib/${hb_plat}/${hb_comp}/ps32
+-inc
+
+tpscript.prg
diff --git a/harbour/examples/ps32/readme.txt b/harbour/examples/ps32/readme.txt
new file mode 100644
index 0000000000..fef5736cf5
--- /dev/null
+++ b/harbour/examples/ps32/readme.txt
@@ -0,0 +1,27 @@
+/*
+ * $Id$
+ */
+
+1.) Obtain PageScript32 installation and install it.
+    (even the evaluation version will do)
+
+2.) Copy these files from PageScript32 installation
+    to this folder:
+       PScript.ch
+       TPSCRIPT.PRG
+
+    You may also want to copy this file to 'tests' subdir:
+       PSTest.prg
+
+3.) Apply supplied patch to the source using GNU Patch:
+    patch -lNi ps32.dif
+
+4.) Build it:
+    hbmk2 ps32.hbp
+
+5.) You're done.
+
+6.) Finally, to build an application with PageScript32, use:
+    hbmk2 myapp.prg ps32.hbc
+
+[vszakats]
diff --git a/harbour/examples/ps32/tests/hbmk.hbm b/harbour/examples/ps32/tests/hbmk.hbm
new file mode 100644
index 0000000000..e65df1d1a5
--- /dev/null
+++ b/harbour/examples/ps32/tests/hbmk.hbm
@@ -0,0 +1,5 @@
+#
+# $Id$
+#
+
+../ps32.hbc