Subversion Repositories Kolibri OS

Rev

Blame | Last modification | View Log | Download | RSS feed

  1. ( Š®­á®«ì­ë© ¢¢®¤-¢ë¢®¤.
  2.   Ž‘-­¥§ ¢¨á¨¬ë¥ á«®¢  [®â­®á¨â¥«ì­®...].
  3.   Copyright [C] 1992-1999 A.Cherezov ac@forth.org
  4.   à¥®¡à §®¢ ­¨¥ ¨§ 16-à §à來®£® ¢ 32-à §àï¤­ë© ª®¤ - 1995-96££
  5.   ¥¢¨§¨ï - ᥭâï¡àì 1999
  6. )
  7. 32 VALUE BL ( -- char ) \ 94
  8. \ char - §­ ç¥­¨¥ ᨬ¢®«  "¯à®¡¥«".
  9.  
  10. : SPACE ( -- ) \ 94
  11. \ ‚뢥á⨠­  íªà ­ ®¤¨­ ¯à®¡¥«.
  12.   BL EMIT
  13. ;
  14.  
  15. : SPACES ( n -- ) \ 94
  16. \ …᫨ n>0 - ¢ë¢¥á⨠­  ¤¨á¯«¥© n ¯à®¡¥«®¢.
  17.   BEGIN
  18.     DUP
  19.   WHILE
  20.     BL EMIT 1-
  21.   REPEAT DROP
  22. ;
  23.  
  24. VARIABLE PENDING-CHAR \ ª« ¢¨ âãà  ®¤­  -> ¯¥à¥¬¥­­ ï £«®¡ «ì­ ï, ­¥ USER
  25.  
  26. VECT DO-KEY?
  27.  
  28. ' NOOP TO DO-KEY?
  29.  
  30. : KEY?
  31.  EVENT-CASE DO-KEY?
  32.  &KEY @ 0<> ;
  33.  
  34. \ : KEY?
  35. \ 0 ;
  36.  
  37. VECT KEY
  38.  
  39.  
  40. ' _KEY TO KEY
  41.  
  42.