const
GOLD = $FFD700;

var
D: integer;

procedure ActivateServer();
begin

 D := 0;

end;

procedure AppOnIdle(Ticks: integer);
begin

 WriteConsole(0, INTToSTR(D), GOLD);

end;