/*****************************************************************************
*                                                                            *
*   KASHA.SPL     Copyright (C) 2015 DSP Development Corporation             *
*                               All Rights Reserved                          *
*                                                                            *
*   Author:      Randy Race                                                  *
*                                                                            *
*   Synopsis:    Displays an image of a dear friend                          *
*                                                                            *
*   Revisions:   31 Aug 2015  RRR  Creation                                  *
*                                                                            *
*****************************************************************************/

#if @HELP_KASHA

    KASHA

    Purpose: Displays an image of a dear friend

    Syntax:  KASHA(num)

              num - Optional. An integer, 1 for the first image, any
                    other value for the second.

    Returns: Displays an image.

    Example:
             kasha()

             Displays the first image.

    Example:
             kasha(2)

             Displays the second image.

    Remarks:
             KASHA uses SHELLEXECUTE to display an image of an old
             friend. A better dog there never was.
 
   See Also:
             Shellexecute

#endif


/* my dog */
kasha(which)
{
        local kpic;

        if (argc < 1) which = 1;

        kpic = (which == 1) ? "data\kasha.jpg" : "data\kashadog.jpg";
        kpic = gethome + kpic;

        /* we miss you dear friend */
        shellexecute("open", kpic, 1, 3);
}