! NombreEdad
  !
  ! Lenguaje Zero, programa típico de comienzo.
  ! Pide al usuario su nombre y su edad, y la visualiza
  ! Si la edad es mayor que 130, o menor que cero, le llama mentiroso. :-)
  !
  ! jbgarcia@uvigo.es
  ! ----------------------------------------------------------- NombreEdad

  object NombreEdad : ConsoleApplication
    method + doIt ( )
      reference nombre
      reference edad


      ! prepara la consola
      __this.prepare ( )

      ! Preparar el retorno
      __rr = True

      ! Pedir el nombre
      System.console.write ( "Dame tu nombre: " )
      nombre = System.console.read ( )

      ! Pedir la edad
      System.console.write ( "Dame tu edad: " )
      edad = Int.parseString ( System.console.read ( ) )

      ! Comparar con 0
      edad.isLessThan ( 0 )
      jumpOnFalseTo comp130
      System.console.write ( "¡Eso es imposible!" )
      System.console.lf ( )
      __rr = False
      jumpOnTrueTo Bienvenida

      :comp130 ! Comparar con 130
      edad.isLessThan ( 130 )
      jumpOnTrueTo visualizarNombreEdad
      System.console.write ( "Mentirooooso." )
      System.console.lf ( )
      __rr = False
      jumpOnTrueTo Bienvenida

      :visualizarNombreEdad
      System.console.write ( "Tu nombre es: " )
      System.console.write ( nombre )
      System.console.lf ( )
      System.console.write ( "Tu edad es: " )
      System.console.write ( edad )
      System.console.lf ( )

      :Bienvenida
      System.console.write ( "¡Bienvenido a Zero, " )
      System.console.write ( nombre )
      System.console.write ( "!" )
      System.console.lf ( )
      return
      System.console.write ( "Era necesario introducir un número." )
      System.console.lf ( )
    endMethod
  endObject