
Lib_tar
   tar  (jsr75, jsr75Siemens)

---

!
   tar   res   !


get_files(s: string): string;
 -       "1.mid|2.png|3.txt"

unpack(s: string, s1: string, s2: string, i: integer);
 -   ; 
   s -   (  0:/dir/archive.tar);
   s1 -    (0:/dir/new);
   s2 -     ,   
      "1.mid|2.png|3.txt",
   i -  : 1-9 (   5)

unpack_all_files: integer;
 -    

unpack_un_files: integer;
 -   

unpack_current_file: string;
 -    

clear;
 -  


    Example

---
  
by MBasic
