: BS BEGIN DEPTH 0> WHILE DROP REPEAT ;

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

adr len sind Adresse und Länge des Strings "Vijgeblaadje".

BS 8 ' ' CATCH vijg .S [rtn]

Forth gibt eine Fehlermeldung aus, da es nach dem CATCH noch einmal probiert, vijg zu finden.

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

TO kann nicht auf BL wirken: Fehlernummer -32, sodann BL (=32).

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

Dup-Aktion und erfolgbestätigende Null

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

Dup-Aktion und 2 erfolgbestätigende Nullen

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

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

Drop-Aktion auf einen leeren Stack, danach eine erfolgbestätigende Null. Mein Forth protestiert nicht.

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

Die erste 14 kann überschrieben sein.