$!------------------------------------------------------------------------------
$!  Get the local system's architecture type.  F$GETSYI returns either "VAX"
$!  or "Alpha".
$!------------------------------------------------------------------------------
$!
$ cur_dir = F$ENVIRONMENT ("DEFAULT")
$ arch_name = F$GETSYI ("ARCH_NAME")
$ image = "$" + cur_dir - "]" + ".''arch_name']" + "server.exe;"
$ userver :== 'image
$ image = "$" + cur_dir - "]" + ".''arch_name']" + "client.exe;"
$ uclient :== 'image
$ if (p1 .nes. "") 
$ then
$     write SYS$OUTPUT "------------ Setup the Sample TCPIP service  --------------"
$     @set_service
$     write SYS$OUTPUT "------------ Sample TCPIP service is configured -----------"
$ else
$     write SYS$OUTPUT "------------ Setup ----------------------------------------"
$     write SYS$OUTPUT "SETUP-I-INFO, set_service.com is run ONE time for all the "
$     write sys$output "              MIT sample applications."
$     write SYS$OUTPUT "SETUP-I-INFO, You can do this now, if necessary, or use"
$     write sys$output "              @setup register
$     write SYS$OUTPUT "------------ Running the example --------------------------"
$endif
$!
$!
$ write sys$output "  Run the server like this:"
$ write sys$output "      $ userver "
$ write sys$output "  Run the client like this:"
$ write sys$output "      $ uclient <hostname> "
$ write SYS$OUTPUT "------------ Setup Complete --------------------------"
$ exit