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