Menu com Cursor de escolha

Menu com Cursor de escolha
Esta é uma maneira mais avançada de fazer um menu sem ser pela maneira tradicional de esolher um número do Menu.
Este menu usa um cursor que se move para a esquerda e direita usando Z e o X e o A para escolher.






Este programa usa o novo comando da versão 1.1.1.0, o comando ESCOLHER:, este exemplo também tem um comando que não está documentado no manual que é o ^, este simbolo ignora a proximo simbolo ou seja que alguns simbolos como por exemplo o > são comandos internos do Windows e para saltar esses comandos e só mostrar o simbolo é só usar o ^


TAMANHO_DA_JANELA VERTICAL=13 HORIZONTAL=50

MARCA.menu1
LIMPAR_TEXTO

ESPAÇO
ESPAÇO
MOSTRAR Use Z e X para mover o cursor e A para escolher.
ESPAÇO
MOSTRAR  ^>Entrar ^|  Sair  ^|  Sobre

ESCOLHER: zxa ESCONDER_OPÇÕES
CASO_TECLA_SEJA: 1 VAI_PARA menu1
CASO_TECLA_SEJA: 2 VAI_PARA menu2
CASO_TECLA_SEJA: 3 VAI_PARA entrar
::Caso outra
VAI_PARA menu1
PAUSAR

MARCA.menu2
LIMPAR_TEXTO

ESPAÇO
ESPAÇO
MOSTRAR Use Z e X para mover o cursor e A para escolher.
ESPAÇO
MOSTRAR   Entrar ^|  ^>Sair  ^|  Sobre

ESCOLHER: zxa ESCONDER_OPÇÕES
CASO_TECLA_SEJA: 1 VAI_PARA menu1
CASO_TECLA_SEJA: 2 VAI_PARA menu3
CASO_TECLA_SEJA: 3 TERMINAR_PROGRAMA
::Caso outra
VAI_PARA menu2

MARCA.menu3
LIMPAR_TEXTO

ESPAÇO
ESPAÇO
MOSTRAR Use Z e X para mover o cursor e A para escolher.
ESPAÇO
MOSTRAR   Entrar ^|  Sair  ^|  ^>Sobre

ESCOLHER: zxa ESCONDER_OPÇÕES
CASO_TECLA_SEJA: 1 VAI_PARA menu2
CASO_TECLA_SEJA: 2 VAI_PARA menu3
CASO_TECLA_SEJA: 3 VAI_PARA sobre
::Caso outra
VAI_PARA menu2

MARCA.sobre
LIMPAR_TEXTO

MOSTRAR Este menu tem um cursor.
MOSTRAR Use Z e X para mover o cursor e A para escolher.
PAUSAR
VAI_PARA menu3


MARCA.entrar
LIMPAR_TEXTO
MOSTRAR Entrou numa nova janela!
PAUSAR
VAI_PARA menu1