/* Wait until rock exits */

Parse upper arg delay .

if ~datatype(delay,'w') then delay=3

delay=delay*50

do while show('P','ROCK')
  call delay(delay)
end

exit 0
