proc main
   when quiet 300 call sendit

   while 1
      yield
   endwhile
endproc

proc sendit
   transmit "^M"
endproc