lua-until EOL
  dofile("crim/crim.lua")        -- (find-miniforth "crim/crim.lua")
  dofile("crim/crimextras.lua")  -- (find-miniforth "crim/crimextras.lua")
EOL


% strlen H_C1 nasm( 4, "extern strlen\n\tdd strlen\n" )

:RSR 0<.">
  : S0<.">  S> DUP strlen 2DUP TYPE + 1 + >S ;
  : DEMO    0<."> dbstuff( "Hello\n", 0 )
            0<."> dbstuff( "There!\n", 0 ) ;


asm/C-files: crim/demo3.asm crim/demo3.c
e exit()

#*
cd ~/miniforth/crim/
make clean
make CFLAGS=-g demo3
./demo3 7
#*