何も説明してはいませんが
以上の知識の応用として、Hello Worldを書いてみましょう。
: add + ; : sub - ; : > 4 add ; : < 4 sub ; : + dup dup @ 1 add swap ! ; : - dup dup @ 1 sub swap ! ; : . dup @ emit ; : , dup key swap ! ; macro : [ p: repeat ['] dup compile ['] @ compile p: if ; : ] 1 literal, p: else 0 literal, p: then p: while ; forth 1024 allocate dup 1024 add : clr repeat 4 sub dup 0 swap ! over over = not while drop ; clr : main > + + + + + + + + + [ < + + + + + + + + > - ] < . > + + + + + + + [ < + + + + > - ] < + . + + + + + + + . . + + + . [ - ] > + + + + + + + + [ < + + + + > - ] < . > + + + + + + + + + + + [ < + + + + + > - ] < . > + + + + + + + + [ < + + + > - ] < . + + + . - - - - - - . - - - - - - - - . [ - ] > + + + + + + + + [ < + + + + > - ] < + . [ - ] + + + + + + + + + + . ; main bye