212c
<< <> >>

We gaan verder

HTK .      HTK EMIT

. 3                  \ 3
. ( 3 + 4 * 5 )      \ 35
Nestingen zijn toegestaan (tot 12 diep):
. ( 3 + ( 4 * 5 ) )
. ( ( 3 + 4 ) * 5 )
Je kunt er andere Forthcommando's door heen gebruiken:
. BASE              \ 291976 (Bij mij tenminste)
. ( BASE @ )        \ 10 (Haakjes noodzakelijk!)

. ( BASE @ 1+ )     \ 11
BASE . ( @ 1+ )     \ 11
BASE @ . 1+         \ 11

. ( BASE @ + 5 )    \ 15
BASE . ( @ + 6 )    \ 16
BASE @ . ( + 7 )    \ 17
Er zijn ongetwijfeld nog meer varianten te bedenken.
. ( 9 + dup )       \ 18
. ( 1 20 - swap )   \ 19
Je ziet, reuze flexibel, maar is het er nu gemakkelijker op geworden?

We gaan nog verder

HTK >      HTK <     HTK =      HTK <>
HTK IF     HTK THEN
HTK AND

: TEST (( x -- )
  CR . DUP ." is "
  IF ( DUP = 0 )  THEN ( ." nul " )
  IF ( DUP < 0 )  THEN ( ." negatief " )
  IF ( 0 < over ) THEN ( ." positief " )
  ." en "
  IF   ( = ( 1 AND TUCK ) )
  THEN ( ." oneven." ELSE ." even." ) ;

HTK TEST

TEST ( 100 - 111 )     \ -11 is negatief en oneven.
>>