Procedure WriteDataPackage(List File.s(),FileName.s="Data.pck")
  Protected Size.i,Adr.i
  If CreateFile(0, FileName)
    WriteLong(0,ListSize(File()))
    Adr=ListSize(File())*4*2+4
    ;WriteCatalogue
    Debug "Catalogue"
    ForEach File()
      Size=FileSize(File())
      If Size<0:
        Debug "Error File :"+File()
        CloseFile(0)
        End
      EndIf 
      WriteLong(0,Adr)
      Debug Str(ListIndex(File()))+") Adr="+Str(Adr)+" Size="+Str(Size)
      WriteLong(0,Size)
      Adr=Adr+Size
    Next
    ;WriteFile
    ForEach File()
      Size=FileSize(File())
      Debug Str(ListIndex(File()))+":"+Str(Loc(0))
      If ReadFile(1, File())
        *Mem=AllocateMemory(Size)
        ReadData(1,*Mem,Size)
        CloseFile(1)
        WriteData(0,*Mem,Size)
        FreeMemory(*Mem)
        
      EndIf 
      
    Next
    
    CloseFile(0)
  Else
    Debug "ERRO"
  EndIf   
EndProcedure

NewList File.s()
AddElement(File()):File()=GetCurrentDirectory()+"Datas\SpriteSheetx192.png"
AddElement(File()):File()=GetCurrentDirectory()+"Datas\LoopzFont.png"
AddElement(File()):File()=GetCurrentDirectory()+"Datas\LoopzFont.dat"
AddElement(File()):File()=GetCurrentDirectory()+"Datas\MonoFont.png"
AddElement(File()):File()=GetCurrentDirectory()+"Datas\MonoFont.dat"
AddElement(File()):File()=GetCurrentDirectory()+"Modules/Loopz03V2.mod"
AddElement(File()):File()=GetCurrentDirectory()+"Modules/Loopz01.mod"
AddElement(File()):File()=GetCurrentDirectory()+"Modules/Loopz02.mod"
AddElement(File()):File()=GetCurrentDirectory()+"Modules/LoopzGameOver01.mod"
AddElement(File()):File()=GetCurrentDirectory()+"Modules/LoopzGameOver03.mod"
AddElement(File()):File()=GetCurrentDirectory()+"Modules/LoopzHighScore01.mod"
AddElement(File()):File()=GetCurrentDirectory()+"Modules/Loopz10.mod"
AddElement(File()):File()=GetCurrentDirectory()+"Datas\mixkit-bonus-earned-in-video-game-2058.wav"
AddElement(File()):File()=GetCurrentDirectory()+"Datas\mixkit-explainer-video-game-alert-sweep-236.wav"
AddElement(File()):File()=GetCurrentDirectory()+"Datas\mixkit-extra-bonus-in-a-video-game-2045.wav"
AddElement(File()):File()=GetCurrentDirectory()+"Datas\mixkit-video-game-retro-click-237.wav"
AddElement(File()):File()=GetCurrentDirectory()+"Datas\mixkit-fast-small-sweep-transition-166.wav"
AddElement(File()):File()=GetCurrentDirectory()+"Datas\mixkit-fairy-magic-sparkle-871.wav"
AddElement(File()):File()=GetCurrentDirectory()+"Datas\mixkit-erupting-volcano-lava-2442.wav"
AddElement(File()):File()=GetCurrentDirectory()+"Datas\My-Dead-Snd-Effect.wav"
AddElement(File()):File()=GetCurrentDirectory()+"Datas\Metal-hammer.wav"

  
WriteDataPackage(File())

Procedure.i ReadDataPackage(FileName.s,FileNumber.l)
  Protected NbFile.l,Adr.i,Size.i, *Mem
  If OpenFile(0,Filename)
    NbFile=ReadLong(0)
    Adr=4+FileNumber*4*2
    FileSeek(0, Adr)
    Adr=ReadLong(0)
    Size=ReadLong(0)
    Debug Str(FileNumber)+") Adr="+Str(Adr)+" Size="+Str(Size)
    *Mem=AllocateMemory(Size)
    FileSeek(0,Adr)
    ReadData(0,*Mem,Size)
    CloseFile(0)
    ProcedureReturn *Mem
  EndIf 
EndProcedure

ReadDataPackage("Data.pck",3)
; IDE Options = PureBasic 6.00 Beta 6 (Windows - x64)
; CursorPosition = 63
; FirstLine = 18
; Folding = -
; EnableXP