Dummy = 0 lnHandle = Fcreate("PartOne.prg",0) Fputs(lnHandle,"") WeightCount = NodeCount For NetInCreator = (NodeCount + 1) To ((NodeCount * 2)+1) CodeLine = [Node] + Transform(NetInCreator) + [NetIn = ] Fwrite(lnHandle,CodeLine) Local Codeline1 For Iteration = 1 To NodeCount Dummy = Dummy + 1 If Dummy < 5 And Iteration <= NodeCount Codeline1 = [(Node] + Transform(Iteration) + [Activation * W] + Transform(Iteration) + [_] + Transform(WeightCount) + [) + ] Fwrite(lnHandle,Codeline1) Else Codeline1 = [(Node] + Transform(Iteration) + [Activation * W] + Transform(Iteration) + [_] + Transform(WeightCount) + [) + ;] Fputs(lnHandle,Codeline1) Dummy = 0 Endif Next Iteration CodeLine = CodeLine + " " + Codeline1 Fputs(lnHandle,"") WeightCount = WeightCount + 1 If WeightCount > (NodeCount * 2) Exit Endif Next NetInCreator