see changelog

harbour/ChangeLog

@@ -1,3 +1,7 @@
+19990616-21:40 CET Eddie Runia
+  * tests/working/dosshell.prg
+    new version added
+
 19990616-21:15 CET Matteo Baccan
   * makefile.vc
     correct updated version added

harbour/tests/working/dosshell.prg

@@ -6,16 +6,15 @@
 //
 // Warning : DOS only
 //
-#command ? [<xArg,...>] => QOut( <xArg> )
-#command ! <cCommand>   => __Run( <cCommand> )
 
 function Main()
 
-   local cOs := Upper( OS() )
+   local cOs    := Upper( OS() )
+   local cShell := GetEnv("COMSPEC")
 
    if (at( "WINDOWS", cOs ) != 0) .or. at( "DOS", cOs ) != 0
       ? "About to shell to DOS.."
-      ! GetEnv("COMSPEC")
+      ! (cShell)
       ? "Hey, I am back !"
    else
       ? "Sorry this program is for Windows and DOS only"