//Поиск всех ехе-шников на всех дисках
func FindEXE <main> 
{
 ffind fd                                           
 arr  drives of str                                  
 getdrives( drives )                                 
 foreach cur, drives                                  
   {
    fd.init( cur+"*.exe", $FIND_FILE | $FIND_RECURSE 
    foreach finfo cur1,fd                             
    :print("\(cur1.fullname)\n")                      
    }
}