mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 15:31:29 +01:00
19 lines
307 B
ObjectPascal
19 lines
307 B
ObjectPascal
Program Example1;
|
|
uses Dos;
|
|
|
|
{ Program to demonstrate the DosVersion function. }
|
|
|
|
var
|
|
OS : string[32];
|
|
Version : word;
|
|
begin
|
|
{$IFDEF LINUX}
|
|
OS:='Linux';
|
|
{$ENDIF}
|
|
{$IFDEF DOS}
|
|
OS:='Dos';
|
|
{$ENDIF}
|
|
Version:=DosVersion;
|
|
WriteLn('Current ',OS,' version is ',Lo(Version),'.',Hi(Version));
|
|
end.
|