Programmer 7500/MAX_PROGRAMMERS.iso/PASCAL/CMPLTPAS.ZIP/YES.PAS

Pascal/Delphi Source File | 1988-07-14 | 319 b | 15 lines

{<<<< Yes >>>>}
{ From: COMPLETE TURBO PASCAL 5.0 by Jeff Duntemann  }
{ Scott, Foresman & Co. 1988      ISBN 0-673-38355-5 }
{ Described in section 18.3   --   Last mod 7/5/88   }

FUNCTION Yes : Boolean;

VAR
  Ch : Char;

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