//
// $Id: multiarg.prg 4561 2001-11-01 08:18:39Z davep $
//

//
// MultiArg
//
// Testing of multiple arguments
//
// Date : 1999/05/24
//
// Written by Eddie Runia <eddie@runia.com>
// www - http://www.harbour-project.org
//
// Placed in the public domain
//
function Main()

   ShoutArg( 1, "1", 2.5, .T. )
   ShoutArg( 2, "1", 2.5, .T. )
   ShoutArg( 3, "1", 2.5, .T. )
   ShoutArg( 4, "1", 2.5, .T. )
   ShoutArg( 5, "1", 2.5, .T. )
return nil


function ShoutArg( nArg, x1,x2,x3,x4,x5,x6,x7,x8,x9,x10 )

  QOut( nArg, "==", HB_PValue( nArg ) )
return nil
