use uo;
use os;

program testcycle(user)

   var ev;
   var bp := user.backpack;
   RegisterForSpeechEvents(bp,0,0);

   while (bp)
      ev := os::wait_for_event(10);
      if (ev)
           if(ev.text["test"])
                        print("it works!");
           elseif(ev.text["stop"])
                        print("stopped");
                        return;
           endif
           ev:=0;
      endif
   endwhile

endprogram