DEF VAR numero AS INTEGER INIT 1 NO-UNDO.
DEF VAR xi AS INTEGER.
DO ON ERROR UNDO, LEAVE:
numero = INTEGER("a").
/* Só exibe abaixo se não ocorrer erro acima */
MESSAGE "Sucesso de conversão!"...
You do not have permission to view the full content of this resource.