mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-30 14:08:14 +02:00
20 lines
493 B
ObjectPascal
20 lines
493 B
ObjectPascal
uses
|
|
go32;
|
|
|
|
begin
|
|
case (get_run_mode) of
|
|
rm_unknown :
|
|
Writeln('Unknown environment found');
|
|
rm_raw :
|
|
Writeln('You are currently running in raw mode ',
|
|
'(without HIMEM)');
|
|
rm_xms :
|
|
Writeln('You are currently using HIMEM.SYS only');
|
|
rm_vcpi :
|
|
Writeln('VCPI server detected. You''re using HIMEM and ',
|
|
'EMM386');
|
|
rm_dpmi :
|
|
Writeln('DPMI detected. You''re using a DPMI host like ',
|
|
'a windows DOS box or CWSDPMI');
|
|
end;
|
|
end. |