kolibrios/programs/develop/SPForth/src/spf_con_io.f

( <20><><EFBFBD>᮫<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>-<EFBFBD>뢮<EFBFBD>.
  <20><>-<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᨬ<EFBFBD><EFBFBD> ᫮<EFBFBD><EFBFBD> [<EFBFBD>⭮<EFBFBD><EFBFBD>⥫쭮...].
  Copyright [C] 1992-1999 A.Cherezov ac@forth.org
  <20>८<EFBFBD>ࠧ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> 16-ࠧ<EFBFBD>來<EFBFBD><EFBFBD><EFBFBD> <EFBFBD> 32-ࠧ<EFBFBD>來<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> - 1995-96<EFBFBD><EFBFBD>
  <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - ᥭ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 1999
)
32 VALUE BL ( -- char ) \ 94
\ char - <EFBFBD><EFBFBD><EFBFBD>祭<EFBFBD><EFBFBD> ᨬ<EFBFBD><EFBFBD><EFBFBD><EFBFBD> "<22>஡<EFBFBD><E0AEA1>".

: SPACE ( -- ) \ 94
\ <20>뢥<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD>࠭ <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>஡<EFBFBD><EFBFBD>.
  BL EMIT
;

: SPACES ( n -- ) \ 94
\ <20>᫨ n>0 - <EFBFBD>뢥<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ᯫ<EFBFBD><EFBFBD> n <EFBFBD>஡<EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
  BEGIN
    DUP
  WHILE
    BL EMIT 1-
  REPEAT DROP
;

VARIABLE PENDING-CHAR \ <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> -> <EFBFBD><EFBFBD>६<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>쭠<EFBFBD>, <EFBFBD><EFBFBD> USER

VECT DO-KEY?

' NOOP TO DO-KEY?

: KEY?
  EVENT-CASE DO-KEY?
  &KEY @ 0<> ;

\ : KEY?
\ 0 ;

VECT KEY


' _KEY TO KEY