forth.4th 182 Bytes
Edit Raw Blame History



1

2

3

4

5

6

7

8

9

10


\ Test file for Forth Syntax
\ Comments are like this
10 constant ten
: .hello ( -- )
  s" Hello World" type [char] ! emit ;
: hello ( flag -- )
  ?dup if .hello then drop ;
hello