Unit Initialize

purpose initialize everything for the program NB Think Pascal sets up toolbox managers, flushes event queue, and calls MoreMasters 10x This routine contains the following code, which Dawkins later commented on (it initializes the RootGod data structure, which is used extensively in Pedigree.)

		RootGod := GodHandle(NewHandle(SizeOf(God)));
		IF MemError <> noErr THEN
			ExitToShell;
		RootGodˆˆ.Adam := NIL;
		RootGodˆˆ.NextGod := NIL;
		RootGodˆˆ.PreviousGod := NIL;