diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 7871d83cfa..215815654e 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,11 @@
+19990523-16:15 CET Patrick Mast (upload by Eddie Runia)
+  * tests/working/test_all.prg, tests/working/test_all.lnl
+    Testbank added.
+  * tests/working/*.prg
+    So programs not qualified for testing.
+  * tests/working/rtl_test.prg
+    function Main() added
+
 19990523-14:30 CET Eddie Runia
   * tools.b16, tools.b32, bldtls32, bldtools.bat
     send to heaven
diff --git a/harbour/tests/working/dupvars.prg b/harbour/tests/working/dupvars.prg
index 09e51aa364..3161a85942 100644
--- a/harbour/tests/working/dupvars.prg
+++ b/harbour/tests/working/dupvars.prg
@@ -1,3 +1,4 @@
+//NOTEST
 // Testing Harbour duplicate variable definition detection
 
 function Main()
diff --git a/harbour/tests/working/keywords.prg b/harbour/tests/working/keywords.prg
index 9ea642661f..56a612b45a 100644
--- a/harbour/tests/working/keywords.prg
+++ b/harbour/tests/working/keywords.prg
@@ -1,3 +1,4 @@
+//NOTEST
 /*
  * $Id$
 */
diff --git a/harbour/tests/working/next.prg b/harbour/tests/working/next.prg
index 236e58759c..83b5aa0077 100644
--- a/harbour/tests/working/next.prg
+++ b/harbour/tests/working/next.prg
@@ -1,3 +1,4 @@
+//NOTEST
 // Using nExt variable name
 
 //DO NOT RUN THIS PROGRAM - ITS PURPOSE IS ONLY TO CHECK THE SYNTAX!
diff --git a/harbour/tests/working/readhrb.prg b/harbour/tests/working/readhrb.prg
index b2879e7dbe..ec063117a5 100644
--- a/harbour/tests/working/readhrb.prg
+++ b/harbour/tests/working/readhrb.prg
@@ -1,3 +1,4 @@
+//NOTEST
 /*
    ReadHRB
 
diff --git a/harbour/tests/working/rtl_test.prg b/harbour/tests/working/rtl_test.prg
index 0ee14e82c7..15cbfb08da 100644
--- a/harbour/tests/working/rtl_test.prg
+++ b/harbour/tests/working/rtl_test.prg
@@ -4,6 +4,8 @@
 /* TODO: Incorporate tests from TEST\WORKING\STRING*.PRG
 /* QUESTION: Can Harbour compile and run this (PadR(), Chr(), fWrite(), StrTran()) ? */
 
+function Main()
+
 #define NUL                             Chr(0)
 
 SHOW_TEST('At("", "")'                , Str(At("", ""))             ) // 1
@@ -101,6 +103,8 @@ SHOW_TEST('SubStr("ab" + NUL + "def", 2, 3)', SubStr("ab" + NUL + "def", 2, 3) )
 SHOW_TEST('Left("ab" + NUL + "def", 5)', Left("ab" + NUL + "def", 5) )
 SHOW_TEST('Right("ab" + NUL + "def", 5)', Right("ab" + NUL + "def", 5) )
 
+return nil
+
 STATIC FUNCTION SHOW_TEST(cExpr, cResult)
      RETURN fWrite(1, PadR(StrTran(cExpr, Chr(0), "."), 40) + " -> " + '"' + StrTran(cResult, Chr(0), ".") + '"' + Chr(13) + Chr(10))
 
diff --git a/harbour/tests/working/spawn.prg b/harbour/tests/working/spawn.prg
index 7ec1fedf06..1c37775701 100644
--- a/harbour/tests/working/spawn.prg
+++ b/harbour/tests/working/spawn.prg
@@ -1,3 +1,4 @@
+//NOTEST
 //
 // Spawn()
 //
diff --git a/harbour/tests/working/spawn2.prg b/harbour/tests/working/spawn2.prg
index c0ae8cfc89..aeaaa2d7df 100644
--- a/harbour/tests/working/spawn2.prg
+++ b/harbour/tests/working/spawn2.prg
@@ -1,3 +1,4 @@
+//NOTEST
 //
 // Spawn2 called from Spawn
 //
diff --git a/harbour/tests/working/test10.prg b/harbour/tests/working/test10.prg
index 66eff3a130..19ae02e922 100644
--- a/harbour/tests/working/test10.prg
+++ b/harbour/tests/working/test10.prg
@@ -1,3 +1,4 @@
+//NOTEST
 // compile this using Harbour /10 flag
 
 Function Main()
diff --git a/harbour/tests/working/test_all.lnk b/harbour/tests/working/test_all.lnk
new file mode 100644
index 0000000000..f3b22457f1
--- /dev/null
+++ b/harbour/tests/working/test_all.lnk
@@ -0,0 +1,5 @@
+OUTPUT TEST_ALL.exe
+
+  FILE TEST_ALL.OBJ
+  LIB  BLXCLP52, BLXRATEX
+
diff --git a/harbour/tests/working/test_all.prg b/harbour/tests/working/test_all.prg
new file mode 100644
index 0000000000..53fd5a765c
--- /dev/null
+++ b/harbour/tests/working/test_all.prg
@@ -0,0 +1,52 @@
+//NOTEST
+// AutoMatic Test Bank
+// Patrick Mast
+// For 32 bits Borland Compiler.
+
+// Sorry, only clipper compile (I want this thing Compiled in Harbour!<g>, So give me Directory() Please)
+
+Function Main()
+LOCAL aDir,f,o,cRead
+
+aDir:=Directory("*.PRG")
+o=fCreate("Test_All.Bat")
+FOR f=1 TO Len(aDir)
+    IF TestIt(aDir[f][1])
+       fWrite(o,;
+              "..\..\bin\harbour "+aDir[f][1]+" /n /i..\..\include"+Chr(13)+Chr(10)+;
+              "if errorlevel 1 goto end"+Chr(13)+Chr(10)+;
+              "echo -O2 -e"+Left(aDir[f][1],Len(aDir[f][1])-4)+".EXE -I..\..\include ..\..\source\vm\hvm.c "+Left(aDir[f][1],Len(aDir[f][1])-4)+".C > b32.bc"+Chr(13)+Chr(10)+;
+              "echo ..\..\libs\b32\harbour.lib  ..\..\libs\b32\terminal.lib >> b32.bc"+Chr(13)+Chr(10)+;
+              "bcc32 @b32.bc"+Chr(13)+Chr(10)+;
+              "if errorlevel 1 goto end"+Chr(13)+Chr(10)+;
+              "del b32.bc"+Chr(13)+Chr(10)+Chr(13)+Chr(10))
+    ENDIF
+NEXT
+
+fWrite(o,":END"+Chr(13)+Chr(10))
+fWrite(o,"del b32.c"+Chr(13)+Chr(10))
+fClose(o)
+
+RETURN NIL
+
+
+
+Function TestIt(cFile)
+LOCAL nH1,lRetu,nH2
+
+nH1=fOpen(cFile)
+lRetu:=Upper(fReadStr(nH1,8))<>"//NOTEST"
+fClose(nH1)
+
+IF !lRetu
+   IF !File("NotTestd.txt")
+      nH2=fCreate("NotTestd.txt")
+   ELSE
+      nH2=fOpen("NotTestd.txt",1)
+   ENDIF
+   fSeek(nH2,0,2)
+   fWrite(nH2,DtoC(Date())+"  "+Time()+"  "+cFile+Chr(13)+Chr(10))
+   fClose(nH2)
+ENDIF
+
+RETURN lRetu
diff --git a/harbour/tests/working/testid.prg b/harbour/tests/working/testid.prg
index bbd6d3d5c9..55480bf4b1 100644
--- a/harbour/tests/working/testid.prg
+++ b/harbour/tests/working/testid.prg
@@ -1,3 +1,4 @@
+//NOTEST
 // Warning: This sample must be tested using /dTEST compiler flag
 
 #define FIRST