!
if exist(table_prefix) delete /var table_prefix
define chara table_prefix*16 /global
let table_prefix "&4"
define integer l
let l 0
PAUSE
!
for i 1 to dir%nfile
  !
  file in 'dir%file[i]'
  find /source &3
  if (found.ne.0) then
    let l l+1
    set selection l09 to L12  ssb line
    if l.eq.1 then
      table 'table_prefix'Wide.uvt new 
    else
      table 'table_prefix'Wide.uvt
    endif
    for k 1 to 4
      set selection l0'k' and l0'k+4'  ssb line
      !
      if l.eq.1 then
        table 'table_prefix'Line-'k'.uvt new 
      else
        table 'table_prefix'Line-'k'.uvt
      endif
    next
  endif
next

