13 lines
221 B
Plaintext
13 lines
221 B
Plaintext
{ $M $4000,0,0 }
|
|
|
|
program ExecTest;
|
|
|
|
uses Dos;
|
|
|
|
begin
|
|
SwapVectors;
|
|
Exec('c:\command.com','');
|
|
SwapVectors;
|
|
if DosError<>0 then WriteLn('Dos-Error: ',DosError);
|
|
WriteLn('Exitcode: ',DosExitCode);
|
|
end. |