[B 
  
   'Firmware' nknown not [B
		'Firmware' import
	] if
	/SuccessDlgFlag #0 def				   
	[B	   
		#0 Firmware:Init
		Firmware:InitPackInst	[B
			Firmware:InstallProc
			/Continue exch def
			/SuccessDlgFlag exch def			   
		] if	
	] 
	[B
		/Msg get 'E' 'A' msgdlg
	] tryexcept
  
	Firmware:PackInstExit
  
]