loadNet ("test.net")
loadPattern ("validate.pat")
loadPattern ("training.pat")
initNet ()
repeat
for i := 1 to 20 do
trainNet ()
endfor
saveNet ("test." + CYCLES + "cycles.net")
setPattern ("validate.pat")
testNet ()
valid_error := SSE
setPattern ("training.pat")
until valid_error < 2.5
saveResult ("test.res")
