Make(delphi)
ver(4.04 build 184)
Add(MainForm,2953706,70,21)
{
 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,650,119)
{
 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,650,168)
{
 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,650,217)
{
 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(Timer,14413732,245,119)
{
 Interval=500
 Enable=1
 AutoStop=9
 Point(onStop)
 link(onTimer,10940096:doNext,[])
 link(onStop,5843108:doTimer,[(282,132)(282,174)])
}
Add(Timer,5843108,287,168)
{
 Interval=60
 Enable=1
 AutoStop=13
 Point(onStop)
 link(onTimer,16597020:doNext,[])
 link(onStop,12257258:doTimer,[(324,181)(324,223)])
}
Add(Timer,12257258,329,217)
{
 Interval=10
 Enable=1
 AutoStop=256
 Point(onStop)
 link(onTimer,1839862:doNext,[])
 link(onStop,2321566:doTimer,[(366,230)(366,286)])
}
Add(StrList,10370973,427,56)
{
 Strings=#9:Январь...|10:Февраль...|7:Март...|9:Апрель...|6:Май...|7:Июнь...|7:Июль...|9:Август...|11:Сентябрь...|
}
Add(Counter,10940096,385,119)
{
 Max=8
 Default=-1
 link(onNext,10610084:doRead,[])
}
Add(ArrayRW,10610084,441,119)
{
 link(onRead,2540853:doWork2,[])
 link(Array,10370973:Array,[])
}
Add(Counter,16597020,392,168)
{
 Min=1
 Max=13
 link(onNext,5160069:doStrCat,[])
}
Add(StrCat,5160069,448,168)
{
 Str2="..."
 link(onStrCat,5595497:doWork2,[])
}
Add(Counter,1839862,392,217)
{
 Min=1
 Max=256
 link(onNext,2088222:doStrCat,[])
}
Add(StrCat,2088222,448,217)
{
 Str2="..."
 link(onStrCat,5248097:doWork2,[])
}
Add(Label,16279767,790,294)
{
 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(Timer,3486685,483,329)
{
 Interval=1500
 Enable=1
 AutoStop=1
 link(onTimer,1048165:doEvent1,[])
}
Add(Label,15617033,790,336)
{
 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,532,329)
{
 OutCount=3
 link(onEvent1,3938806:doData,[(553,335)(553,307)])
 link(onEvent2,3648935:doEvent1,[])
 link(onEvent3,16554519:doTimer,[])
}
Add(Hub,3648935,756,336)
{
 InCount=2
 link(onEvent1,16279767:doVisible,[(776,342)(776,307)])
 link(onEvent2,15617033:doVisible,[])
}
Add(Switch,12937226,665,343)
{
 DataOn=Integer(0)
 DataOff=Integer(1)
 Point(doOn)
 link(onSwitch,3648935:doEvent2,[])
}
Add(Timer,2321566,371,280)
{
 Interval=2000
 Enable=1
 AutoStop=1
 link(onTimer,3145675:doTimer,[])
}
Add(Timer,16554519,560,343)
{
 Interval=500
 Enable=1
 AutoStop=5
 Point(onStop)
 link(onTimer,12937226:doSwitch,[])
 link(onStop,14341825:doTimer,[(653,356)(653,384)])
}
Add(DoData,3938806,581,301)
{
 Data=String(16711680)
 link(onEventData,7164401:doEvent1,[])
}
Add(Case,12872442,126,42)
{
 Value=Integer(13)
 link(onNextCase,3683289:doCase,[])
 link(onTrue,12558585:doAnimate,[(171,55)(171,131)(58,131)(58,90)])
}
Add(Case,3683289,175,42)
{
 Value=Integer(8)
 link(onTrue,13988333:doEvent2,[(219,55)(219,48)])
}
Add(Label,198022,791,371)
{
 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(Timer,14341825,665,378)
{
 Interval=1500
 Enable=1
 AutoStop=1
 link(onTimer,634526:doWork2,[])
}
Add(Hub,13988333,231,35)
{
 InCount=2
 OutCount=4
 link(onEvent1,16189711:doData,[])
 link(onEvent2,16479141:doEvent1,[])
 link(onEvent3,6581716:In,[])
 link(onEvent4,14413732:doTimer,[(257,62)(257,94)(233,94)(233,125)])
}
Add(Hub,16479141,476,42)
{
 OutCount=4
 link(onEvent1,3166281:doData,[])
 link(onEvent2,2540853:doWork1,[(529,55)])
 link(onEvent3,5595497:doWork1,[(522,62)])
 link(onEvent4,5248097:doWork1,[(515,69)])
}
Add(HubEx,2540853,525,119)
{
 link(onEvent,15971281:doText,[])
}
Add(HubEx,5595497,518,168)
{
 link(onEvent,9080219:doText,[])
}
Add(HubEx,5248097,511,217)
{
 link(onEvent,4268321:doText,[])
}
Add(WindowAnimation,12558585,70,84)
{
 Step=3
 Type=10
 InNewThread=1
 link(onEndAnimation,2953706:doClose,[(115,90)(115,120)(52,120)(52,48)])
 link(Handle,2953706:Handle,[])
}
Add(LineBreak,10026358,-7,49)
{
 Caption="color"
 link(Out,960227:doWork2,[])
 Primary=[14202056,714,252]
}
Add(LineBreak,14664069,452,385)
{
 Caption="reset_p"
 link(Out,2286046:doData,[])
 Primary=[6581716,-144,-336]
}
Add(Timer,3145675,413,280)
{
 Interval=13
 Enable=1
 AutoStop=100
 Point(onStop)
 link(onTimer,9891950:doOperation,[])
 link(onStop,3486685:doTimer,[(454,293)(454,335)])
}
Add(Math,9891950,469,280)
{
 OpType=1
 Op2=4
 link(onResult,7624785:doEvent2,[])
 link(Op1,4268321:Left,[(475,264)(663,264)])
}
Add(Hub,7164401,651,301)
{
 OutCount=4
 link(onEvent1,14202056:In,[])
 link(onEvent2,16279767:doColor,[])
 link(onEvent3,15617033:doColor,[(731,321)(731,356)])
 link(onEvent4,198022:doColor,[(721,328)(721,391)])
}
Add(DoData,3166281,539,42)
{
 Data=Integer(30)
 link(onEventData,7624785:doEvent1,[(583,48)(583,279)])
}
Add(Hub,7624785,595,273)
{
 InCount=2
 OutCount=3
 link(onEvent1,15971281:doLeft,[(620,279)(620,132)])
 link(onEvent2,9080219:doLeft,[(629,286)(629,181)])
 link(onEvent3,4268321:doLeft,[(639,293)(639,230)])
}
Add(DoData,16189711,259,35)
{
 Data=String(14671839)
 link(onEventData,960227:doWork1,[(304,41)(304,6)(44,6)])
}
Add(HubEx,960227,40,49)
{
 link(onEvent,2953706:doColor,[])
}
Add(DoData,2286046,553,385)
{
 Data=Integer(0)
 link(onEventData,7667016:doEvent1,[])
}
Add(Hub,7667016,602,385)
{
 link(onEvent1,12937226:doOn,[(639,391)(639,363)])
 link(onEvent2,634526:doWork3,[(774,398)])
}
Add(HubEx,634526,770,378)
{
 link(onEvent,198022:doVisible,[])
}