home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / FOXPRO / CALNDR / CALDEMO.PRG < prev   
Text File  |  1992-01-23  |  581b  |  39 lines
  1. * caldemo.prg
  2. * sample program that uses GetADate function
  3.  
  4. #include keys.hdr
  5. #include colors.hdr
  6. #include system.hdr
  7. #include io.hdr
  8.  
  9. #include cal.hdr
  10.  
  11. VARDEF EXTERN && from data.hdr
  12.     BYTE     __color_enhcd
  13.     BYTE     __color_std
  14. ENDDEF
  15.  
  16. procedure Force_main
  17.   vardef
  18.     date result
  19.   enddef
  20.  
  21.   __color_std   = &red_black
  22.   __color_enhcd = &green_red
  23.  
  24.   result = GetADate(today())
  25.   if lastkey() <> &K_esc
  26.     @ 24, 10 ?? "You chose", result
  27.   else
  28.     @ 24, 10 ??  "You escaped"
  29.   endif
  30.   cursor_on
  31. endpro && of proc Force_main
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.