
  $ filename "t.exe"
 'uses RTL32
 'uses RTL64
  uses SysUtil

  '====
  'TEST
  '====

  zstring dirname[256]
  string filter="*.o2bas"
  string cr=chr(13)+chr(10)
  sys count
  
  '
  GetCurrentDirectory 256, @dirname
  string pr="Directory Name: " dirname cr "Filter: " filter cr cr
  pr+=GetFileList (filter,count) cr cr
  print pr count " files"
