33 lines
636 B
Plaintext
33 lines
636 B
Plaintext
//NOTEST // It is very frustrating if this one is auto-tested
|
|
//
|
|
// $Id$
|
|
//
|
|
|
|
//
|
|
// DosShell
|
|
//
|
|
// This program shell to DOS
|
|
//
|
|
// Warning : DOS only
|
|
//
|
|
// Written by Eddie Runia <eddie@runia.com>
|
|
// www - http://www.harbour-project.org
|
|
//
|
|
// Placed in the public domain
|
|
//
|
|
|
|
function Main()
|
|
|
|
local cOs := Upper( OS() )
|
|
local cShell := GetEnv("COMSPEC")
|
|
|
|
if at( "WINDOWS", cOs ) != 0 .or. at( "DOS", cOs ) != 0 ;
|
|
.or. at( "OS/2", cOs ) != 0
|
|
? "About to shell to DOS.."
|
|
! (cShell)
|
|
? "Hey, I am back !"
|
|
else
|
|
? "Sorry this program is for Windows, DOS, and OS/2 only"
|
|
endif
|
|
return nil
|