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