Applet.fModalForm := nil;

Add(Zipper,2776267,539,504)
{
 ZipFileName="file.zip"
 Method=3
 link(BasePath,1196626:Var,[])
}
Add(Hub,1469232,357,497)
{
 OutCount=5
 link(onEvent2,2776267:doCreate,[])
 link(onEvent3,1911160:doData,[(418,517)(418,468)])
 link(onEvent4,2776267:doCompress,[])
 link(onEvent5,2776267:doClose,[])
}
Add(DoData,1911160,448,462)
{
 Data=String(File.txt)
 link(onEventData,2776267:doOrder,[(506,468)(506,517)])
}
Add(Button,6550692,273,497)
{
 Left=100
 Top=65
 Width=50
 Caption="ZIP"
 link(onClick,1469232:doEvent1,[])
}
Add(Dir,11183407,546,392)
{
}
Add(Memo,16136932,434,238)
{
 Left=225
 Top=125
 Width=140
 Height=185
}
Add(Button,13641208,259,273)
{
 Left=100
 Top=125
 Width=110
 Caption="Сохранить текст"
 link(onClick,15455197:doExecute,[])
}
Add(SDialog,15455197,315,273)
{
 link(onExecute,16136932:doSave,[])
}
Add(Debug,1196626,546,462)
{
 link(Data,11183407:CurrentDir,[])
}

Add(Zipper,2776267,574,448)
{
 Method=3
 link(ZipFileName,3297165:GetData,[])
}
Add(Hub,1469232,392,441)
{
 OutCount=5
 link(onEvent1,396063:doStrCat,[(440,447)(440,356)])
 link(onEvent2,2776267:doCreate,[])
 link(onEvent3,1911160:doData,[(453,461)(453,412)])
 link(onEvent4,2776267:doCompress,[])
 link(onEvent5,2776267:doClose,[])
}
Add(DoData,1911160,483,406)
{
 Data=String(File.txt)
 link(onEventData,2776267:doOrder,[(541,412)(541,461)])
}
Add(Button,6550692,308,441)
{
 Left=100
 Top=65
 Width=50
 Caption="ZIP"
 link(onClick,1469232:doEvent1,[])
}
Add(Dir,11183407,518,294)
{
}
Add(Memo,16136932,469,182)
{
 Left=225
 Top=125
 Width=140
 Height=185
}
Add(Button,13641208,294,217)
{
 Left=100
 Top=125
 Width=110
 Caption="Сохранить текст"
 link(onClick,15455197:doExecute,[])
}
Add(SDialog,15455197,350,217)
{
 link(onExecute,16136932:doSave,[])
}
Add(StrCat,396063,518,350)
{
 Str2="file.zip"
 link(onStrCat,3297165:doData,[])
 link(Str1,11183407:CurrentDir,[])
}
Add(EventFromData,3297165,574,350)
{
}