The  Horse Race  tool  provides the  ultimate  method of  choosing  who
should buy  coffee.  Up  to 7 horses  may run in  each race.   The race
lasts less than a minute.

A typical command would be entered as:

             HORSERACE

A  display would  appear with 7  horses lined up.   You  may select 2-7
horses.  When Enter is pressed the race starts.

If you prompt for  the HORSERACE command, you  may enter the number  of
horses as well as the names of the horses.  The defaults are shown.

HORSERACE escape messages you can monitor for
---------------------------------------------

None.  Escape messages from based on functions will be re-sent.

Command parameters                                    *CMD
------------------

   NBR           The number  of horses  for the race.   The  default is
                 7.  The number must be in a range of 2-7.

   HORSE1        The  name of  horse number 1.   The  default is 'Lucky
                 Dan'.

   HORSE2        The name of  horse number  2.  The  default is  'Sweet
                 Sue'.

   HORSE3        The  name  of   horse  number  3.     The  default  is
                 'Stewball'.

   HORSE4        The  name of  horse number  4.   The default  is 'Paul
                 Revere'.

   HORSE5        The name  of  horse number  5.   The  default  is  'My
                 Judy'.

   HORSE6        The name  of horse  number 6.   The  default is  'Lord
                 Byron.'

   HORSE7        The  name   of  horse  number  7.     The  default  is
                 'Beetlebomb'.

Restrictions
------------

None.

Prerequisites
-------------

The following TAA Tools must be on your system:

     GENRANNBR       Generate random number
     DLYJOB2         Delay Job 2
     RTVDAT          Retrieve date
     RTVSYSVAL3      Retrieve system value 3

Implementation
--------------

None, the tool is ready to use.

Objects used by the tool
------------------------

   Object        Type    Attribute      Src member    Src file
   ------        ----    ---------      ----------    ----------

   HORSERACE     *CMD                   TAAGAMA       QATTCMD
   TAAGAMAC      *PGM       CLP         TAAGAMAC      QATTCL
   TAAGAMAR      *PGM       RPG         TAAGAMAR      QATTRPG
   TAAGAMAD      *FILE      DSPF        TAAGAMAD      QATTDDS
   TAAGAMAZ      *DTAARA