Subversion Repositories Kolibri OS

Rev

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

  1. ( ¥ç âì ᯨ᪠ á«®¢ á«®¢ àï - WORDS.
  2.   Ž‘-­¥§ ¢¨á¨¬ë¥ ®¯à¥¤¥«¥­¨ï.
  3.   Copyright [C] 1992-1999 A.Cherezov ac@forth.org
  4.   à¥®¡à §®¢ ­¨¥ ¨§ 16-à §à來®£® ¢ 32-à §àï¤­ë© ª®¤ - 1995-96££
  5.   ¥¢¨§¨ï - ᥭâï¡àì 1999
  6. )
  7.  
  8. VARIABLE NNN
  9.  
  10. : ?CR-BREAK ( NFA -- NFA TRUE | FALSE )
  11.   DUP
  12.   IF DUP ZCOUNT NIP AT-XY? DROP + SCR_WIDTH-S >
  13.      IF CR
  14.         NNN @
  15.         IF    -1 NNN +!  TRUE
  16.         ELSE  ." more?" CR 16 NNN !
  17.               KEY [CHAR] Q <> AND ?DUP 0<>
  18.         THEN
  19.      ELSE TRUE
  20.      THEN
  21.   THEN
  22. ;
  23.  
  24. : NLIST ( A -> )
  25.   @
  26.   CR W-CNT 0!  16 NNN !
  27.   BEGIN  ?CR-BREAK
  28.   WHILE
  29.     W-CNT 1+!
  30.     DUP ID. \ 9 EMIT
  31.         SPACE AT-XY? >R 8 / 1+ 8 * R> AT-XY
  32.     CDR
  33.   REPEAT KEY? IF KEY DROP THEN
  34.   CR CR ." Words: " W-CNT @ U. CR
  35. ;
  36.  
  37. : WORDS ( -- ) \ 94 TOOLS
  38. \ ‘¯¨á®ª ¨¬¥­ ®¯à¥¤¥«¥­¨© ¢ ¯¥à¢®¬ ᯨ᪥ á«®¢ ¯®à浪  ¯®¨áª . ”®à¬ â § ¢¨á¨â
  39. \ ®â ॠ«¨§ æ¨¨.
  40. \ WORDS ¬®¦¥â ¡ëâì ॠ«¨§®¢ ­ á ¨á¯®«ì§®¢ ­¨¥¬ á«®¢ ä®à¬ â­®£® ¯à¥®¡à §®¢ ­¨ï
  41. \ ç¨á¥«. ‘®®â¢¥âá⢥­­®, ®­ ¬®¦¥â ¨á¯®àâ¨âì ¯¥à¥¬¥é ¥¬ãî ®¡« áâì,
  42. \ ¨¤¥­â¨ä¨æ¨à㥬ãî #>.
  43.   CONTEXT @ NLIST
  44. ;
  45.  
  46.