\
\ Example 1 (1.4th)
\        95 jun 18
\

INCLUDE crimcomp.4th
INCLUDE autodoc.4th

CLEAR-CRIM-SPACE		\ resets CRIM-HERE, compiles END_CRIM and SEXIT

0 N~  1 N~

~~1 ' DUP %-> %DUP
~~1 ' *   %-> %*
~~1 ' +   %-> %+

4 ~~3 %VALUE %A
~~ %: %SQUARE  ~ %DUP  ~ %*  ~ %;
~~ %: %^2+6A   ~ %SQUARE  ~ %LIT4 ~ 6 CRIM4,  ~ %A  ~ %*  ~ %+  ~ %;


HEX

CRIM-DUMP

\\ ~END_CRIM~%SEXIT
\\ ~H_FORTH~%DUP                                    %DUP = ~
\\ ~H_FORTH~%*                                      %* = ~
\\ ~H_FORTH~%+                                      %+ = ~
\\ ~H_VALUE_3~H_VALUE_2~H_VALUE_1~0x00000004        %A = ~
\\ ~H_CRIM~%DUP~%*~%EXIT                            %SQUARE = ~
\\ ~H_CRIM~%SQUARE~%LIT4~0x00000006~%A~%*~%+~%EXIT  %^2+6A = ~

BOX" S| S|"
BOX" H.q|"
BOX" H.q|"
BOX" H.q|"
BOX" hhH.q|"
BOX" Hlls|"
BOX" Hls.qllls|"

5  %' %^2+6A  CALL-CRIM		\ test: runs 5 %^2+6A (the result is 49)

BYE