Procedure UnPackPBLib(*buffer.long,*size.long) 
	Protected magic.l = $C3500 
	Protected ende.l 
	Protected start.l   
 
	*buffer + PeekL(*buffer+4) + 12	 
	size       = PeekL(*buffer+4)	 
	*buffer  + 12 
	 start.l   = *buffer		 
	 ende.l  = *buffer + size 
	  
	While *buffer <= ende 
		*buffer\l =~ *buffer\l 
		*buffer\l - magic 
		magic + size		 
		*buffer + 4 
	Wend  
	 
	*size\l = size 
	ProcedureReturn start 
EndProcedure 
 
file = ReadFile(-1,"/home/bubi/purebasic/purelibraries/gadget") 
 
If file 
	 
	size 	= Lof(file) 	 
	buffer = AllocateMemory(size) 
	If ReadData(file,buffer,size) 
		CloseFile(file) 
		lib = UnPackPBLib(buffer,@size) 
		file = CreateFile(-1,"/home/bubi/Desktop/lib.a") 
		If file  
			WriteData(file,lib,size) 
			CloseFile(file) 
		EndIf  
		FreeMemory(buffer) 
	EndIf  
	 
EndIf