       10 // RETRY test program
       20 //
       30 a:=0
       40 //
       50 TRAP
       60   b:=1/a
       70   SYS assert, b=0.5
       80 HANDLER
       90   IF a=0 THEN
      100     a:=2
      110     RETRY
      120   ELSE
      130     SYS assert, FALSE
      140   ENDIF
      150 ENDTRAP
      160 //
      170 PRINT "Ok"
