/*	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('kRExPatch, ReadStreamFile(HOME&"RExPatch.stream"));// Check if exactly like original patchOriginalREx := ReadStreamFile(HOME&"RExPatchOriginal.stream");if BinEqual(kRExPatch,OriginalREx) then	write("New REx0 patch matches original exactly.\n");else	write("New REx0 patch does not match original exactly.\n");//SetPartFrameSlot('RegisterPatch, ReadStreamFile(HOME&"RegisterPatch.stream"));SetPartFrameSlot('RegisterPatch, streamFile_RegisterPatch);SetPartFrameSlot('DoNotInstall,func()begin	local who, themsgtext, refInfo;	who := kAppName;	themsgtext := "This System Update cannot be installed into this Newton product. (";	rexInfo := Gestalt(kGestalt_Base + 8);	if rexInfo[0].manufacturer <> kPatchManufacturer then	begin		GetRoot():Notify(3, who, themsgtext && "Wrong REx0 ROM ManufacturerID) ");		return TRUE;	end;	if rexInfo[0].version <> kREx0Version then	begin		GetRoot():Notify(3, who, themsgtext && "Wrong REx0 ROM Version) ");		return TRUE;	end;	returnend);SetPartFrameSlot('InstallScript,func(part)begin	if part:RegisterPatch(part.PatchData.code, kPatchVersion, Length(kRExPatch), 1) = 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: kRExPatch,	symFile: NIL,});