{ QUIRY

  Provides for an input, at a specified row/column on the
  console, to a question that only wants a Yes/No response.

  RETURNS:
	TRUE IF 'Y' or 'y' response else FALSE.
  EXAMPLE:
	gogo := QUIRY( 5,12, 'Do you wish to continue?' );
	If not gogo then ...
  REQUIRES
    TYPE DSTRING = STRING DEFAULT;
    VAR  bell : char;
    PROCEDURE gotoxy();
    PROCEDURE keyin( var ch: char ); external;
}
Function Quiry(row,column: byte;
	       message: DSTRING): boolean;
VAR	answer : char;
BEGIN
  REPEAT
    gotoxy(row, column);
    WRITE (BELL,message);
    keyin(ANSWER);write(ANSWER);
  UNTIL  ANSWER IN ['Y','y','N','n'];
  Quiry := ( ( ANSWER='Y' ) or ( ANSWER='y' ) )
END{ of Quiry };
WER);write(ANSWER);
  UNTIL  ANSWER IN ['Y'