World of Shareware - Software Farm 2/wosw_2.zip/wosw_2/PASCAL/MADTRB21.ZIP/YES.SRC

Text File | 1985-06-09 | 129b | 9 lines

FUNCTION YES : BOOLEAN;

VAR CH : CHAR;

BEGIN
  READ(CH);
  IF CH IN ['Y','y'] THEN YES := TRUE ELSE YES := FALSE
END;