while
( tf --- )
"while". Test for exit of a begin ... while ... repeat
loop. When the truth flag is TRUE, execution continues to repeat
then branches back to begin. When the truth flag is FALSE,
execution branches immediately past repeat to exit the loop.
See repeat.
: test
0 \ initialize counter
begin
dup 1+ \ increment count
dup 10 < \ is count < 10
while
." ." \ type a .
repeat
cr ." Done, 9 dots, but count is: " . cr
;
word
( delimiter --- 'token )
"word". Parse the next token from the input stream delimited by
the character, delimiter.
ascii } constant brace
: { brace word drop ;
The address of the token is left on the stack. In Until, word
always leaves the token at pad.
words
( --- )
"words". Display all of the currently defined macro names on the computer
screen.
WRITE
( --- 'WRITE )
"write". Leave the address of the write file open modifier, "w"
on the top of the stack.
" anyfile.dat" WRITE fopen
Table of Contents
Next Section