Add(MainForm,2953706,140,203)
{
}
Add(Memory,2592677,196,203)
{
 Default=Integer(20)
}
Add(VBJScript,14052711,196,259)
{
 WorkPoints=#6:doWork|
 EventPoints=#5:onStr|
 DataPoints=#6:Number|4:Char|
 Script=#23:Sub doWork(Data, Index)|40:  sys.onStr String(sys.Number, sys.Char)|7:End Sub|
 UseName=0
 link(onStr,4799275:doAdd,[])
 link(Number,2592677:Value,[])
 link(Char,919395:Value,[(209,247)(251,247)])
}
Add(Memory,919395,245,203)
{
 Default=String(*)
}
Add(Memo,4799275,245,259)
{
 Left=85
 Top=10
 Width=295
 Height=240
 Font=[Courier New,8,0,0,204]
}
Add(Button,7670575,140,259)
{
 Left=10
 Top=15
 link(onClick,14052711:doWork,[])
}