Blame |
Last modification |
View Log
| Download
| RSS feed
( ®á®«ìë© ¢¢®¤-¢ë¢®¤.
-¥§ ¢¨á¨¬ë¥ á«®¢ [®â®á¨â¥«ì®...].
Copyright [C] 1992-1999 A.Cherezov ac@forth.org
८¡à §®¢ ¨¥ ¨§ 16-à §à冷£® ¢ 32-à §àï¤ë© ª®¤ - 1995-96££
¥¢¨§¨ï - á¥âï¡àì 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