proc main
   set aspect control on

   while 1
      yield
   endwhile
endproc