21 lines
453 B
Plaintext
21 lines
453 B
Plaintext
//NOTEST // It is very frustrating if this one is auto-tested
|
|
//
|
|
// DosShell
|
|
//
|
|
// This program shell to DOS
|
|
//
|
|
// Warning : DOS only
|
|
//
|
|
function Main()
|
|
|
|
local cOs := Upper( OS() )
|
|
|
|
if at( "WINDOWS", cOs ) != 0 .or. at( "DOS", cOs ) != 0
|
|
QOut( "About to shell to DOS.." )
|
|
__Run( GetEnv("COMSPEC") )
|
|
QOut( "Hey, I am back !" )
|
|
else
|
|
QOut( "Sorry this program is for Windows and DOS only" )
|
|
endif
|
|
return nil
|