Příklady - Ošetření chyb

   -- Příklad ošetření chyb vzniklých při běhu makra --
  dim Code    : Integer
   dim Line    : Integer
   dim Text    : String[80]
   dim MacName : String[80]
   .
   OnError Err1
   .
   .
   Err1:
     GetError(Code, Line, Text, MacName)
     Beep; _("Chyba ", Text, " na řádce ", Line:0:0)
   Exit