Function InitPak(pak_path$)
stream = ReadFile(pak_path)

for i = 0 to 2
 sig$ = sig + chr(ReadByte(Stream))
next
if not sig$ = "pak" then Return -1

Bank = CreateBank(HeadSize)
For i = 0 to HeadSize-1
  PokeByte bank,ReadByte (Stream)
next

For i = 0 to DateiAnzahl-1

 File_Size = PeekInt(bank,pos) : pos = pos + 4
 File_Pos = PeekInt(bank,pos) : pos = pos + 4
 Len_FName = PeekShort(bank,pos) : pos = pos + 4
 For i = 0 to Len_Fname-1
   byte = peekbyte(bank,pos)
   File_Name$ = File_Name + chr(byte)
   pos = pos + 1
 next
 F.TPakFile = new TPakFile
 F\size = File_Size
 F\Pos = File_Pos
 F\Name$ = File_Name$
 F\PakFile$ = Pak_Path$
next

closefile (stream)

P.TPakStream = new TPakStream
P\id = Handle(p)
P\path$ = pak_path$

return P\id

End Function

Image = LoadImage(LoadFile(pak00,"bilder/bild.bmp","pak00"))

Function LoadFile$(pakID,path$,FileTo$)  ;PakID wäre der wert, der bei InitPak zurückgegeben wird

 path = Replace(path,"/","\") ; für Dateinamen-Vergleiche "/" slashes mit "\" ersetzen

 For P.TPakStream = each TPakStream
  if P\id = pakID
   For T.TPakFile = each TPakFile
     if T\pakFile = P\path
       if lower(T\Name) = lower(path)
         Stream = readFile(P\path)
         StreamTo = WriteDirFile(FileTo+path) ;<- datei mit dirs schreiben (siehe unten)
         Seekfile Stream,T\Pos
         For i = 0 to T\Size-1
          byte = ReadByte(Stream)
          ;Hier könnte man das byte noch decodieren
          WriteByte StreamTo,byte
         next
       endif
     endif
   next
  endif
 next

return FileTo+path

end function

Function WriteDirFile(file$)
   For i = 1 To Len(File)
      z$ = Mid(File,i,1)
      If z="/" Or z="\"
         If FileType (dir+DirName$) <> 2
            CreateDir (dir+DirName)
         EndIf
      EndIf
      DirName$ = DirName + z
   Next
   f = WriteFile (file)
   Return f
end function