Add(Timer,7084768,14,245)
{
 Interval=50
 link(onTimer,14424896:doReadKey,[])
}
Add(Keyboard,14424896,77,245)
{
 Key=17
 link(onReadKey,10889121:doCase,[])
}
Add(Case,10889121,140,245)
{
 Value=Integer(1)
 link(onTrue,11507812:doReadKey,[])
}
Add(Keyboard,11507812,196,252)
{
 link(onReadKey,14950194:doCase,[])
 link(Key,2833220:Value,[])
}
Add(Case,14950194,252,252)
{
 Value=Integer(1)
}
Add(Memory,2833220,196,189)
{
 Default=Integer(97)
}