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

FUNCTION Yes : Boolean;

VAR
  Ch : Char;

BEGIN
  Read(Ch);
  IF Ch IN ['Y','y'] THEN Yes := True ELSE Yes := False
END;
