1
2
3
4
5
6
7
8
variable var
 
: teste
        var !
        BEGIN var @ 42 <>
        WHILE var @ cr . var !
        REPEAT
;
 ...

1
2
3
4
5
6
7
8
9
: proximo cr rot . cr swap . cr . cr ; 
: fib
begin
dup 42 <> \ condition
while
drop \ body
repeat
drop proximo ; \ after loop has executed
1
 ...

1
2
3
4
5
6
7
8
9
: proximo cr rot . cr swap . cr . cr loop ; 
: fib
begin
dup 42 <> \ condition
while
drop \ body
repeat
drop proximo ; \ after loop has executed
1
 ...

1
2
3
4
5
6
7
8
9
: proximo depth 0 do cr rot . cr swap . cr . cr loop ; 
: fib
begin
dup 42 <> \ condition
while
drop \ body
repeat
drop proximo ; \ after loop has executed
1
 ...

1
2
3
4
5
6
7
8
9
: proximo rot cr . swap depth 0 do cr . loop ; 
: fib
begin
dup 42 <> \ condition
while
drop \ body
repeat
drop proximo ; \ after loop has executed
1
 ...

1
2
3
4
5
6
7
8
9
: proximo rot cr . swap depth 0 do cr . cr loop ; 
: fib
begin
dup 42 <> \ condition
while
drop \ body
repeat
drop proximo ; \ after loop has executed
1
 ...

1
2
3
4
5
6
7
8
9
: proximo rot cr . depth 0 do swap cr . cr loop ; 
: fib
begin
dup 42 <> \ condition
while
drop \ body
repeat
drop proximo ; \ after loop has executed
1
 ...

1
2
3
4
5
6
7
8
9
: proximo rot cr . depth 0 do cr . cr loop ; 
: fib
begin
dup 42 <> \ condition
while
drop \ body
repeat
drop proximo ; \ after loop has executed
1
 ...

1
2
3
4
5
6
7
8
9
: proximo depth 0 do rot rot cr . cr loop ; 
: fib
begin
dup 42 <> \ condition
while
drop \ body
repeat
drop proximo ; \ after loop has executed
1
 ...

1
2
3
4
5
6
7
8
9
: proximo depth 0 do rot cr . cr loop ; 
: fib
begin
dup 42 <> \ condition
while
drop \ body
repeat
drop proximo ; \ after loop has executed
1
 ...

1
2
3
4
5
6
7
8
9
: proximo depth 0 do cr . cr loop ; 
: fib
begin
dup 42 <> \ condition
while
drop \ body
repeat
drop proximo ; \ after loop has executed
1
 ...

1
2
3
4
5
6
7
8
9
: proximo depth 0 do 2swap cr . cr loop ; 
: fib
begin
dup 42 <> \ condition
while
drop \ body
repeat
drop proximo ; \ after loop has executed
1
 ...

1
2
3
4
5
6
7
8
9
: proximo depth 0 do 2swap cr . cr +loop ; 
: fib
begin
dup 42 <> \ condition
while
drop \ body
repeat
drop proximo ; \ after loop has executed
1
 ...

1
2
3
4
5
6
7
8
9
: 2swap ( n1 n2 n3 n4) \ four items on the stack
rot ( n1 n3 n4 n2) \ rotate the topmost three
>r ( n1 n3 n4) \ n2 is now on the Return Stack
rot ( n3 n4 n1) \ rotate other items
r> ( n3 n4 n1 n2) \ get n2 from the Return Stack
;
: proximo 3 0 do 2swap cr . cr +loop ; 
: fib
begin
 ...

1
2
3
4
5
6
7
8
9
: 2swap ( n1 n2 n3 n4) \ four items on the stack
rot ( n1 n3 n4 n2) \ rotate the topmost three
>r ( n1 n3 n4) \ n2 is now on the Return Stack
rot ( n3 n4 n1) \ rotate other items
r> ( n3 n4 n1 n2) \ get n2 from the Return Stack
;
: proximo 3 0 do 2swap cr . cr loop ; 
: fib
begin
 ...

1
2
3
4
5
6
7
8
9
: 2swap ( n1 n2 n3 n4) \ four items on the stack
rot ( n1 n3 n4 n2) \ rotate the topmost three
>r ( n1 n3 n4) \ n2 is now on the Return Stack
rot ( n3 n4 n1) \ rotate other items
r> ( n3 n4 n1 n2) \ get n2 from the Return Stack
;
: proximo depth 0 do 2swap cr . cr loop ; 
: fib
begin
 ...

1
2
1 4 + 7 - .
 

1
1 4 + 7 -

1
2
3
4
5
6
7
8
9
32 constant #size
create numero #size chars allot
 
: saccept 1 - swap 1 + swap accept ;
 
: lerNumero ( end -- )
dup #size saccept swap c! ;
 
: whileNot42 ( -- )
 ...

1
2
3
4
5
6
7
8
9
32 constant #size
create numero #size chars allot
 
: saccept 1 - swap 1 + swap accept ;
 
: lerNumero ( end -- )
dup #size saccept swap c! ;
 
: whileNot42 ( -- )
 ...

1
2
3
4
5
6
7
8
9
32 constant #size
create numero #size chars allot
 
: saccept 1 - swap 1 + swap accept ;
 
: lerNumero ( end -- )
dup #size saccept swap c! ;
 
: whileNot42 ( -- )
 ...

1
2
3
4
5
6
7
8
9
32 constant #size
create numero #size chars allot
 
: saccept 1 - swap 1 + swap accept ;
 
: lerNumero ( end -- )
dup #size saccept swap c! ;
 
: whileNot42 ( -- )
 ...

1
2
3
4
5
6
7
8
9
32 constant #size
create numero #size chars allot
 
: saccept 1 - swap 1 + swap accept ;
 
: lerNumero ( end -- )
dup #size saccept swap c! ;
 
: whileNot42 ( -- )
 ...

1
2
3
4
5
6
7
8
9
1
2
3
4
5
: .sCR
 
        .\" <" depth .r .\" > " depth 0 max maxdepth-.s @ min dup 0
        ?DO   dup i - pick.
 ...

1
2
3
4
5
6
7
8
9
 
: .sCR
 
        .\" <" depth .r .\" > " depth 0 max maxdepth-.s @ min dup 0
        ?DO   dup i - pick.
        LOOP
        drop ; .sCR
 
.sCR

1
: equarentaedois = 42 IF DROP ELSE  SWAP . THEN;

1
: equarentaedois = 42 IF DROP ELSE . THEN

1
: equarentaedois = 42 IF DROP ELSE . THEN

1
: equarentaedois = 42 IF DROP ELSE . THEN

1
: equarentaedois 2 dup = 42 IF DROP ELSE . THEN