Příklady - Ošetření návratového kódu

OsetriNavratovyKod:

  WSelect( ChyboveOkno)
  if _CalResult // 0 then
    WSelect( OknoChybovychHlaseni)
    ON _CalResult GOTO E1, E2
       Beep Beep                    /* Chyba rozskoku příkazu ON GOTO  */
       E1: print(" Chyba při aktivaci kalendáře              ") Goto Next
       E2: print(" Nezaložena databáze turnusů               ") Goto Next
    Next:
    GoTo Znovu
  endif
  return

Podívejte se na: Jiné příklady