F ImageAltText ->
Arg Text_file : &String, Image_file : String

Name_ext, Path, Name = '' ..

- FileName >Name_ext< Image_file,
  FilePath >Path< Image_file

Parse Name_ext Name '.' . [ Name_ext '.' ]

Name <- Name '-tn' '' STR_RIGHT 

Alt_names = <
              Name '.alt'
              Name '-tn.alt'
              Name '-tn.txt'
              Name '_title.txt'
              Name '_h.txt'
              Name '.txt'
            >

Do get Alt_name from Alt_names
 If Long_name FILE_EXISTS
    ' Long_name = Path '/' Alt_name then 
  Text_file = Long_name; Leave
 Else 
  Iterate
 ;
;

/