Category : Pascal Source Code
Archive   : SYSTEM20.ZIP
Filename : VERSION.PAS

procedure DVERS;
function DosVer : Real;
var

Regs : record
AX,BX,CX,DX,BP,SI,DI,DS,ES,Flags : Integer;
{! 1. Instead use the Registers type from the Turbo 4.0 ^DOS unit.}
end;
AL,AH : Byte;

begin
Regs.AX := $3000;
MSDos( Dos.Registers(Regs) );
{! 2. Para^meter to MsDos must be of the type Registers defined in DOS unit.}
AL := Regs.AX and $FF;
AH := ( Regs.AX and $FF00 ) shr 8;
{! 3. Assign unsigned v^alues of $8000 or larger only to Word or LongInt types.}
DosVer := AL + AH/100;
end; { of func DosVer }

begin { main body of program DosVersion }
WRITEln(DosVer:4:2);
end; { of program DosVersion }