added sleep proc.
case read [100.
case write {100]
case open [100]