CP/M/CPM_CDROM.iso/cpm/turbopas/tp-util.ark/YES.SRC

Text File | 1986-01-06 | 256 b | 9 lines

FUNCTION YES : BOOLEAN;

VAR CH : CHAR;

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