     Este programa estabelece um dilogo de forma
recursiva, na qual o usurio executa uma ao e a
resposta a essa ao  apresentada na caixa,  sem
que ela seja finalizada e reinicializada. 

     Para executar o programa crie um workspace e
insira os seguintes arquivos no projeto:

Principal.f90, resource.fd e script1.rc