Příklad C.1. Různé způsoby psaní komentářů

Podle příspěvku „Comment delimiter consensus“ od Brenda Paysana (<bernd.paysan@gmx.de>) ze dne 2000-08-20 zaslaného do konference comp.lang.forth.

: ?refill source nip >in @ = IF refill 0= ELSE false THEN ;
: parse* ( char → eol? match?) 
    parse + source + over <> swap 1- c@ '* = ;
: parse*del ( char &rarr; ) >r
    BEGIN r@ parse* and 0= WHILE ?refill UNTIL THEN rdrop ;
: (* ') parse*del ;
: /* '/ parse*del ;
: \* '\ parse*del ;