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.