RosettaCodeData/Task/Command-line-arguments/Harbour/command-line-arguments.harbour

PROCEDURE Main()

   LOCAL i

   FOR i := 1 TO PCount()
      ? "argument", hb_ntos( i ), "=", hb_PValue( i )
   NEXT

   RETURN