IsImage ->
Arg Name : String 
  - Is_image = -1 ..                                                           /* Не знаем, что за файл  */

If Name '.png', '.gif' then                                                    /* Возможно, это картинка */
 Is_image = 1 
If Name '.jpg', '.jpeg' then
 Is_image = 1
;

If !FileSize Name then                                                         /* Но если нет - то нет   */
 Is_image = 0
If !ImageSize Name IMG_WIDTH then
 Is_image = 0
If !ImageSize Name IMG_HEIGHT then
 Is_image = 0
;

/