break on

$filename = "m:\t.dat"

; uncomment for softcopy

; del "out.txt"
; $=redirectoutput("out.txt")

if open(1,$filename) = 0
 $line = readline(1)
 while @error = 0
  if substr($line,2,1) = ":"
   $path = $line
  else
   if $line
    $split = instr($line,"\")
    if $split = 0
     $split = instr($line," ")-1
    else
     $split = $split + instr(substr($line,$split)," ") - 2
    endif
    $group = substr($line,1,$split+1)
    $access = substr($line,$split+1)
   endif
   ?"$path,$group,$access"
  endif
  $line = readline(1)
 loop
 $= close(1)
endif