autolib="\\sistemas\\cadastro\\bibliot"
while true
  @ 10,10 ?? "Pressione uma Tecla ?"+spaces(50)
  x=getchar()
  if x=27 then quitloop endif
  @ 10,10 ?? "Tecla Pressionada  = "+StrVal(x)+"  ..Tecle <Enter> p/ Continuar"
  y=getchar()
endwhile
