Add(FileStream,6049437,287,84)
{
 FileName="111.txt"
}
Add(DataToFile,15064033,287,133)
{
 Type=7
 link(onGet,15814735:doStrCat,[])
 link(Stream,6049437:Stream,[])
}
Add(Button,13260222,154,84)
{
 Left=140
 Top=90
 link(onClick,7313187:doEvent1,[])
}
Add(Hub,7313187,210,84)
{
 OutCount=3
 link(onEvent1,6049437:doOpen,[])
 link(onEvent2,15064033:doGet,[(254,97)(254,146)])
 link(onEvent3,6049437:doClose,[(264,104)(264,97)])
}
Add(StrCat,15814735,343,133)
{
 link(onStrCat,6420786:doMessage,[])
 link(Str1,15064033:Data,[(349,121)(332,121)(332,178)(293,178)])
}
Add(Message,6420786,399,133)
{
}

func doOpen(_data)
  if(not isset(_St))
    var(_St)
    lang(St:PStream)
    lng.decl_priv_var(St, 'PStream')
  end
  println(St, ' := NewReadFileStream(',FileName, ');')
end

func doClose(_data)
  println(St, '.free;')
  // TODO
end

func Stream()
  return(St)
end

func doGet(_data)
  event(onGet, Stream + '.ReadStr')
end

func Data()
  return(Stream + '.ReadStr')
end

Add(FileStream,6049437,287,42)
{
 FileName="111.txt"
}
Add(DataToFile,15064033,287,133)
{
 Type=7
 link(onGet,15814735:doStrCat,[(335,139)(335,167)])
 link(Stream,6392024:Var2,[])
}
Add(StrCat,15814735,350,161)
{
 link(Str1,2710534:Data,[])
}
Add(DataToFile,2710534,350,112)
{
 Type=7
 link(Stream,6392024:Var3,[(356,100)])
}
Add(GetDataEx,6392024,280,91)
{
 link(Data,6049437:Stream,[])
}