: VB BEGIN DEPTH 0> WHILE DROP REPEAT ;

VB 7 ' S" CATCH Vijgeblaadje" .S [rtn] ( 7 adr len 0 )

adr len is adres en lengte van de string Vijgeblaadje.

VB 8 ' ' CATCH vijg .S [rtn]

Forth geeft een foutmelding want hij probeert na de CATCH nogmaals vijg te vinden.

VB 9 ' TO CATCH BL .S [rtn] ( 9 -32 32 )

TO kan niet op BL werken: foutnummer -32, vervolgens BL (=32).

VB 10 ' DUP ' CATCH EXECUTE .S [rtn] ( 10 10 0 )

DUP-actie en goedkeuringsnul.

VB 11 ' DUP ' CATCH CATCH .S [rtn] ( 11 11 0 0 )

Dup-actie en 2 goedkeuringsnullen

VB 12 ' DUP ' CATCH ' CATCH CATCH .S [rtn] ( 12 12 0 0 0 )

VB ( 13 ) ' DROP CATCH .S [rtn] ( )

DROP-actie op een lege stack, daarna een goedkeuringsnul. Mijn Forth protesteert niet.

VB 14 ' THROW CATCH .S [rtn] ( 14? 14 )

De eerste 14 kan overschreven zijn.