experimental SourceAFIS in pascal