x=getfnames("C:\SW2000\data\*.vws",0)
' message x
  if strcount(x)=0
    message "There are"&str(ptval)&"items in the list"
  end if
strc=ptval
for y=1 to strc
'   while eof(4) = 0
'     fread 4 into $file
  $file=group(getfnames("C:\SW2000\data\*.vws",0),y)
' message "$file) is:"&str($file)
  CompileFiles()
'   end while
end for