Function LoadPackage(file$, file2$)
	
	;Daten auslesen - - - - - - - - - - - - - - - -
	Local filefile = ReadFile(file + ".co2")
	Repeat
		Local suchefile2$ = ReadLine(filefile)
	Until suchefile2$ = file2 Or Eof(filefile)
	
	Local groessedesfiles$ = ReadLine(filefile)
	Local groessedesfiles3 = Int(groessedesfiles)
	
	Local groessedesfiles2 = 0
	
	Local Bank = CreateBank(groessedesfiles)
	
	Local posinbank = 1
	
	Repeat
		PokeByte Bank, posinbank, ReadByte(filefile)
		posinbank = posinbank + 1
		groessedesfiles2 = groessedesfiles2 + 1
	Until groessedesfiles2 = groessedesfiles3
	
	;Daten aufschreiben - - - - - - - - - - - - - - -
	Local filefile2 = WriteFile("ausgelesene " + file2 + "")
	
	WriteBytes(Bank, filefile2, 0, groessedesfiles)
	
	CloseFile filefile2
	CloseFile filefile
	FreeBank Bank
	
End Function

Function SavePackage(file$, file2$)
	
	;Daten auslesen - - - - - - - - - - - - - - - - - 
	Local filefile2 = ReadFile(file2)
	
	Local sizeoffile2 = FileSize(file2)
	Local Bank = CreateBank(sizeoffile2)
	
	Local posinbank = 1
	Local writtenbytes = 0
	
	Repeat
		PokeByte Bank, posinbank, ReadByte(filefile2)
		posinbank = posinbank + 1
		writtenbytes = writtenbytes + 1
	Until writtenbytes = sizeoffile2
	
	;Daten aufschreiben - - - - - - - - - - - - - - - -
	Local filefile = OpenFile(file + ".co2")
	If filefile = 0 Then
		filefile = WriteFile(file + ".co2")
	Else
		Repeat
			ReadByte(filefile)
		Until Eof(filefile)
	EndIf
	
	WriteLine filefile, ""
	WriteLine filefile, file2
	WriteLine filefile, sizeoffile2
	WriteBytes(Bank, filefile, 0, sizeoffile2)
	CloseFile filefile
	
	CloseFile filefile2
	FreeBank Bank
	
End Function

Function SavePackage(PackageFilePath$, FileToBePackagedPath$)
	
	Local FileToBePackaged = ReadFile(FileToBePackagedPath)
	Local SizeOfFileToBePackaged = FileSize(FileToBePackagedPath)
	
	Local PackageFile
	
	If FileType(PackageFilePath + ".co2") = 1
		PackageFile = OpenFile(PackageFilePath + ".co2")
		
		Local SizeOfPackage = FileSize(PackageFilePath + ".co2")
		SeekFile(PackageFile,SizeOfPackage)
	Else 
		PackageFile = WriteFile(PackageFilePath + ".co2")
	EndIf
	
	WriteString PackageFile, FileToBePackagedPath
	WriteInt PackageFile, SizeOfFileToBePackaged
	
	For I = 0 To SizeOfFileToBePackaged - 1
		WriteByte PackageFile,ReadByte(FileToBePackaged)
	Next
	
	CloseFile FileToBePackaged
	CloseFile PackageFile
End Function

Function LoadPackage$(PackageFilePath$, FileToBeDepackagedPath$)
	
	CreateDir "EXTRACTED_"
	
	Local PackageFile = ReadFile(PackageFilePath + ".co2")
	If PackageFile = 0 Then Return
	
	Local PackageName$
	Local PackageSize%
	Repeat
		If Eof(PackageFile) Then Return
		PackageName$ = ReadString(PackageFile)
		PackageSize% = ReadInt(PackageFile)
		
		If PackageName = FileToBeDepackagedPath Then Exit
		
		SeekFile(PackageFile, FilePos(PackageFile) + PackageSize)
	Forever
	
	Local I, DepackagedFile = WriteFile("EXTRACTED_\EXTRACTED_" + PackageName)
	For I = 0 To PackageSize - 1
		WriteByte DepackagedFile,ReadByte(PackageFile)
	Next
	
	Return "EXTRACTED_\" + PackageName
	
	CloseFile DepackagedFile
	CloseFile PackageFile
End Function