É só copiar e compilar
clea do while .t. set color to bg+ @1,1 to 10,47 double set color to w @2,3 say "Digite a tecla desejada" ntecla=inkey(10) @4,3 say "A tecla pressionada foi : "+chr (ntecla) @ 6,3 say "O codigo da tecla pressionada e : " set color to gr+ @ 6,35 say ntecla inkey (0) vfim= " " set color to @ 8,3 say "Continua? [S/N]" get vfim pict "@!" valid (vfim$"SN") read if vfim ="S" loop else exit endif enddo