Make(delphi)
ver(4.04 build 184)
Add(MainForm,2953706,70,84)
{
 Width=320
 Height=240
 Color=14671839
 Caption=""
 BorderStyle=0
 DragForm=0
 Position=1
 Point(doColor)
 Point(onKeyUp)
 Point(Handle)
 link(onCreate,13988333:doEvent1,[])
 link(onKeyUp,12872442:doCase,[])
}
Add(Label,15971281,742,182)
{
 Left=30
 Top=50
 Width=260
 Height=27
 Color=14671839
 Font=[Tahoma,14,0,0,204]
 Caption=""
 AutoSize=1
 Alignment=2
 Point(doLeft)
 Point(Left)
}
Add(Label,9080219,742,231)
{
 Left=30
 Top=105
 Width=260
 Height=27
 Color=14671839
 Font=[Tahoma,14,0,0,204]
 Caption=""
 AutoSize=1
 Alignment=2
 Point(doLeft)
 Point(Left)
}
Add(Label,4268321,742,280)
{
 Left=30
 Top=155
 Width=260
 Height=27
 Color=14671839
 Font=[Tahoma,14,0,0,204]
 Caption=""
 AutoSize=1
 Alignment=2
 Point(doLeft)
 Point(Left)
}
Add(StrList,10370973,532,119)
{
 Strings=#0:|9:Январь...|10:Февраль...|7:Март...|9:Апрель...|6:Май...|7:Июнь...|7:Июль...|9:Август...|11:Сентябрь...|
}
Add(Counter,10940096,462,224)
{
 Max=2000
 link(onNext,9715963:doEvent,[(506,230)(506,334)(443,334)(443,349)])
}
Add(ArrayRW,10610084,546,182)
{
 link(onRead,2540853:doWork2,[])
 link(Array,10370973:Array,[])
}
Add(StrCat,5160069,546,231)
{
 Str2="..."
 link(onStrCat,5595497:doWork2,[])
}
Add(StrCat,2088222,546,280)
{
 Str2="..."
 link(onStrCat,5248097:doWork2,[])
}
Add(Label,16279767,882,357)
{
 Left=30
 Top=80
 Width=260
 Height=30
 Color=16349227
 Font=[Tahoma,18,0,16777215,204]
 Visible=1
 Caption="С Днем программиста!"
 AutoSize=1
 Alignment=2
 Point(doVisible)
 Point(doColor)
}
Add(Label,15617033,882,399)
{
 Left=30
 Top=135
 Width=260
 Height=20
 Color=16349227
 Font=[Tahoma,10,2,16777215,204]
 Visible=1
 Caption="...в 256-й день каждого года..."
 AutoSize=1
 Alignment=2
 Point(doVisible)
 Point(doColor)
}
Add(Hub,1048165,630,378)
{
 OutCount=3
 link(onEvent1,3938806:doData,[(651,384)(651,370)])
 link(onEvent2,3648935:doEvent1,[(653,391)(653,405)])
}
Add(Hub,3648935,854,399)
{
 InCount=2
 link(onEvent1,16279767:doVisible,[(874,405)(874,370)])
 link(onEvent2,15617033:doVisible,[])
}
Add(Switch,12937226,763,406)
{
 DataOn=Integer(0)
 DataOff=Integer(1)
 Point(doOn)
 link(onSwitch,3648935:doEvent2,[])
}
Add(DoData,3938806,679,364)
{
 Data=String(16711680)
 link(onEventData,7164401:doEvent1,[])
}
Add(Case,12872442,126,105)
{
 Value=Integer(13)
 link(onNextCase,3683289:doCase,[])
 link(onTrue,12558585:doAnimate,[(171,118)(171,194)(58,194)(58,153)])
}
Add(Case,3683289,189,105)
{
 Value=Integer(8)
 link(onTrue,13988333:doEvent2,[(233,118)(233,111)])
}
Add(Label,198022,889,434)
{
 Left=30
 Top=215
 Width=260
 Height=17
 Color=16349227
 Font=[Tahoma,8,0,16777215,204]
 Visible=1
 Caption="Enter - exit, Backspace - restart"
 AutoSize=1
 Alignment=2
 Point(doVisible)
 Point(doColor)
}
Add(Hub,13988333,245,98)
{
 InCount=2
 OutCount=6
 link(onEvent1,16189711:doData,[])
 link(onEvent2,16479141:doEvent1,[])
 link(onEvent3,6581716:In,[])
 link(onEvent4,2305521:doEvent1,[(419,125)(419,244)])
 link(onEvent5,1983641:doReset,[(278,132)(278,221)(172,221)(172,300)])
 link(onEvent6,16318719:doWork1,[(271,139)(271,173)(184,173)])
}
Add(Hub,16479141,574,105)
{
 OutCount=4
 link(onEvent1,3166281:doData,[])
 link(onEvent2,2540853:doWork1,[(627,118)])
 link(onEvent3,5595497:doWork1,[(620,125)])
 link(onEvent4,5248097:doWork1,[(613,132)])
}
Add(HubEx,2540853,623,182)
{
 link(onEvent,15971281:doText,[])
}
Add(HubEx,5595497,616,231)
{
 link(onEvent,9080219:doText,[])
}
Add(HubEx,5248097,609,280)
{
 link(onEvent,4268321:doText,[])
}
Add(WindowAnimation,12558585,70,147)
{
 Step=3
 Type=10
 InNewThread=1
 link(onEndAnimation,2953706:doClose,[(115,153)(115,183)(52,183)(52,111)])
 link(Handle,2953706:Handle,[])
}
Add(LineBreak,10026358,-7,112)
{
 Caption="color"
 link(Out,960227:doWork2,[])
 Primary=[14202056,812,252]
}
Add(LineBreak,14664069,546,434)
{
 Caption="reset_p"
 link(Out,2286046:doData,[])
 Primary=[6581716,-175,-322]
}
Add(Math,9891950,581,343)
{
 OpType=1
 Op2=4
 link(onResult,7624785:doEvent2,[])
 link(Op1,4268321:Left,[(587,327)(755,327)])
}
Add(Hub,7164401,749,364)
{
 OutCount=4
 link(onEvent1,14202056:In,[])
 link(onEvent2,16279767:doColor,[])
 link(onEvent3,15617033:doColor,[(829,384)(829,419)])
 link(onEvent4,198022:doColor,[(819,391)(819,454)])
}
Add(DoData,3166281,637,105)
{
 Data=Integer(30)
 link(onEventData,7624785:doEvent1,[(681,111)(681,342)])
}
Add(Hub,7624785,693,336)
{
 InCount=2
 OutCount=3
 link(onEvent1,15971281:doLeft,[(718,342)(718,195)])
 link(onEvent2,9080219:doLeft,[(727,349)(727,244)])
 link(onEvent3,4268321:doLeft,[(737,356)(737,293)])
}
Add(DoData,16189711,462,98)
{
 Data=String(14671839)
 link(onEventData,960227:doWork1,[(500,104)(500,69)(39,69)])
}
Add(HubEx,960227,35,112)
{
 link(onEvent,2953706:doColor,[])
}
Add(DoData,2286046,651,434)
{
 Data=Integer(0)
 link(onEventData,7667016:doEvent1,[])
}
Add(Hub,7667016,700,434)
{
 link(onEvent1,12937226:doOn,[(737,440)(737,426)])
 link(onEvent2,634526:doWork2,[])
}
Add(HubEx,634526,868,441)
{
 link(onEvent,198022:doVisible,[])
}
Add(StrList,3777384,245,238)
{
 Strings=#5:500;9|6:100;13|6:15;256|6:2000;1|6:13;100|5:500;1|6:500;11|6:1000;1|
 Point(doGetString)
 Point(onGetString)
 Point(Index)
 link(onGetString,8559086:doEvent1,[])
}
Add(MultiStrData,3950999,322,252)
{
 link(onPart1,14299959:doInterval,[])
 link(onPart2,14299959:doAutoStop,[])
}
Add(Timer,14299959,371,238)
{
 Interval=0
 Enable=1
 Point(onStop)
 Point(doInterval)
 Point(doAutoStop)
 link(onTimer,10940096:doNext,[(411,244)(411,230)])
 link(onStop,2305521:doEvent2,[])
}
Add(IndexToChanel,9715963,455,343)
{
 Count=8
 Point(Index)
 Point(Data)
 link(onEvent1,10610084:doRead,[(512,349)(512,188)])
 link(onEvent2,5160069:doStrCat,[(521,356)(521,237)])
 link(Index,3777384:Index,[(461,313)(272,313)])
 link(Data,10940096:Count,[])
 link(onEvent3,2088222:doStrCat,[(532,363)(532,286)])
 link(onEvent5,9891950:doOperation,[(562,377)(562,349)])
 link(onEvent6,1048165:doEvent1,[])
 link(onEvent7,12937226:doSwitch,[(625,391)(625,412)])
 link(onEvent8,11781611:doData,[(613,398)(613,468)])
}
Add(Counter,1983641,196,280)
{
 Min=-1
 Default=-1
 link(onNext,3777384:doGetString,[])
}
Add(Hub,2305521,427,238)
{
 InCount=2
 OutCount=3
 link(onEvent1,10940096:doReset,[])
 link(onEvent2,16318719:doWork3,[(453,251)(453,209)])
}
Add(HubEx,16318719,180,203)
{
 Angle=1
 link(onEvent,1983641:doNext,[(184,286)])
}
Add(DoData,11781611,763,462)
{
 Data=Integer(1)
 link(onEventData,634526:doWork3,[(872,468)])
}
Add(Hub,8559086,287,245)
{
 OutCount=3
 link(onEvent2,3950999:doSplit,[])
 link(onEvent3,14299959:doTimer,[(313,265)(313,244)])
}