Add(MainForm,6910401,84,119)
{
 Left=200
 Top=100
 Width=665
}
Add(StrList,14472986,399,91)
{
 Point(doLoad)
 link(FileName,3936349:Value,[(412,82)(307,82)(307,166)(272,166)])
}
Add(Hub,3033686,224,126)
{
 OutCount=4
 link(onEvent1,3936349:doValue,[])
 link(onEvent2,7179996:doClear,[(249,139)(249,188)])
 link(onEvent3,4696064:doEnum,[(256,146)(256,174)])
}
Add(Plotter,7179996,259,182)
{
 Width=649
 Height=261
 Align=5
 Color=12639424
 Name="plotter"
 GridColor=32768
 LeftMargin=70
 TopMargin=25
 MouseControl=1
}
Add(PlotLines,16350900,525,168)
{
 Grapher="plotter"
 link(ValueY,5093668:Part2,[(531,159)(517,159)(517,208)(475,208)])
 link(ValueX,5093668:Part1,[(538,152)(510,152)(510,215)(468,215)])
}
Add(ArrayEnum,4696064,413,168)
{
 link(onItem,5093668:doSplit,[])
 link(Array,14472986:Array,[])
}
Add(MultiStrPart,5093668,462,168)
{
 link(onSplit,16350900:doAdd,[])
}
Add(PlotMouseValues,15807197,301,182)
{
 Grapher="plotter"
 link(onMouseDown,7079901:doStr,[])
}
Add(MT_String,7079901,350,182)
{
 link(onResult,6910401:doCaption,[(396,188)(396,223)(74,223)(74,125)])
}
Add(Dir,14263916,182,84)
{
}
Add(Button,14679798,133,126)
{
 Caption="Open"
 link(onClick,12641581:doExecute,[])
}
Add(ODialog,12641581,182,126)
{
 Filter="All|*.txt"
 StartDir=""
 Point(StartDir)
 link(onExecute,3033686:doEvent1,[])
 link(StartDir,14263916:CurrentDir,[])
}
Add(Memory,3936349,266,126)
{
 link(onData,9572591:doEvent1,[])
}
Add(Hub,9572591,315,126)
{
 link(onEvent1,14472986:doLoad,[(340,132)(340,125)])
 link(onEvent2,15928287:doPart,[(452,139)(452,104)])
}
Add(FilePartElm,15928287,476,98)
{
 link(onPart,1652696:doText,[])
}
Add(Label,1652696,525,98)
{
 Left=60
 Top=5
 Color=12639424
 Caption=""
}

Add(MainForm,15725732,28,63)
{
 Width=855
 Height=399
 Caption="rot13 in windows registry"
 link(onCreate,15277044:doEvent1,[])
}
Add(Registry,8616232,112,112)
{
 HKey=1
 Key="SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\UserAssist\{F4E57C4B-2036-45F0-A9AB-443BCFE33D9F}\Count"
 Point(doEnumValues)
 Point(onEnumValue)
 link(onEnumValue,4539413:doEvent2,[(151,125)(151,83)])
}
Add(Memo,3180925,266,126)
{
 Top=180
 Width=839
 Height=180
 Align=5
 Font=[Lucida Console,12,0,0,204]
 Antialiased=1
 Point(onMouseWheel)
 Point(Handle)
 link(onMouseWheel,8977458:doEvent2,[(322,139)(322,90)])
}
Add(VBJScript,279962,210,126)
{
 @Hint=#7:SendKey|
 WorkPoints=#6:onWork|
 EventPoints=#5:ROT13|
 Script=#23:Sub doWork(Data, Index)|43:    Dim i, charCode, newCharCode, strOutput|18:    strOutput = ""|0:|26:    For i = 1 To Len(Data)|39:        charCode = Asc(Mid(Data, i, 1))|0:|40:        ' Handle uppercase letters (A-Z)|65:        If charCode >= 65 And charCode <= 90 Then ' ASCII for A-Z|39:            newCharCode = charCode + 13|60:            If newCharCode > 90 Then ' Wrap around if past Z|46:                newCharCode = newCharCode - 26|18:            End If|40:        ' Handle lowercase letters (a-z)|70:        ElseIf charCode >= 97 And charCode <= 122 Then ' ASCII for a-z|39:            newCharCode = charCode + 13|61:            If newCharCode > 122 Then ' Wrap around if past z|46:                newCharCode = newCharCode - 26|18:            End If|52:        ' Non-alphabetic characters remain unchanged|12:        Else|34:            newCharCode = charCode|14:        End If|0:|48:        strOutput = strOutput & Chr(newCharCode)|8:    Next|0:|23:    sys.Rot13 strOutput|7:End Sub|
 UseName=0
 link(ROT13,3180925:doAdd,[])
}
Add(Hub,4539413,168,70)
{
 InCount=2
 link(onEvent1,6243148:doAdd,[])
 link(onEvent2,279962:onWork,[(200,83)(200,132)])
}
Add(Memo,6243148,266,70)
{
 Width=839
 Height=180
 Align=2
 Font=[Lucida Console,12,0,0,204]
 Antialiased=1
 Point(onMouseWheel)
 Point(Handle)
 link(onMouseWheel,8977458:doEvent1,[])
}
Add(Registry,16431372,112,63)
{
 HKey=1
 Key="SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\UserAssist\{CEBFF5CD-ACE2-4F4F-9178-9926F41749EA}\Count"
 Point(doEnumValues)
 Point(onEnumValue)
 link(onEnumValue,4539413:doEvent1,[])
}
Add(Hub,8977458,336,77)
{
 InCount=2
 OutCount=1
 link(onEvent1,9949285:doCalc,[])
}
Add(MathParse,9949285,364,77)
{
 DataCount=1
 MathStr="sign(%1) * (-1)"
 ResultType=0
 link(onResult,12638978:doEvent1,[])
}
Add(SendMessage,2571141,476,77)
{
 Point(Message)
 link(Handle,6243148:Handle,[(482,68)(314,68)(314,110)(293,110)])
 link(WParam,9900727:Value,[])
 link(Message,2812212:Var1,[(503,68)])
}
Add(SendMessage,10043865,476,175)
{
 Point(Message)
 link(Handle,3180925:Handle,[(482,166)(293,166)])
 link(WParam,12111240:Value,[])
 link(Message,2812212:Var2,[(503,170)(545,170)])
}
Add(Hub,12638978,413,77)
{
 link(onEvent1,2571141:doSendMessage,[])
 link(onEvent2,10043865:doSendMessage,[(459,90)(459,181)])
}
Add(Memory,15878244,539,28)
{
 Default=Integer(182)
}
Add(GetDataEx,2812212,539,63)
{
 link(Data,15878244:Value,[])
}
Add(Memory,9900727,483,28)
{
 Default=Integer(0)
}
Add(Memory,12111240,483,126)
{
 Default=Integer(0)
}
Add(Hub,15277044,77,77)
{
 link(onEvent1,16431372:doEnumValues,[])
 link(onEvent2,8616232:doEnumValues,[(102,90)(102,132)])
}