proc main
   when quiet 600 call closedown

   while 1
      yield
   endwhile
endproc

proc closedown
   pwexit
endproc