home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / clipper / calend3.zip / TEST_CAL.PRG < prev    next >
Text File  |  1993-06-10  |  1KB  |  26 lines

  1. /**************************************************************************
  2. ** Test Program for CALENDAR()                                           **
  3. **************************************************************************/
  4.  
  5.   dDate   := CtoD("")
  6.   mSelect := Date()
  7.   nTopRow      := 10
  8.   nLftCol      := 25
  9.   cl      := "W/B,B/W,,,I+"                             /* Color Monitor */
  10.   clear
  11. * @ 2,1 say "Top Row : " get nTopRow    Picture '99'                      ;
  12. *                          Valid ( nTopRow < MaxRow()- 8 .and. nTopRow > 0)
  13. * @ 3,1 say "Left Col: " get nLftCol    Picture '99'                      ;
  14. *                          Valid ( nLftCol < MaxCol()-21 .and. nLftCol > 0)
  15.   @ 4,1 say "Color: "    get cl    Picture '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
  16.   Read
  17.   @ 6,1 SAY "Date: "     get dDate Picture '@D'                           ;
  18.         Valid Iif(Empty(dDate),                                           ;
  19.                  (dDate := CALENDAR(dDate, nTopRow, nLftCol, cl),.t.),.t. )
  20.   Read
  21.  
  22. * dDate := CALENDAR(dDate, nTopRow, nLftCol, cl)
  23. * dDate := CALENDAR(Date(), nTopRow, nLftCol, cl)
  24.   @ 23,10 say "You Selected: " + DtoC(dDate)
  25. Return dDate
  26.