begin P_Painting arriving procedure
	move into Q_BufferPainting
	//Batching
	if OL_WaitBatchPainting current < VI_PaintingBatchSize - 1 then begin
		//collect batch on OL
		move into Q_DummyPainting
		//collect loads on dummy queue
		wait to be ordered on OL_WaitBatchPainting

		wait to be ordered on OL_BatchWaitForPainting
		move into Q_PaintingUnloading
		order 1 load from OL_PaintBufferFull to continue
		//when painting is done
		//order 1 load from OL_PaintBufferFull to continue
		send to P_Lathes
	end
	//order the rest of the batch, so they are not available for another batch
	order VI_PaintingBatchSize -1 from OL_WaitBatchPainting to continue
	move into Q_Painting
	//order 1 load from OL_PaintBufferFull to continue

	/* setup time */
	use R_Painting for uniform 85, 15 sec
	/* cycle time */
	use R_Painting for normal 3, 0.2 * VI_PaintingBatchSize min
	//batch done

	//look if any product from previous batch is in unloading
	if Q_PaintingUnloading remaining space < VI_PaintingBatchSize then begin
		wait to be ordered on OL_PaintingUnloading
	end
	move into Q_PaintingUnloading
	order 1 load from OL_PaintBufferFull to continue
	//order the rest of the batch to continue
	order VI_PaintingBatchSize -1 loads from OL_BatchWaitForPainting to continue
	send to P_Lathes
end

begin P_Lathes arriving procedure


	/* choose the Lathe which is least busy */
	choose a queue from among Q_BufferLathe(1), Q_BufferLathe(2), Q_BufferLathe(3)
		whose current loads is minimum
		save choice as A_QptrLathe
	move into A_QptrLathe

	if Q_PaintingUnloading current = 0 then begin
		order 1 load from OL_PaintingUnloading to continue
	end
	set AI_LatheIndex = A_QptrLathe index
	move into Q_Lathe(AI_LatheIndex)



	/* processing time */
	use R_Lathe(AI_LatheIndex) for triangular 10, 12, 17 min
	move into Q_Final

	/* the product is finished */
	send to die
end