( ¥ç âì ᯨ᪠᫮¢ á«®¢ àï - WORDS.
-¥§ ¢¨á¨¬ë¥ ®¯à¥¤¥«¥¨ï.
Copyright [C] 1992-1999 A.Cherezov ac@forth.org
८¡à §®¢ ¨¥ ¨§ 16-à §à冷£® ¢ 32-à §àï¤ë© ª®¤ - 1995-96££
¥¢¨§¨ï - á¥âï¡àì 1999
)
VARIABLE NNN
: ?CR-BREAK ( NFA -- NFA TRUE | FALSE )
DUP
IF DUP ZCOUNT NIP AT-XY? DROP + SCR_WIDTH-S >
IF CR
NNN @
IF -1 NNN +! TRUE
ELSE ." more?" CR 16 NNN !
KEY [CHAR] Q <> AND ?DUP 0<>
THEN
ELSE TRUE
THEN
THEN
;
: NLIST ( A -> )
@
CR W-CNT 0! 16 NNN !
BEGIN ?CR-BREAK
WHILE
W-CNT 1+!
DUP ID. \ 9 EMIT
SPACE AT-XY? >R 8 / 1+ 8 * R> AT-XY
CDR
REPEAT KEY? IF KEY DROP THEN
CR CR ." Words: " W-CNT @ U. CR
;
: WORDS ( -- ) \ 94 TOOLS
\ ¯¨á®ª ¨¬¥ ®¯à¥¤¥«¥¨© ¢ ¯¥à¢®¬ ᯨ᪥ á«®¢ ¯®à浪 ¯®¨áª . ®à¬ â § ¢¨á¨â
\ ®â ॠ«¨§ 樨.
\ WORDS ¬®¦¥â ¡ëâì ॠ«¨§®¢ á ¨á¯®«ì§®¢ ¨¥¬ á«®¢ ä®à¬ ⮣® ¯à¥®¡à §®¢ ¨ï
\ ç¨á¥«. ®®â¢¥âá⢥®, ® ¬®¦¥â ¨á¯®àâ¨âì ¯¥à¥¬¥é ¥¬ãî ®¡« áâì,
\ ¨¤¥â¨ä¨æ¨à㥬ãî #>.
CONTEXT @ NLIST
;