-- .Modelle.Netzwerk.Einlegen
is
	i:integer;
do
	
	--waituntil Puffer_ILT_IC.AnzahlBEs>300 and Puffer_ILT_OC.AnzahlBEs>300 and Puffer_ZSB_HN.AnzahlBEs>300 and Puffer_ZSB_MNS.AnzahlBEs>300 prio 1;
   
	Losgroesse; -- Losgröse wird gewürfelt 150-250
	IF Variable = 1 AND Puffer_ZSB_HN.AnzahlBEs>Stückzahl and Puffer_ALT_TS.AnzahlBEs>LStückzahl and Puffer_ALT_ES.AnzahlBEs>Stückzahl then
		For i:=1 to Stückzahl loop
			Puffer_ALT_TS.Inhalt.umlagern(Zelle20);
			Puffer_ZSB_HN.Inhalt.umlagern(Zelle40);	
			Waituntil Zelle20.belegt = False prio 1;
			Puffer_ALT_ES.Inhalt.umlagern(Zelle20);
			Waituntil Zelle20.belegt = False prio 1;
		next;
	--	Zufallszahl;
	ElSE
		IF Variable>2 AND Variable<7 then
			For i:=1 to Stückzahl loop
			Puffer_ILT_OC.Inhalt.umlagern(Zelle20);
			Puffer_ZSB_MNS.Inhalt.umlagern(Zelle40);
			Waituntil Zelle20.belegt = False prio 1;
			Puffer_ILT_IC.Inhalt.umlagern(Zelle20);
			Waituntil Zelle20.belegt = False prio 1;
		next;
	--	Zufallszahl;
			ELSE
			IF Variable>6 then
		For i:=1 to Stückzahl loop
		Puffer_ILT_OC.Inhalt.umlagern(Zelle20);
		Puffer_ZSB_HN.Inhalt.umlagern(Zelle40);
		Waituntil Zelle20.belegt = False prio 1;
		Puffer_ILT_IC.Inhalt.umlagern(Zelle20);
		Waituntil Zelle20.belegt = False prio 1;
		next;
	--	Zufallszahl;
			ELSE
				For i:=1 to Stückzahl loop
					Puffer_ALT_TS.Inhalt.umlagern(Zelle20);
					Puffer_ZSB_MNS.Inhalt.umlagern(Zelle40);
					Waituntil Zelle20.belegt = False prio 1;
					Puffer_ALT_ES.Inhalt.umlagern(Zelle20);
					Waituntil Zelle20.belegt = False prio 1;
					next;
		--		Zufallszahl;
			End;
		end;
	end;
end;