$FUNCNAME$
   FT_CALENDAR()
$CATEGORY$
   Date/Time
$ONELINER$
   Display date/time calendar, find a date, return calendar data.
$SYNTAX$
   FT_CALENDAR ( [ <nRow> ], [ <nCol> ], [ <cColor> ], [ <lShadow> ] ,
		 [ <lShowHelp> ] ) --> aRetVal
$ARGUMENTS$

   <nRow> is an optional screen row for calendar display,
	  default row 1.

   <nCol> is an optional screen col for calendar display,
	  default col 63.

   <cColor> is an optional color string for displayed messages,
	    default is bright white text over green background.

   <lShadow> is an optional logical variable. If true (.T.),
	     it uses FT_SHADOW() to add a transparent shadow
	     to the display, default (.F.).

   <lShowHelp> is an optional logical variable. If true, uses
	       FT_XBOX to display  a four line help message
	       if the F1 key is pressed, default (.F.).

$RETURNS$
   aRetVal  is an 8 element array containing date, month, day, year,
	    month (in character format), day of the week, julian day
	    and current time.

$DESCRIPTION$
   FT_CALENDAR() simply displays today's date, time and julian
   day in a two line display with an optional box shadow. Cursor keys may
   be used to page through the calendar by day, week, month or year
   increments. Returns an 8 element array of calendar data:

   Element  Value
   [1]      Date in current date format.
   [2]      Numeric month number.
   [3]      Numeric day number.
   [4]      Numeric year number.
   [5]      Month in character format.
   [6]      Day of the week in character format.
   [7]      Numeric Julian day.
   [8]      Current time in time format.

   WARNING: FT_CALENDAR uses FT_SHADOW and FT_XBOX
	    from the Nanforum Toolkit!

$EXAMPLES$

 LOCAL aRetVal[8]
 CLS
 aRetVal := FT_CALENDAR (10,40,'W+/RB',.T.,.T.)
 ?aRetVal[1]      // Result: 04/20/91
 ?aRetVal[2]      // Result:   4
 ?aRetVal[3]      // Result:  20
 ?aRetVal[4]      // Result:  1991
 ?aRetVal[5]      // Result: April
 ?aRetVal[6]      // Result: Saturday
 ?aRetVal[7]      // Result:        110
 ?aRetVal[8]      // Result: 12:45:20

$SEEALSO$
   FT_DAYOFYR()

$Author: itk $
   Isa Asudeh
$end$

