forked from KolibriOS/kolibrios
42 lines
699 B
Forth
42 lines
699 B
Forth
( Š®á®«ìë© ¢¢®¤-¢ë¢®¤.
|
||
Ž‘-¥§ ¢¨á¨¬ë¥ á«®¢ [®â®á¨â¥«ì®...].
|
||
Copyright [C] 1992-1999 A.Cherezov ac@forth.org
|
||
<EFBFBD>८¡à §®¢ ¨¥ ¨§ 16-à §à冷£® ¢ 32-à §àï¤ë© ª®¤ - 1995-96££
|
||
<EFBFBD>¥¢¨§¨ï - á¥âï¡àì 1999
|
||
)
|
||
32 VALUE BL ( -- char ) \ 94
|
||
\ char - § 票¥ ᨬ¢®« "¯à®¡¥«".
|
||
|
||
: SPACE ( -- ) \ 94
|
||
\ ‚뢥á⨠íªà ®¤¨ ¯à®¡¥«.
|
||
BL EMIT
|
||
;
|
||
|
||
: SPACES ( n -- ) \ 94
|
||
\ …᫨ n>0 - ¢ë¢¥á⨠¤¨á¯«¥© n ¯à®¡¥«®¢.
|
||
BEGIN
|
||
DUP
|
||
WHILE
|
||
BL EMIT 1-
|
||
REPEAT DROP
|
||
;
|
||
|
||
VARIABLE PENDING-CHAR \ ª« ¢¨ âãà ®¤ -> ¯¥à¥¬¥ ï £«®¡ «ì ï, ¥ USER
|
||
|
||
VECT DO-KEY?
|
||
|
||
' NOOP TO DO-KEY?
|
||
|
||
: KEY?
|
||
EVENT-CASE DO-KEY?
|
||
&KEY @ 0<> ;
|
||
|
||
\ : KEY?
|
||
\ 0 ;
|
||
|
||
VECT KEY
|
||
|
||
|
||
' _KEY TO KEY
|
||
|