hence/examples/testforth.fth

11 lines
207 B
Forth
Raw Normal View History

2023-03-23 16:59:10 +00:00
: test 40 2 + ;
: meep 32 ;
: morp 4875 8748 debug ;
: zeep 8777 debug ;
: borg debug ;
2023-03-23 16:59:10 +00:00
\ 42 42 = debug if 69 . else 420 . then cr
2023-03-31 12:36:00 +00:00
2023-04-02 12:32:11 +00:00
0 if 42 . cr debug else 69 . cr then
test debug meep morp zeep borg debug