( ������ ������ ��������� ������ �� �������� ������: ������� ��� �����.
  Copyright [C] 1992-1999 A.Cherezov ac@forth.org
  �������: �������� 1999
)

VECT <PRE>

: CONSOLE-HANDLES \ $$$$
;

: QUERY ( --- )
\ Read a line from the terminal into the terminal input buffer.
  TIB 80 ACCEPT #TIB ! ;
  
\ EOF  

: REFILL ( --- f)
\ Refill the current input source when it is exhausted. f is
\ true if it was successfully refilled.
  SOURCE-ID -1 = IF
   0 \ Not refillable for EVALUATE
  ELSE
   SOURCE-ID 
    IF   TIB C/L SOURCE-ID READ-LINE CURSTR 1+! THROW ( ������ ������ )
		  IF #TIB ! >IN 0! <PRE> -1
		  ELSE DROP 0 EXIT THEN
   ELSE   QUERY >IN 0! -1 \ Always successful from terminal.
   THEN
  THEN
;

