require(sm)

# DELAY Function Deffinition
# Written by JG Kunkel 6-09-2003
# -------------------------------------------------
DELAY<- function(T){
nextT<- Sys.time() + T
while (Sys.time() < nextT) { Ret<- T } 
}
# --------------------------------------------------
# End of Function DELAY


# Sample Use of DELAY function
# --------------------------------------------------
dt<- 5

cat(format(tbegin<- Sys.time(), "%a %b %d %X %Y") ,"\n")

cat(secs<-format(tbegin, "%X"), "\n")

plot(2*sin((1:100)*pi/30), 2*cos((1:100)*pi/30), col='red',type='n')
 lines(1*sin((1:100)*pi/30), 1*cos((1:100)*pi/30), col='red')
 lines(2*sin((1:100)*pi/30), 2*cos((1:100)*pi/30), col='red')
pause()
cat(secs<-format(Sys.time(), "%X"), "\n")
dum<-DELAY( dt )
 points(rnorm(100), rnorm(100), col='red')
cat(secs<-format(Sys.time(), "%X"), "\n")
dum<-DELAY( dt )
 lines(rnorm(100), rnorm(100), col='blue')
cat(secs<-format(Sys.time(), "%X"), "\n")
dum<-DELAY( dt )
 lines(rnorm(100), rnorm(100), col='orange')
cat(secs<-format(Sys.time(), "%X"), "\n")
dum<-DELAY( dt )
 lines(rnorm(100), rnorm(100), col='purple')
cat(secs<-format(Sys.time(), "%X"), "\n")
dum<-DELAY( dt )
lines(rnorm(100), rnorm(100), col='black')
cat(secs<-format(Sys.time(), "%X"), "\n")
dum<-DELAY( dt )
lines(rnorm(100), rnorm(100), col='green')