This displays the contents (file names, sizes) of an archive.

I track the input (the archive) in In.

~~~'In var 
~~~

The filename is passed in via the command line. Open it, save the pointer.

~~~#0 script:get-argument file:open-for-reading nip !In 
~~~

Define words to process the archive data.

~~~:get-count  @In file:read-line s:to-number dup n:put '_files s:put nl ; 
:pad        s:length #32 swap - #0 n:max [ sp ] times ; 
:filename   @In file:read-line dup s:put pad ; 
:size       @In file:read-line s:to-number dup n:put '_bytes s:put nl ; 
:skip       [ @In file:read drop ] times ; 
:skip-nl    @In file:read-line drop ; 
~~~

Then use them to process the file.

~~~get-count [ filename size skip skip-nl ] times 
@In file:close 
~~~