home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / y2k.cmd < prev    next >
OS/2 REXX Batch file  |  1997-03-10  |  1KB  |  46 lines
  1. /* REXX */
  2.  
  3. parse source OS .
  4. if OS <> "OS/2" then exit
  5.  
  6. if date( S ) > 20000101 then exit
  7.  
  8. call RxFuncAdd SysLoadFuncs, RexxUtil, SysLoadFuncs
  9. call SysLoadFuncs
  10.  
  11. rc = SysCurState( off )
  12. rc = SysCls()
  13.  
  14. say "Y2K.CMD  1.4                           (C) Copyright IBM Corporation 1996."
  15. say "Countdown to Year 2000                     All rights reserved."
  16. say
  17.  
  18. today = left( date( "W" ), 3 ) date() right( time(), 8 )
  19. if length( today ) = 24 then
  20.    say "Sat 01 Jan 2000 00:00:00"
  21. else
  22.    say "Sat 1 Jan 2000 00:00:00"
  23. rowcol = SysCurPos()
  24. parse var rowcol row col
  25. rc = SysCurPos( 23, 1 )
  26. say "Press Enter to exit..."
  27.  
  28. do forever
  29.   rc = SysCurPos( row, col )
  30.   say left( date( "W" ), 3 ) date() right( time(), 8 )
  31.   say
  32.   DaysRemaining = 730119 - ( date( "B" ) + ( time( "S" ) / ( 24*60*60 ) ))
  33.                /* 730119 is base date of 01 Jan 2000 */
  34.   say format( DaysRemaining / 365   , 6, 2 ) "years"
  35.   say format( DaysRemaining / 30.42 , 6, 2 ) "months"
  36.   say format( DaysRemaining / 7     , 6, 2 ) "weeks"
  37.   say format( DaysRemaining         , 6, 2 ) "days"
  38.   if chars() > 0 then do
  39.      char = CharIn()
  40.      rc = SysCls()
  41.      exit 0
  42.   end
  43.   rc = SysSleep( 1 )
  44. end
  45.  
  46.