{ Turbo Pascal Include function to get Yes or No answer
  August 29, 1986 by Carson Wilson.

CALLING CONVENTION:

Yes;

EXAMPLE:

write('Proceed');
if Yes then proceed else quit;

RESULTS:

1. Displays '(Y/N) N'
2. Backspaces
3. Waits until user strikes a key.
4. Echos input to screen.
5. If the key is 'y' or 'Y', Yes
   returns true, otherwise Yes returns false.
}

function Yes : boolean;
  var response : char;
  begin
  write(' (Y/N)? N',^H);
  read(kbd,response);
  response := upcase(response);
  write(response);
  if response = 'Y' then Yes := true
  else Yes := false;
  end;