* allow port to be specified on command line

* use a standard port as default

git-svn-id: trunk@37949 -

packages/fcl-web/examples/echo/fphttp/echo.lpr

@@ -3,10 +3,10 @@ program echo;
 {$mode objfpc}{$H+}
 
 uses
-  fphttpapp, wmecho;
+  SysUtils, fphttpapp, wmecho;
 
 begin
-  Application.Port:=2018;
+  Application.Port:=StrToIntDef(ParamStr(1), 8080);
   Application.Initialize;
   Application.Run;
 end.