home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / TPASBOOK.ZIP / YES.SRC < prev   
Encoding:
Text File  |  1985-06-09  |  129 b   |  9 lines
  1. FUNCTION YES : BOOLEAN;
  2.  
  3. VAR CH : CHAR;
  4.  
  5. BEGIN
  6.   READ(CH);
  7.   IF CH IN ['Y','y'] THEN YES := TRUE ELSE YES := FALSE
  8. END;
  9.