{<<<< GetExt >>>>}
{ From: COMPLETE TURBO PASCAL by Jeff Duntemann  }
{ Scott, Foresman & Co. 1986  ISBN 0-673-18600-8 }
{ Described in section 15.1 -- Last mod 2/1/86   }

FUNCTION GetExt(FileName : String80) : String80;

VAR 
  DotPos : Integer;

BEGIN
  DotPos := Pos('.',FileName);
  IF DotPos = 0 THEN GetExt := '' ELSE
    GetExt := Copy(FileName,DotPos,(Length(FileName)-DotPos)+1);
END;
