%
% split file into sections
%

_Fup.Split "x01" second extension & reextend
exists
{
}
{
_Fup.Split
dup exists
{
dup -4 right "x" &
second extension 70 1024 mul 1024 mul 2
%
% stack: in-file out-file-begin extension section-size index-length
%

File.FileSplit
}
{
 pop 0
} ifelse

!File.Segments

} ifelse