hence/examples/testforth.fth

12 lines
261 B
Forth

: test 40 2 + ;
: meep 32 ;
: morp 4875 8748 debug ;
: zeep 8777 debug ;
: borg debug ;
42 42 = debug if 69 . else 420 . then cr
1 debug if 32 . cr else then
test debug test debug space ." Hello world!" cr space space ." Hello world!" cr
morp meep morp meep