#include "box.ch"
#include "inkey.ch"
#include "fileio.ch"

// #define K_F2                    -1    /*   F2                            */
// #define K_F4                    -3    /*   F4                            */
// #define K_F6                    -5    /*   F6                            */


function main
   local cTela := savescreen(00,00,24,79)
   local cCor := setcolor()
   @ 00, 00, 24, 79 box B_SINGLE + space(1)
   @ 01, 02 say "Sistema Exemplo"
   @ 02, 02, 23, 77 box B_SINGLE + space(1)
   while .t.
      @ 03, 04 prompt " Cadastro   "
      @ 04, 04 prompt " Movimento  "
      @ 05, 04 prompt " Relatorios "
      @ 06, 04 prompt " Sair       "
      menu to nOpcao
      if lastkey() = -1
         if lastkey() = -3
            if lastkey() = -5
               alert("Combinacao de Teclas;1 - F2;2 - F4;3 - F6")
            endif
         endif
      endif
      do case
         case nOpcao = 1 ; alert("Cadastro")
         case nOpcao = 2 ; alert("Movimento")
         case nOpcao = 3 ; alert("Relatorios")
         case nOpcao = 4 ; exit
      endcase
   enddo
   setcolor(cCor)
   restscreen(00,00,24,79,cTela)
return nil