femcyc - avoid reset of Foch

locations/femcyc

@@ -259,7 +259,7 @@ if $ARGS[0] = 'cyc0':
 		else
 			EggRH = 0
 		end
-		FocH = EggRH
+		FocH += EggRH
 	else
 		mesec -= 1
 		FocH += 1