/* REXX                                                */     
/* Year 2000 CountDown                                 */     
/* example of date() & time() usage.                   */     
/* Display current date, plus days, hours, minutes,    */     
/* and seconds before year 2000.                       */     
/* by: Bruce Gillispie - 03/03/1999 - Tech Support     */     
/*                                                     */     
 'clear'     /* CLS on some systems...                 */                                                     
 parse value time('N') with hh +2 . +1 mm +2 . +1 ss +2 ;     
 parse value date('S') with yyyy +4 mm +2 dd +2 ;             
  say 'Today is 'date('W',(date('B')),'B')' 'date('M'),       
       strip(dd,,'0')', 'yyyy' (day 'date('D')' of 'yyyy')';  
  say 'Only' (date('B',19991231,'S')-date('B')),              
      'days' (23-hh) 'hours' (59-mm) 'minutes and',           
      (59-ss) 'seconds before the Year 2000.';                
 exit 00