Program Example45;

{ Program to demonstrate the FExpand function. }

Uses oldlinux;

begin
  Writeln ('This program is in : ',FExpand(Paramstr(0)));
end.