dim $CLIENT[999]
dim $LOCATION[200]
dim $PROJECT[200]
dim $SOURCE[4]
break on

$SOURCE[1] = READPROFILESTRING(@SCRIPTDIR + "\MENU.INI","DRIVES","SOURCE")
$SOURCE[2] = READPROFILESTRING(@SCRIPTDIR + "\MENU.INI","DRIVES","DEST")
$SOURCE[3] = READPROFILESTRING(@SCRIPTDIR + "\MENU.INI","DRIVES","ARC1")
$SOURCE[4] = READPROFILESTRING(@SCRIPTDIR + "\MENU.INI","DRIVES","ARC2")
if Open(2, "c:\dirlist.txt",5) = 0
for $s= 1 to 4
$CLIENT=Dir($SOURCE[$s])
? $CLIENT
While Not @ERROR
 If (16 & GetFileAttr($SOURCE[$s]+"\"+$CLIENT))
  if not $CLIENT = "." and not $CLIENT = ".." and not $CLIENT = ""

  $LOCATION=Dir($SOURCE[$s]+"\"+$CLIENT)
   While Not @ERROR
    If (16 & GetFileAttr($SOURCE[$s]+"\"+$CLIENT+"\"+$LOCATION))
     if not $LOCATION = "." and not $LOCATION = ".." and not $LOCATION = ""

      $PROJECT=Dir($SOURCE[$s]+"\"+$CLIENT+"\"+$LOCATION)
     While Not @ERROR
       If (16 & GetFileAttr($SOURCE[$s]+"\"+$CLIENT+"\"+$LOCATION+"\"+$PROJECT))
        if not $PROJECT = "." and not $PROJECT = ".."  and not $PROJECT = ""
         $LINE=$source[$s]+","+$client+","+$location+","+$project+@CRLF
         ? ""+$LINE
         ;$x = WRITELINE (2,$LINE)
        endif
       endif
       $PROJECT=Dir() ; retrieve next Project
     Loop
     endif
    endif
    $LOCATION=Dir() ; retrieve next Location
   Loop
  if
 EndIf
$CLIENT = Dir() ; retrieve next Client
Loop
next
close(2)