Capítulo 8:

aprenda jogo
# Inicializa o número procurado e o número de lances
atr "número sorteie 32
atr "contar 0
insistir
fim

aprenda insistir
leia [Escreva um número] "palpite
atr "palpite pri :palpite
se énúmero? :palpite[
  # Testa o número dado como palpite
  se :número=:palpite[mo sn sn [Você acertou em ] :contar+1 [tentativa(s)]][
    se :palpite>:número [mo [É menor]][mo [É maior]]
    atr "contar :contar+1
    insistir
  ]
]
[mostre [Por favor, você deve escrever um número!] insistir]
fim