fpcdocs/refex/ex17.pp


1
2
3
4
5
6
7
8
9
10
11

Program Example17;

{ Program to demonstrate the DSeg function. }

Var
  W : Word;

begin
  W:=DSeg; {W:=0, This function is provided for compatibility,
                  FPC is a 32 bit compiler.}
end.