/* SLEEP.CMD is a REXX application for OS/2 2.x */
/* SLEEP.CMD will delay the specified number of seconds by going to sleep! */

/* eg. usage */
/* SLEEP 30 will delay 30 seconds then awaken */
/* SLEEP       will prompt the user for the seconds to delay */

/* This routine was prepared by Mark Dayhuff and is used at your own risk */

/*  Use  VIEW REXX.INF to find explanations of all logic used below */

call RxFuncAdd  'SysSleep', 'RexxUtil', 'SysSleep'
if arg() = 0 
  then 
    do
    say "Please enter the number of seconds to sleep"
    pull secs
    end
  else 
    secs=arg(1)
say  "On " date() "at " time()
say "A sleep of"  secs  " seconds is being executed, Sweet Dreams!" 
call SysSleep secs
call beep 262, 300
call beep 524, 300
call beep 330, 300
say "Cock-A-Doodle-Do! The time is now "  time('N')