Listing 2

short calculate_output(net)
   short net;
{
   short result;
   result = 1;
   if(net < 0) result = -1;
   return (result);
}   /* ends calculate_output */
/*  End of File */