Add(Service,2953706,126,63)
{
 Wait=0
}
Add(Timer,45334,196,63)
{
 Interval=33
 link(onTimer,780:doReadKey,[])
}
Add(Keyboard,780,259,63)
{
 @Hint=#2:Up|
 Key=82
 link(onReadKey,4753:doCase,[])
}
Add(Case,4753,315,63)
{
 Value=Integer(0)
 link(onNextCase,777990:doWheel,[(394,69)(394,83)])
}
Add(MouseEvent,777990,441,63)
{
 Button=2
 WheelDelta=-100
 Point(doWheel)
}