/*	System Update for NOS 2.1 (717260)		Compiler Settings:	Application Name: "System Update 2.1 (717260)"	Application Symbol: "System Update 2.1 (717260)"	Auto Close: Off		Package Name: "System Update 2.1 (717260)"	Delete Old Package on Download: On	Copy Protected: Off	Auto Remove Package: On	Use Compression: Off	Faster Compression: Off	Copyright: "Apple Computer, Inc."	Version: 1		Platform: Newton 2.1	Language: English	Compile For Debugging: Off	Ignore Native Keyword: Off	Check Global Function Calls: On	NTK 1.0 Build Rules: Off	Use stepChildren Slot: On	Suppress Byte Code: Off	Compile For Profiling: Off	Profile Native Functions: Off	Newton OS 2.0 Only: On	Faster Functions: On	Tighter Object Packing: On		Output: Auto Part		id: 0	size: 49812	store: {#5} >name:4 Meg Card	pssid: 226504984	title: "System Update 2.1 (717260)"	version: 1	timestamp: 50165994	creationdate: 0	dispatchonly: NIL	copyprotection: NIL	flags: 16777216	copyright: "Apple Computer Inc."	compressed: NIL	cmprsdSz: 50224	numparts: 3	parts: [#3]	parttypes: [#3]*/DefineGlobalConstant('kROMPatch, ReadStreamFile(HOME&"ROMPatch.stream"));// Check if exactly like original patchOriginalROMPatch := ReadStreamFile(HOME&"ROMPatchOriginal.stream");if BinEqual(kROMPatch,OriginalROMPatch) then	write("New ROM patch matches original exactly.\n");else	write("New ROM patch does not match original exactly.\n");//SetPartFrameSlot('RegisterPatch, ReadStreamFile(HOME&"RegisterPatch.stream"));SetPartFrameSlot('RegisterPatch, streamFile_RegisterPatch);SetPartFrameSlot('DoNotInstall,func()begin	local who, themsgtext, sysInfo;	who := kAppName;	themsgtext := "This System Update cannot be installed into this Newton product. (";	sysInfo := Gestalt(kGestalt_SystemInfo);	if sysInfo.manufacturer <> kPatchManufacturer then	begin		GetRoot():Notify(3, who, themsgtext && "Wrong Base ROM ManufacturerID)");		return true;	end;	if sysInfo.machineType <> kMachineType then	begin		GetRoot():Notify(3, who, themsgtext && "Wrong Machine Type) ");		return true;	end;	if sysInfo.ROMVersion <> kBaseROMVersion then	begin		GetRoot():Notify(3, who, themsgtext && "Wrong Base ROM Version) ");		return true;	end;	if sysInfo.ROMStage <> kBaseROMStage then	begin		GetRoot():Notify(3, who, themsgtext && "Wrong Base ROM Stage) ");		return true;	end;	returnend);SetPartFrameSlot('InstallScript,func(part)begin	if part:RegisterPatch(part.PatchData.code, kPatchVersion, Length(kROMPatch), 0) = nil then	begin	end;	else		GetRoot():Notify(3, kAppName, "An error has occured during loading; probably out of memory.\nThe System Update was not installed.");	returnend);SetPartFrameSlot('PatchData,{	code: kROMPatch,	symFile: NIL,});