: EX BEGIN DEPTH 0> WHILE DROP REPEAT ;

EX 7 ' S" CATCH Vijgeblaadje" .S [rtn] ( 7 addr len 0 )

addr len is addres and length of the string Vijgeblaadje.

EX 8 ' ' CATCH fig .S [rtn]

Forth prints an error message because it tries to find fig again after the CATCH.

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

TO can't operate on BL: error -32, followed by BL (= 32).

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

DUP-action and "allright zero"

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

DUP-action and two "allright zeros."

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

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

DROP-action on empty stack, followed by "allright zero." My Forth did not object.

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

The first 14 could be overwritten.