всё, отбой. вроде работает. PackFileSize() вызывается
после NextPackFile()
; извлечь из архива список содержащихся в нем файлов
; jopaU - Jammed Objects Packaged Archive (Unit)
Procedure.s GetJopaList(JopaFilename.s)
Protected Text.s = ""
If FileExists(JopaFilename)
OpenPack(JopaFilename)
Text = PeekS(NextPackFile())
Text = Left(Text, PackFileSize())
ClosePack()
EndIf
ProcedureReturn Text
EndProcedure