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,559,119)
{
 Left=30
 Top=30
 Width=260
 Height=27
 Color=14671839
 Font=[Tahoma,18,1,0,204]
 Caption=""
 AutoSize=1
 Alignment=2
 Point(doLeft)
 Point(Left)
}
Add(Label,9080219,559,168)
{
 Left=30
 Top=65
 Width=260
 Height=92
 Color=14671839
 Font=[Tahoma,48,1,255,204]
 Caption=""
 AutoSize=1
 Alignment=2
 Point(doLeft)
 Point(Left)
}
Add(Label,4268321,559,217)
{
 Left=30
 Top=160
 Width=260
 Height=37
 Color=14671839
 Font=[Tahoma,14,0,0,204]
 Caption=""
 AutoSize=1
 Alignment=2
 Point(doLeft)
 Point(Left)
}
Add(Timer,14413732,266,119)
{
 Interval=500
 Enable=1
 AutoStop=9
 Point(onStop)
 link(onTimer,10940096:doNext,[])
 link(onStop,5843108:doTimer,[(310,132)(310,153)(254,153)(254,174)])
}
Add(Timer,5843108,266,168)
{
 Interval=60
 Enable=1
 AutoStop=13
 Point(onStop)
 link(onTimer,16597020:doNext,[])
 link(onStop,12257258:doTimer,[(310,181)(310,202)(254,202)(254,223)])
}
Add(Timer,12257258,266,217)
{
 Interval=10
 Enable=1
 AutoStop=256
 Point(onStop)
 link(onTimer,1839862:doNext,[])
 link(onStop,2321566:doTimer,[(310,230)(310,258)(254,258)(254,286)])
}
Add(StrList,10370973,371,56)
{
 Strings=#6:Январь|7:Февраль|4:Март|6:Апрель|3:Май|4:Июнь|4:Июль|6:Август|8:Сентябрь|
}
Add(Counter,10940096,329,119)
{
 Max=8
 Default=-1
 link(onNext,10610084:doRead,[])
}
Add(ArrayRW,10610084,385,119)
{
 link(onRead,2540853:doWork2,[])
 link(Array,10370973:Array,[])
}
Add(Counter,16597020,329,168)
{
 Min=1
 Max=13
 link(onNext,5595497:doWork2,[])
}
Add(Counter,1839862,329,217)
{
 Min=1
 Max=256
 link(onNext,5248097:doWork2,[])
}
Add(Label,16279767,657,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,385,329)
{
 Interval=1500
 Enable=1
 AutoStop=1
 link(onTimer,1048165:doEvent1,[])
}
Add(Label,15617033,657,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,434,329)
{
 OutCount=3
 link(onEvent1,3938806:doData,[(455,335)(455,307)])
 link(onEvent2,3648935:doEvent1,[])
 link(onEvent3,16554519:doTimer,[])
}
Add(Hub,3648935,616,336)
{
 InCount=2
 link(onEvent1,16279767:doVisible,[(650,342)(650,307)])
 link(onEvent2,15617033:doVisible,[])
}
Add(Switch,12937226,553,343)
{
 DataOn=Integer(0)
 DataOff=Integer(1)
 Point(doOn)
 link(onSwitch,3648935:doEvent2,[])
}
Add(Timer,2321566,266,280)
{
 Interval=2000
 Enable=1
 AutoStop=1
 link(onTimer,3145675:doTimer,[])
}
Add(Timer,16554519,462,343)
{
 Interval=500
 Enable=1
 AutoStop=11
 Point(onStop)
 link(onTimer,12937226:doSwitch,[])
 link(onStop,14341825:doTimer,[(541,356)(541,391)])
}
Add(DoData,3938806,497,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,658,378)
{
 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,553,385)
{
 Interval=500
 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,[(254,62)(254,125)])
}
Add(Hub,16479141,413,42)
{
 OutCount=4
 link(onEvent1,3166281:doData,[])
 link(onEvent2,2540853:doWork1,[(452,55)])
 link(onEvent3,5595497:doWork1,[(445,62)])
 link(onEvent4,5248097:doWork1,[(438,69)])
}
Add(HubEx,2540853,448,119)
{
 link(onEvent,15971281:doText,[])
}
Add(HubEx,5595497,441,168)
{
 link(onEvent,9080219:doText,[])
}
Add(HubEx,5248097,434,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,480119,-7,49)
{
 Caption="color"
 link(Out,960227:doWork2,[])
 Primary=[14202056,616,252]
}
Add(LineBreak,14596881,368,392)
{
 Caption="reset_p"
 link(Out,2286046:doData,[])
 Primary=[6581716,-67,-343]
}
Add(Timer,3145675,329,280)
{
 Interval=13
 Enable=1
 AutoStop=100
 Point(onStop)
 link(onTimer,9891950:doOperation,[])
 link(onStop,3486685:doTimer,[(373,293)(373,335)])
}
Add(Math,9891950,385,280)
{
 OpType=1
 Op2=4
 link(onResult,7624785:doEvent2,[])
 link(Op1,4268321:Left,[(391,264)(572,264)])
}
Add(Hub,7164401,553,301)
{
 OutCount=4
 link(onEvent1,14202056:In,[])
 link(onEvent2,16279767:doColor,[])
 link(onEvent3,15617033:doColor,[(606,321)(606,356)])
 link(onEvent4,198022:doColor,[(596,328)(596,398)])
}
Add(DoData,3166281,462,42)
{
 Data=Integer(30)
 link(onEventData,7624785:doEvent1,[(502,48)(502,279)])
}
Add(Hub,7624785,511,273)
{
 InCount=2
 OutCount=3
 link(onEvent1,15971281:doLeft,[(534,279)(534,132)])
 link(onEvent2,9080219:doLeft,[(542,286)(542,181)])
 link(onEvent3,4268321:doLeft,[(550,293)(550,230)])
}
Add(DoData,16189711,259,35)
{
 Data=String(14671839)
 link(onEventData,960227:doWork1,[(305,41)(305,15)(44,15)])
}
Add(HubEx,960227,40,49)
{
 link(onEvent,2953706:doColor,[])
}
Add(DoData,2286046,462,392)
{
 Data=Integer(0)
 link(onEventData,7667016:doEvent1,[])
}
Add(Hub,7667016,511,392)
{
 link(onEvent1,12937226:doOn,[(534,398)(534,363)])
 link(onEvent2,634526:doWork3,[(641,405)])
}
Add(HubEx,634526,637,385)
{
 link(onEvent,198022:doVisible,[])
}