[COS] $zt Error-Trapping ?

[Bernd Mueller]

Hello,
how can i get the same behavior as Test4 in "modern-cos" ? (without dot-syntax)
On error i want to go on with the code.
Test3 unfortunately does not work ... the Quit in the Error-Handler
quits whole Test3 :-(

Any ideas ?

Thanks and Regards...
Bernd!
------

Test4   ;Call by Do

        Do
        . Set $zt="Error3" For i=1:1:10 w !,i if i=5 set a=XyZ ;forceded UNDEF Error!!!
        
        w !,"go on Test4"

        Quit

Test3   ;Call by Do

        Do {
          Set $zt="Error3"
          For i=1:1:10 {
                  w !,i
                  if i=5 set a=XyZ ;forced UNDEF Error!!!
          }
        } While 1
        
        w !,"go on Test3"
        
        Quit
        
Error3  ;
        set $zt=""
        Quit